Question

我下载的一个网站,发到单位服务器中竟然进不了后台

情况是这样的:
我下载的一个网站,修改后在我们单位的服务器中运行还比较正常,可进入后台时,地址中出现了单位服务器的IP,就不让我进去了,老是出现“对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。”打开相应的文件我想作修改的，发现以下的代码，不知道有没有高手指教一下，救命啊~~~
' ============================================
' 判断是否直接输入地址访问本系统的后台管理页面
' ============================================
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

检查代码。后台登陆设置。