"開啟並建立資料庫連接
<!--#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
%>