| 以下是代碼片段： 打開文件 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 |
新聞熱點
疑難解答
