动网论坛防止注册机注册的办法

蓝雨

找到注册文件，即论坛根目录的reg.asp或者你自己定义的文件 查找: <% \'------------防止注册机注册开始 Dim come,comehost,host come=request.servervariables(\"HTTP_REFERER\") \'获取来源页面URL host=request.servervariables(\"HTTP_host\") \'获取所请求的本站域名 if come=\"\" Then \'如果直接打开注册文件执行此操作 response.write(\"对不起，本站禁止从外部提交注册！如需注册，请点这里。。。\") response.end else \'如果是从非本站网站上提交注册，则拒绝访问。可以变态一点. comehost=split(right(come,(len(come)-7)),\"/\") \'从来源页面URL中提取域名 If comehost(0)<>host then response.write(\"本系统发现您试图非法访问本站，本系统自动拒绝您的访问并记录日志！\") response.End End if end If \'------------防止注册机注册结束