ch6-24-logincheck.asp

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· ASP 代码 · 共 23 行

<!-- #INCLUDE file="ch6-24-ADOFunction.asp"-->
<%
UserID=Trim(Request("ID"))				'取用户键入的用户ID
UserPassword= Trim(Request("Password"))		'取用户键入的用户密码
If (Id="" or Password="") Then 
    Response.Redirect "E6-24 Index.htm"
    Response.End
End If
Dim StrSQL, RS
'根据用户键入的用户ID和Password检索数据库是否有该用户
StrSQL="SELECT * FROM users WHERE Id=' "& UserId & " ' "
StrSQL= StrSQL & "AND Password=' "&UserPassword & " ' "
Set RS=GetRecordset(StrSQL)
If RS.EOF then 
    Response.Write "用户名或密码错误"
    Response.End
End If
Response.Cookies("Id")=UserID
Response.Cookies("Password")=UserPassword
Response.Cookies("Passed")="Passed"			'设置校验通过的Cookie值
Response.Redirect"ch6-24-BbsGroup.asp"
%>