采用三层，我只贴相关代码
SqlHelper部分
VBScript code:
Public Function getObjRs(Sql)
Set objRs = New ADODB.Recordset
objRs.Open Sql, objConn, 1, 1
Set getObjRs = obj
End Function
Dal部分
VBScript code:
Public Function getItem(Model As moonPotato_Model)
Sql = "Select * from Mpt_CostItem where CostItem_ParentID = " & Model.CostItem_ParentID & " order by CostItem_Order desc"
Set getItem = SqlHelper.getObjRs(Sql)
End Function
BLL部分
VBScript code:
Public Function getItem(Model As moonPotato_Model)
Set getItem = Dal.getItem(Model)
End Function
以上部分编译成了DLL文件
ASP部分
VBScript code:
Set BLL = Server.CreateObject("OfficeNet.moonPotato_DAL")
Set Model = Server.CreateObject("OfficeNet.moonPotato_Model")
Model.CostItem_ParentID = 5
Set rs = BLL.getItem(Model)
错误提示
Microsoft VBScript 运行时�
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
由于对页面使用了伪静态
并且对ID进行了加密。
主要代码如下：
httpd.ini
RewriteRule /List-([0-9,a-z]*).html /List.asp\?ComId=$1 [N,I]
程序代码
A为加密，B为解密函数
<a href=&q ......
我想做一个程序，他通过截获网络数据报文，过滤报文中的asp.net语句，然后改写报文的东西。我对asp.net不懂，我想问下各位高人，asp.net是以什么样的标志起头，什么样的标志结尾呢。多谢各位了。
麻烦大哥能给一� ......
