Question

asp网站后台登陆显示：对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。高人指教

网站程序在本地测试没问题，传到空间访问受限。
请问如何屏蔽下面这段判断代码，在网上看了相似的问题都不能解决，
删掉这段代码是不行的，注掉（response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"）也是不行的。
跪求高人指教！

sub ComeUrl
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
end sub

Answer 1

更换为下面的代码即可
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
end if

Answer 2

把
sub ComeUrl
和
End Sub
之间的代码删除，剩余
sub ComeUrl
End Sub
让他成为一个空函数，调用这个函数也不会有什么执行结果。你要能找到调用这个函数的地方可以找到后注释或删除这个函数的调用也可以。