直接用一个商业站解读吧
http://www.hxbjpzs.com/userreg.asp

第一步需要输入验证码：
form什么的，自己写，asp的贴出来了。

 

<%
if trim(request("me"))="hxbjpzs.com" then
response.Redirect("UserReg_1.asp")
end if
%>



如果输入的等于 hxbjpzs.com 则进入 UserReg_1.asp ，错误则不变。

userreg1.asp 文件头部加代码

 

<%
dim ComeUrl,cUrl,AdminName
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
        response.write "<br><p align=center><font color='red'>A6保健品招商联盟！ powerd by A6bjp.com</font></p>"
        response.end
else
        cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
        if mid(ComeUrl,len(cUrl)+1,1)=":" then
                cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
        end if
        cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
        if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
                response.write "<br><p align=center><font color='red'>A6保健品招商联盟 powerd by A6bjp.com</font></p>"
                response.end
        end if
end if
%>



进入后，公司名这有个判断。稍微复杂了点。如果继续被人恶意群发，可以联系我，我给你代码。

最底部是一个加法，中文的我试验过，还是被人群发注册。。最后找了个加法的。

post页面头部文件：

 

<%
dim ComeUrl,cUrl,AdminName
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
        response.write "<br><p align=center><font color='red'>A6保健品招商联盟！ powerd by A6bjp.com</font></p>"
        response.end
else
        cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
        if mid(ComeUrl,len(cUrl)+1,1)=":" then
                cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
        end if
        cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
        if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
                response.write "<br><p align=center><font color='red'>A6保健品招商联盟 powerd by A6bjp.com</font></p>"
                response.end
        end if
end if
mm=trim(request("mm"))
if mm="" then
        response.Write("<script>alert('请填写验证码!');history.back(0);</script>")
        response.end()
end if

if cstr(session("getcode"))<>cstr(mm) and mm<>"" then
   freetime=1
   url1="javascript:history.back();"
   Response.Write "<link href='../files/css.css' rel='stylesheet' type='text/css'>"
   response.write "<table  align=center class=bby><tr><td>验证码错误</td></tr></table>"
   response.write "<meta http-equiv=""refresh"" content="""&freetime&";url='"&url1&"'"">"
   Response.End
end if
%>



看这个需要有点基础，拿去套上基本就可以防止群发了。

http://www.seo80.com/seo/155.html