Question

解除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

Answer 1

首先请问你是要问什么呢？？其次我想这段的执行时这样的：

1：得到访问的上一页的ComeUrl 并转成小写型字符串，

2：得到的ComeUrl不是空的，执行，先返回当前页面的服务器名，和http://重新组合成url给cUrl
3：mid比较冒号，取得端口号
4：就是先重组了地址，在比较地址，提交地地址如果和重组后的不一样就会提示错误了~~~

Answer 2

去掉外部地址判断试试