<%
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 
%>