首页  »   ASP

有类来连接数据库解决方案

网友分享于:2013-03-08  浏览:2次
有类来连接数据库
'class.asp
Class   HYM_Conn_Ac
Public   Function   ConnDB()
        Set   GetConn   =   Server.CreateObject( "ADODB.Connection ")
        DBPath= "HostlHome/Dcca18be890b7a3a5B/#ysaz0h666xv35fsdfjdb.mdb "
        ConnStr   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "&   Server.MapPath( " "&DBPath& " ")   & ";Persist  

Security   Info=False "
      GetConn.Open   ConnStr
          ConnDB   =   GetConn         '好象不好使
    End   Function
End   Class


'调用
test.asp
Set   mycls   =   New   HYM_Conn_Ac
RetnConn   =   mycls.ConnDB()         '返回conn连接对象以供本页用(也可以传参数自定义   conn   的名称,这个无所谓.)

        Set   rs   =   RetnConn.Execute( "select   *   from   v_admin ")
    do   while   not   rs.eof  
          response.Write(rs( "adminpwd ")& " <br/> ")
    rs.movenext
    loop
他就说缺少对象(就说RetnConn   他无效。)
谁帮我把这个GetConn对象从类里返回来,返到   test.asp这个页,直接就用这个对象读取数据。
解决好使直接给分。

------解决方案--------------------
Set ConnDB = GetConn

相关解决方案

最新解决方案