inlogin.asp

asp学生信息管理系统

<!--#include file="md5.asp"-->
<%
Dim user25175,islogin
Sub user_Login_Judge()
islogin=False
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>"
				
			Else
				session("id")=user25175(0)
				islogin=True
			End If
		Else
			session("id")=user25175(0)
			islogin=True
		End If
	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")=""
			Else
				session("id")=user25175(0)
				islogin=True
			End If
		Else
			session("id")=user25175(0)
			islogin=True
		End If
	ElseIf session("user25175_xx")<>"" Then
		user25175=Split(session("user25175_xx"),"||")
		islogin=True
	End If
End If
'errmsg="<li>你还没有登陆，或者登陆超时！！！<br><li><a href='user_login.asp'>重新登陆"&sitename&"</a>"
'call errormsg(errmsg)
'response.end
End Sub 
'Call user_Login_Judge
%>