inc.asp

来自「学生证书查询管理系统2007 build1109D」· ASP 代码 · 共 36 行

<%
Dim Login_Judges
Dim admin25175,admin25175_time
Sub Login_Judge()
	Dim errmsg
	Login_Judges=False
	If session("admin25175")="" Then
		If request.cookies("admin25175")("xx")<>"" And md5(request.cookies("admin25175")("xx")&"||"&siteinfo(5,0))=request.cookies("admin25175")("info") Then
			admin25175=Split(request.cookies("admin25175")("xx"),"||")
			admin25175_time=request.cookies("admin25175")("Effective")
			Login_Judges=True
		End If
	Else
			admin25175=Split(session("admin25175"),"||")
			admin25175_time=session("admin25175_Effective")
			Login_Judges=True
	End If
	If Login_Judges=False Then 
		'response.cookies("admin25175")=""
		'session("admin25175")=""
		response.write"<title>"&sitename&"</title>"
		errmsg="<li>你还没有登陆，或者登陆超时！！！<a href='login.asp'><b>请重新登陆"&sitename&"</b></a>1<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 
%>