www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > admin/include/checkPurview.asp

    <%

'dim ComeUrl,cUrl
'ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
'if ComeUrl="" then
'	response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
'	response.end
'else
'	cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
'	if mid(ComeUrl,len(cUrl)+1,1)=":" then
'		cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
'	end if
'	cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
'	if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
'		response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
'		response.end
'	end if
'end if

if session("adminName")="" then
	Response.Redirect( projectRootPath & "index.asp")
End If
%>