(ASP)外部连接地址限制
来源:百度知道 编辑:UC知道 时间:2024/09/22 12:29:59
以下是限制连接代码:
<%
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在这里的所有连
<%
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在这里的所有连
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
HTTP_REFERER
是取得上一个页面的地址
当你在/admin访问admin/pic的时候。
HTTP_REFERER取得的是http://XX/admin/X.asp
而admin/pic的文件经过代码后取得的cUrl是http://XX/admin/pic/X.asp
然后被你的instrrev判断,就变成了"http://XX/admin/"<>http://XX/admin/pic/ = 真
自然就被禁止了。
如何修改?
你可以更改http://XX/<>(ASP)外部连接地址限制
怎样用asp外部连接sql数据库?
如何禁止FLASH 连接外部地址
ASP 获取MAC地址 限制
EXCEL外部连接问题
tl431的外部连接
网站外部连接
如何用ASP隐藏自己站点上引用的外部图片真实地址?
ASP主页如何调用外部ASP页面
我的网页asp的,为什么firefox不应用css样式表,IE正常,采用外部连接css