用户登录- ASP教程-

<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
' response.write ""&sql&""
' response.end
rs.open sql,conn,1,1
  if not(rs.bof and rs.eof) then
  if password=rs("password") then
response.cookies("users")("username")=username
response.cookies("users")("userpass")=password
Session("admin")=True

Response.Redirect "main.asp"

  end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>

利用cookies登录
if Request("action")="exit" then
response.cookies("users")("username")=""
response.cookies("users")("userpass")=""
Session("admin")=False
Response.redirect"login7.asp"
end if
if Session("admin")<>True then
Response.Redirect "login7.asp"
end if