checkadminlogin.asp

来自「asp开发 asp开发 asp开发 asp开发」· ASP 代码 · 共 36 行

<!-- #include file="..\auctionlib.asp" -->
<!-- #include file="admconfig.asp" -->
<%
Call DoPageHeader
Call OpenDBConn
Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
sSQL = "Select ID, username, password, admin FROM Registration"
Set rs = GobjConnect.Execute(sSQL)   

adName = rs.Fields("username")
adPass = rs.Fields("password")

   Session("LoggedOn") = ""
   sName=Request.Form("loginName")
   sPassword=Request.Form("password")   
	Response.Write("<CENTER>")
		If sNAME=adName AND sPassword=adPass THEN
			logininfo=True
			Session("LoggedOn") = "YES"
			Response.Write("登录信息正确，您已经登录系统管理!<BR>")	
			Response.Write("请使用左边的超级链接使用系统管理功能")
		Else
			Response.Write("对不起! 您的登录资料错误<BR>")
			Response.Write("<A HREF=""adminlogin.asp"">单击这里</A>再试一次")
		End If
	Response.Write("</CENTER><IMG border=""0"" SRC=""http://www.responsewrite.com/pics/0005.gif"">")

Call DoPageFooter

rs.Close
Set rs = Nothing
Call CloseDBConn

%>