Êý¾Ý¿âÁ¬½ÓÎÊÌâ

lala

´íÎóÀàÐÍ£º
Microsoft VBScript ÔËÐÐʱ´íÎó (0x800A01BE)
¶ÔÏó²»Ö§³ÖÒÑÃüÃû²ÎÊý: 'rs.ActiveConnection'

Set rs.ActiveConnection = Conn Õâ¾äÔõô»áÓÐ´í£¿

¡î¶¬³æ²Ý¡î

<!-- #include file="Conn.asp"-->
<%
If IsEmpty(Session("Passed")) Then
   Session("Passed") = False
End If

If Session("Passed") = False Then
   UserName = Request.Form("UserName")
   UserPwd = Request.Form("UserPwd")

   If UserName = "" or UserPwd = "" Then
     Errmsg = "ÇëÊäÈëÓû§Ãû»òÃÜÂë"  
   Else
     Set rs = Server.CreateObject("ADODB.Connection")
     Set rs.ActiveConnection = Conn
     rs.CursorType = 3
     rs.Open "SELECT * FROM Users WHERE UserName='" & UserName & "'"
     If rs.EOF Then
       Session("Errmsg") = "Óû§Ãû²»´æÔÚ"
     Else
       If UserPwd <> rs.Fields("UserPwd") Then
      Session("Errmsg") = "Óû§ÃÜÂë²»ÕýÈ·"
    Else 'µÇ½³É¹¦
      Errmsg = ""
   Session("Passed") = True
      Session("UserName") = rs.Fields("UserName")
      Session("UserId") = rs.Fields("UserId")
      Session("Errmsg") = ""
    End If
     End If

ÕâÊÇÄǸöÎļþµÄÈ«²¿´úÂë

ïLß^aiqŸoºÛ

connÎļþÌû³öÀ´°É

©A¡ñ¡ñ©A

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/discuss.mdb")
Conn.Open
%>

30×óÓÒ½á´Î»é

Set rs = Server.CreateObject("ADODB.Connection") Set rs.ActiveConnection = Conn ×¢ÒâÕâÁ½¾ä»°Ê×ÏÈÓ¦¸ÃÊÇADODB.RecordSet²Å¶Ô°É£¿»¹ÓоÍÊÇ´´½¨ÁËrs¶ÔÏóÒÔºóÖ±½Órs.ActiveConnection=Conn²»ÓÃSetÁË¡£Ð޸ĺóΪ£º Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = Conn ¸ÄÍêÔÙÊÔÊÔ£¿

©a£¬

Set ÊÇÓÃÀ´ÔÚVBÀïÏÔʾ´´½¨¶ÔÏóÓõķ½Ê½Ò»°ã¶ÔÏóÒÔ´´½¨¾Í²»ÓÃSetÁË£¬³ýÁ˽«¶ÔÏóÏú»ÙʱÓÃSet rs=Nothing¡£

¡â¡þ¡á¡â¡þ¡á

Set rs = Server.CreateObject("ADODB.Connection") Set rs.ActiveConnection = Conn ×¢ÒâÕâÁ½¾ä»°Ê×ÏÈÓ¦¸ÃÊÇADODB.RecordSet²Å¶Ô°É£¿»¹ÓоÍÊÇ´´½¨ÁËrs¶ÔÏóÒÔºóÖ±½Órs.ActiveConnection=Conn²»ÓÃSetÁË¡£Ð޸ĺóΪ£º Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = Conn ¸ÄÍêÔÙÊÔÊÔ£¿

¾ÍÊÇÕâÀï´íÁËһʱ´ÖÐÄ