asp代碼解除判斷是否直接輸入地址訪問本系統的後臺管理頁面的限制

dim rsGetAdmin,sqlGetAdmin

dim ComeUrl,cUrl

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))

if ComeUrl<>"" then

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