check.asp

来自「数据结构课程设计之最小生成数的K算法的实现 简短 简洁」· ASP 代码 · 共 22 行

<%
Name=Request.Form("name")
Password=Request.Form("password")
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("KYDB.mdb")
set rs= server.createobject("adodb.recordset")
SQL="SELECT * FROM user1 WHERE UserName='"& Name &"'"
Set LogonRS= conn.Execute(SQL) 
IF LogonRS.Eof Then
Response.Redirect "index.asp"
Else
	IF Password=LogonRS("UserPassword") Then
		Session("User")=LogonRS("UserName")
		Response.Redirect "main.asp"
	Else
		Response.Redirect "index.asp"
	End IF
End IF
Set logonRS=Nothing
%>