inc.asp

来自「任务：参加运动会有n个学校」· ASP 代码 · 共 54 行

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