"打開并建立數據庫連接 <!--#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 %>
