login.asp

类似易趣的网上竞拍系统

<%@ language="vbscript" %>

<%

name=request("username")
pass=request("password")

set conn=server.createobject("ADODB.connection")
conn.open "DBQ=" & server.MapPath("datebase.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)}"

set rs=conn.execute("select * from userlist where 用户名='" & name & "'")
if rs.eof then%>
错误，没有这个用户！
<a href="login.htm">返回</a>
<%response.end
else
  if pass=rs("密码") then%>
     登录成功
  <%session("username")=name
  else
  %>密码错误
   <a href="login.htm">返回</a>
   <%
  end if
end if
%>