inlogin.asp

这是一个学生档案管理系统,欢迎大家下载使用哈!

<!--#include file="md5.asp"-->
<%
Dim user25175
Sub user_Login_Judge()
If session("id")="" Then
	If request.cookies("user25175_xx")<>"" And md5(request.cookies("user25175_xx")&"||25175")=request.cookies("user25175_info") Then
	user25175=Split(request.cookies("user25175_xx"),"||")
		If user25175(5)<>0 Then
			If Int(DateDiff("s",user25175(4),Now()))>int(user25175(5)) Then
				response.cookies("user25175_xx")=""
				response.cookies("25175_info")=""
				session("id")=""
				response.write"<title>"&sitename&"</title>"
			  errmsg="<li>你还没有登陆，或者登陆超时！！！<br><li><a href='user_login.asp'>重新登陆"&sitename&"</a>"
			  call errormsg(errmsg)
			  response.end
			Else
				session("id")=user25175(0)
			End If
		Else
			session("id")=user25175(0)
		End If
	Else
	  response.write"<title>"&sitename&"</title>"
	  errmsg="<li>你还没有登陆，或者登陆超时！！！<br><li><a href='user_login.asp'>重新登陆"&sitename&"</a>"
	  call errormsg(errmsg)
	  response.end
	End If
Else
	If request.cookies("user25175_xx")<>"" And md5(request.cookies("user25175_xx")&"||25175")=request.cookies("user25175_info") Then
	user25175=Split(request.cookies("user25175_xx"),"||")
		If user25175(5)<>0 Then
			If Int(DateDiff("s",user25175(4),Now())) > int(user25175(5)) Then
				response.cookies("user25175_xx")=""
				response.cookies("user25175_info")=""
				session("id")=""
				response.write"<title>"&sitename&"</title>"
				errmsg="<li>你还没有登陆，或者登陆超时！！！<br><li><a href='user_login.asp'>重新登陆"&sitename&"</a>"
				call errormsg(errmsg)
				response.end
			Else
				session("id")=user25175(0)
			End If
		Else
			session("id")=user25175(0)
		End If
	ElseIf session("user25175_xx")<>"" Then
	user25175=Split(session("user25175_xx"),"||")
	End If
End If
End Sub 
Call user_Login_Judge
%>