chkadmin.asp

图书管管理系统

<!--#include file="Conn.asp"--> 
  <% 
		Dim name
		Dim pwd
		name = Trim(Request.Form("name"))
		pwd  = Trim(Request.Form("pwd"))
		
		If name = "" Or pwd = "" Then
			Response.Write "<Script>alert('请输入您的用户名或密码！');</Script>"
			Response.End		
		Else
			Set Rs = Server.CreateObject("ADODB.Recordset")
			Sql = "Select * From adminInfo Where name='"&name&"'"
			Rs.Open Sql,conn,3,3
								
			If Rs.EOF Or Rs.BOF Then
				Response.Write "<Script>alert('用户名错误，请重新输入！');</Script>"
				Response.End			
			ElseIf Rs("name") = name And Rs("pwd") = pwd Then
				Session("admin") = Rs("name")				
				Response.Redirect "AdminBorrow.asp"
			Else
				Response.Write "<Script>alert('密码错误，请重新输入！');</Script>"
				Response.End	
			End If		
			Rs.Close
			Set Rs = nothing
			Conn.Close
			Set Conn = nothing
		End If			
  %>