以下是代码片段: 打开文件 SoftDown.Asp 在: if request.QueryString("ID")="" then response.write "不能连接或者没有指定下载软件" response.end end if 的上面或者是下面加上下列代码 dim strReferer,domain,splDomain,isHttp isHttp=false ’本站下载系统网址列表,不要带上http:// domain="sron.net,61.156.14.223,61.156.14.227" splDomain=split(domain,",") strReferer=Request.ServerVariables("HTTP_REFERER") for iii = 0 to ubound(splDomain) if instr(strReferer,trim(splDomain(iii)))>0 then isHttp=True next if isnull(strReferer) or isHttp=false then Response.Write "下载链接来自其他网站,这是不允许的,<a href=""./"">请进入本站页面后再进行下载。</a>" CloseDatabase response.end end if |
新闻热点
疑难解答