防止群发恶意注册

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

<%
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
%>

<%
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
%>