QDuck
<%@ language="VBscript"%>
<%dim conn
set conn=server.createobject("adodb.connection")
constr="DBQ="+server.mappath("asd/argg.mdb")+";driver={Microsoft Access Driver (*.mdb)}"
conn.open constr
%>
这是连接的几行代码

<%dim rs
userID=request.form("userID")
passwd=request.form("passwd")
set rs=server.createobject("adodb.recordset")
sql="select * from user where username=\'"&userID&"\'"
rs.open sql,conn,1,3
if not rs.eof then
   if rs("password")=md5(request.form("passwd")) then
      session("userID")=rs("username")
      session("userpass")=rs("password")
      rs.close
      conn.close
      set rs=nothing
      set conn=nothing
      response.redirect "liuyan.asp"
      response.end
   else
      rs.close
      conn.close
      set rs=nothing
      set conn=nothing
      response.redirect "error.asp?mis=1"
      response.end
   end if
else
   rs.close
   conn.close
   set rs=nothing
   set conn=nothing
   response.redirect "error.asp?mis=1"
   response.end
end if
%>
是个小例子哦!希望大家看的明白!

分类:

技术点:

相关文章: