user.asp

《动态网页设计基础教程》,胡杰,科学出版社

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'获取用户名和密码
StrUserName=Request.Form("UserName")
StrUserPassword=Request.Form("UserPassword")
'创建与数据库的连接
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("BookSys.mdb")
'建立查存字符串
StrSQL="Select * From Users Where UserName='"&StrUserName&"' And UserPassword='"&StrUserPassword&"'"
Set Rs=Conn.Execute(StrSQL)
'验证用户
If Rs.EOF Then
	Response.Redirect "UserLogin.asp"
Else
	Session("UserName")=Rs("UserName")
	Session("UserLevel")=Rs("UserLevel")
	Response.Redirect "BookEdit.asp"
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>