logincheck.asp

tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的功能

<% 
	session("user_no")
	session("user_name")
	session("user_depart")
	session("user_borrownumber")
	session("user_describe")	
	session("adm_no")
	session("adm_name")
	
   dim loginname
   dim loginpass
   dim select1
   loginname = request("loginname")
   loginpass = request("loginpass")
   select1   = request("select1")
	
	dim strConn
	dim strSQL
	dim objrst  


 if select1 = "管理员" then
 	

	strConn = "DSN=dblib;uid=;pwd=;database=db"
	strSQL = "select * from Tadm where admname ='" & loginname & "' and admpass='" & loginpass & "'"
   '  strSQL ="select * from Tadm where admname = 'adm' and admpass ='adm' "
	set objrst = GetADORecordset(strConn,strSQL)

		if objrst.bof and objrst.eof then
		
			response.redirect  "loginerror.htm"
		else
			session("adm_no") =objrst.fields("admno")
			session("adm_name") =objrst.fields("admname")
			response.redirect  "admlogin.asp"
		end if

else
	

	strConn = "DSN=dblib;uid=;pwd=;database=db"
	strSQL = "select * from Tuser where username = '"& loginname & "' and userpass= '" & loginpass&"'"

	set objrst = GetADORecordset (strConn,strSQL)

		if objrst.bof and objrst.eof then
		
			response.redirect  "loginerror.htm"
		else
						
			objrst.movefirst
			session("user_no") = objrst.fields("userno")
			session("user_name") = objrst.fields("username")
			session("user_depart") = objrst.fields("depart")
			session("user_borrownumber") = objrst.fields("borrownumber")
			session("user_describe") = objrst.fields("describe")
			
			
			response.redirect  "userindex.htm"
		end if

end if


'======================================================================
'  GetADORecordset -- Gets an ADO recordset given a connectionstring,
'  sql query string.
'
'==============================
Function GetADORecordset(strConn, strSQL)
	On Error Resume Next
	 
	Dim objConnection
	Dim objRecordset
	
	Err.Clear 
	
	' Setup an ADO connection to the database:
	Set objConnection = Server.CreateObject("ADODB.Connection")
    Set objRecordset = Server.CreateObject("ADODB.Recordset")
    
    objConnection.ConnectionString = strConn
    objConnection.Open
    Set objRecordset.ActiveConnection = objConnection
    objRecordset.Source = strSQL
    objRecordset.CursorLocation = 3
    objRecordset.Open
	
	If Err Then
		Set GetADORecordset = Nothing
		If Not HaveError() Then
			SetError "GetADORecordset", Err.number, Err.Description
		End If
	Else
		Set GetADORecordset = objRecordset
	End If 
End Function

%>