login.asp

数据结构课程设计之最小生成数的K算法的实现 简短 简洁

<%
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 LogonRS=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
%>