|
用USER_AGENT防止页面被下载
Dim UserAgent,path
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览论坛！"
Response.End
禁止用“另存为”保存页面：将下面的代码自制到<body></body>中
<noscript>
<iframe scr="*.htm"></iframe>
</noscript>
2006/1/5 13:31:00
Posted by agoodman | 阅读全文 | 回复(0) | 引用通告 | 编辑 | 收藏该日志
|