欢迎光临

木子屋

标题: 新云允许链接本站的域名设置失效分析

作者: dnawo

日期: 2009-04-22 04:34 PM

分类: 程序修改

内容: 在NewAsp CMS Version 4.0.0 SP1的后台常规设置中有一项允许链接本站的域名，通过设置可以允许其他站点链接使用本站的资源(外链)：
奇怪的是如上图示已经在XX站后台设置允许www.mzwu.com外链，但从mzwu上转到资源下载链接时还是跳转到了防盗链页面，允许链接本站的域名设置失效了！什么原因呢？搜索到新云防盗链相关代码：
复制内容到剪贴板 程序代码Public Function CheckOutLinks()
On Error Resume Next
Dim server_v1,server_v2,i,Allowlists
CheckOutLinks=False
If Trim(MainSetting(49))="*" Then
CheckOutLinks=True
Exit Function
End If
server_v1 = LCase(Request.ServerVariables("HTTP_REFERER"))
server_v2 = LCase(Request.ServerVariables("SERVER_NAME"))
Allowlists = server_v2&","&MainSetting(49)
Allowlists=Split(LCase(Allowlists),",")
If Len(server_v1)>1 Then
If InStr(9,server_v1,"/")>0 Then server_v1=Mid(server_v1,1,InStr(9,server_v1,"/"))
For i=0 to Ubound(Allowlists)
If InStr(server_v1,Allowlists(i))>0 And Len(Allowlists(i))>1 Then
CheckOutLinks=True
Exit For
End If
Next
Else
CheckOutLinks=False
End If
End Function
代码没问题，难道Request.ServerVariables("HTTP_REFERER")接收有问题？在XX站上增加了一个页面专门获取HTTP_REFERER的值并显示，得到的是空值！最终发现是mzwu上使用Response.Redirect在服务器端跳转到资源地址下载，而使用Response.Redirect跳转Request.ServerVariables("HTTP_REFERER")获取不到值，目前没有解决方法

+ 查看当前日志评论 (0)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.184 ms

返回

标题: 新云允许链接本站的域名设置失效分析

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.184 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.211 ms

返回