admin_chk.asp

来自「信息管理系统 管理页面:admin/index.asp 用户和密码都是adm」· ASP 代码 · 共 33 行

<!--#include file=cookies.asp-->
<%
sub CloseConn()
	conn.close
	set conn=nothing
end sub

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
Response.Redirect "admin_login.asp"
	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.Redirect "admin_login.asp"
		response.end
	end if
end if

AdminName=replace(session("AdminName"),"'","")
if AdminName=Empty then
	call CloseConn()
	response.redirect "Admin_login.asp"


end if


%>