（ASP）外部连接地址限制

Question

以下是限制连接代码：
<%
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
%>
情况是这样的：我的后台管理路径是：登陆后，/admin在这里的所有连接都能显示出来，但是在admin文件里还包含另外一个文件admin/pic.当我连接到admin/pic这个文件里的时候，就被上面的语句限制了．哪位朋友帮忙一下，我该怎么改才？admin和admin/pic里的文件才能同时生效呢？谢谢

懂的朋友帮我改一下好吗？谢谢

Answer 1

if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then

改为

if lcase(left(ComeUrl,instrrev(ComeUrl,"/admin/")))<>lcase(left(cUrl,instrrev(cUrl,"/admin/"))) then