inc.asp

来自「asp学生信息管理系统」· ASP 代码 · 共 57 行

<%
Dim Login_Judges
Dim admin25175
Sub Login_Judge()
	Login_Judges=False
	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		
					session("admin_id")=admin25175(0)
					Login_Judges=True
				End If
			Else
				session("admin_id")=admin25175(0)
				Login_Judges=True
			End If
		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
					session("admin_id")=admin25175(0)
					Login_Judges=True
				End If
			Else
				session("admin_id")=admin25175(0)
				Login_Judges=True
			End If
		ElseIf session("25175_xx")<>"" Then
		admin25175=Split(session("25175_xx"),"||")
		Login_Judges=True
		End If
	End If
	If Login_Judges=False Then 
		response.cookies("25175_xx")=""
		response.cookies("25175_info")=""
		session("admin_id")=""
		response.write"<title>"&sitename&"</title>"
		errmsg="<li>你还没有登陆，或者登陆超时！！！<a href='login.asp'>请重新登陆"&sitename&"</a><li>"
		errormsg errmsg
	End If 
End Sub 

	
Sub Ispower(Nowpower)
	If Replace(admin25175(3),"*"&CStr(Nowpower)&"*","")=admin25175(3) Then 
		errormsg "您还没有权限进行当前操作,请与管理员联系!" 
	End If
End Sub


Sub restit(str1,str2)
res "<h1>"&str1&str2&"</h1>",1
End Sub 
%>