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