chklogin.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('请输入账号或密码！');history.go(-1);</Script>"
 		Response.End 	
	Else
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Sql = "Select * From userInfo Where name = '"&name&"'"
		Rs.Open Sql,conn,3,3
		
		If Rs.BOF Or Rs.EOF Then
			Response.Write "<Script>alert('您还没有注册，请注册！');history.go(-1);</Script>"	
 			Response.End 			
		ElseIf name = Rs("name") And pwd = Rs("pwd") Then
			Session("name")  = Rs("name")
			Session("id")  = Rs("id")
			Rs("login_time") = Now()
			Rs.Update
			id = Rs("id")
			Response.Redirect "BorrowBook.asp"
		Else 
    		Response.Write "<Script>alert('密码错误！');history.go(-1);</Script>"	
 			Response.End
 		End If
 	End If	
	Rs.Close
	Set Rs=nothing
	Conn.Close
	Set Conn=nothing	
%>