syslogincheck.inc.asp

21世纪人才www.51zy.net 网站源码

<%
Function CheckPermission()
	If Session("Sys_Admin")<>"" then 
		checkPermission=TRUE
	Else
		checkPermission=FALSE
	End if
End Function

Dim Tmpadmin
Tmpadmin = CheckPermission()
If Tmpadmin <> TRUE then
	response.redirect "Login.asp?Position=2"
End if
%>