高手的路0.0000005----不知所错

楼主 lyz8182 于 2003-05-28 21:25:14
高手的路0.0000005----不知所错
<%
     set conn=server.createobject("adodb.connection")
     str1="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("同学情况.mdb")
     conn.open str1
 
     set rs=Server.CreateObject("ADODB.Recordset")
     rs.open "表1",Conn,1,2

 
               name=request.form("name")
               pass=request.form("pass")
              
flag=0
 response.write"2"
 response.write rs(0).value
 response.write rs(1).value
 while not rs.eof          
      if rs(0).value=name and rs(1).value=pass then
         response.write"1"
         for i=0 to rs.count-1
             'response.write rs(i).value
         next    
          flag=1  
      end if    
      rs.movenext
 wend
      if flag=0 then
          response.write "你还没有注册或是你的密码错误"          
      end if
      rs.close
      set conn=nothing          
%>
回复
1 　

电脑版 Page created in 0.0312 seconds with 2 queries.