login.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 26 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% '取得用户输入的用户名和密码 
strUsername=Request.Form("Username")
strPassword=Request.Form("Password")
'创建与数据库的连接
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("CourseSys.mdb")
strSQL="Select * From Account Where UserName='"&strUsername&"' And Password='"&strPassword&"'"
Set Rs=Conn.Execute(strSQL)
If Rs.EOF Then
	'无此用户
	Response.Redirect "illegal.asp"
Else
	Session("UserName")=Rs("UserName")
	Session("Password")=Rs("Password")
	Session("UserLevel")=Rs("UserLevel")
	Session("Userno")=Rs("Userno")
	'进入网站的网页
	Response.Redirect "Mainmenu.asp"
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
%>