"翻开并创立数据库毗连
<!--#include file=conn.asp-->
<%
dim sql
dim rs
dim founduser
dim username
dim password
dim errmsg
dim founderr
founderr=false
FoundUser=false
"承受从login.asp前往的用户信息username,password
username=trim(request.form("username"))
password=trim(Request.Form("password"))
"假设用户名username和暗码password都为空,则前往login.asp页面
if username="" then
response.redirect "login.asp"
end if
if password="" then
response.redirect "login.asp"
end if
"使用username翻开纪录集admin中指定的纪录
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof then
"在指定纪录中假设前往的暗码password和数据库中的暗码相等,则将页面导向办理页面manage.asp,这里的response.cookies("adminok")=true是当用户为准确的时分,确认一个cookies,如许可以下次不必上岸直接可以进入办理页面
if password=rs("password") then
response.cookies("adminok")=true
response.redirect "manage.asp"
else
"假设暗码不准确,把页面导向上岸页面login.asp
response.redirect "login.asp"
end if
else
response.redirect "login.asp"
end if
"封闭数据库毗连
rs.close
conn.close
set rs=nothing
set conn=nothing
%>