在VB按MVC的构架写组件供ASP调用
BLL层
VB code:
Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub
ASP中调用
VB code:
Set BLL = server.CreatoObject("tttt.moonPotato_BLL")
Set Model= server.CreatoObject("tttt.moonPotato_Model")
Model.userName="123"
Model.userLevel="456"
BLL.inSertUser(Model)
这样就提对象不支持该属性或方法,问题指向Dal.InSertCls (Model)，在ASP中单独运行Dal.InSertCls没有问题
如果把以上BLL部分直接写在ASP中就正可正常执行，这是什么原恩
问题是Dal.InSertCls (Model)改成这样就Dal.InSertCls Model OK
看来（）能不用就不用。VB的语法确实不太规范，中午结贴。
如需要阅读该回复，请登录或注册CSDN!
<%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 ......
