論壇防註冊機發帖程式碼-dvbbs

方法一：

<% 『——-針對資訊產業局伺服器一流資訊監控的動網防廣告程式碼 『說明:防註冊機核心檢測程式碼 『–檢測當前是否訪問reg.asp 即進行註冊的相關操作 If server.mappath(Request.ServerVariables("SCRIPT_NAME")) = Server.MapPath("reg.asp") Then 『判斷Session對象是否被賦值 If Session("AllowReg") <> 1 Then Response.Write("<script language=""javascript"">" & VbCrLf) Response.Write("<!–" & VbCrLf) Response.Write("alert (""論壇啟用了新防註冊機機制,給您註冊時帶來的不便，敬請原諒！"");" & VbCrLf) Response.Write("alert (""註冊前請您先瀏覽論壇任意版塊中的任意一個帖子，既可註冊！"");" & VbCrLf) Response.Write("window.location.href = ""index.asp"";" & VbCrLf) Response.Write("// ->" & VbCrLf) Response.Write("</script>" & VbCrLf) Response.End End if End if

『檢測是否在查看公告頁面 If server.mappath(Request.ServerVariables("SCRIPT_NAME")) = Server.MapPath("dispbbs.asp") Then If Session("AllowReg") <> 1 Then Session("AllowReg") = 1 End if End if

%> 

複製到CONN裡面，或每個頁面都會調用的頁面也行

方法二：

第一步：增加註冊必填項目

動網默認風格分頁面模板(page_login)介面風格管理template.html(13) 找到：

<script language="JavaScript" src="inc/Mymodify.js" type="text/javascript"></script>

在下面加入：

<script language="JavaScript"> <!– function DaoAuto_onclick(){ var user2=""; var user1=document.theForm.{$username}.value; if (user1=="") { alert("你不會吧，用戶名都沒填寫怎麼能生成倒填項！"); } else{ Koomv_length=parseInt(user1.length); for (i=1;i<=Koomv_length;i++) { user2=user2+user1.charAt(Koomv_length-i); } document.theForm.username_che.value=user2; } } //–> </script>

再找到：

<td width="40%" class="tablebody1"><input type="hidden" name="{$hidden}" value="{$hidden}"> <b>用戶名</b>：<br />註冊用戶名長度限制為{$NameLimLength}－{$NameMaxLength}位元組</td> <td width="60%" class="tablebody1"> <input name="{$username}" id="{$username}" type="text" size="30" maxlength="{$NameMaxLength}" onkeyup="dv_ajaxcheck(『checkusername』,'{$username}』);" style="float:left"/> <div id="isok_{$username}" class="forminfo"></div> </td> </tr> {$getcode}

在下面加入：

<TR> <TD class=tablebody1><B>用戶名倒填項</B>：<BR><font color="red">為防止暴力註冊，請將你的用戶名倒填一下</font><br>如「<font color="blue">葛洲壩娛樂吧</font>」填為：「<font color="blue">吧樂娛壩洲葛</font>」，請按自動倒填按鈕！</TD> <TD class=tablebody1> <input type="text" name="username_che" size="30" readonly="true"> <input type="button" name="DaoAuto" value="點擊自動填寫倒填項!!" onclick="DaoAuto_onclick()"> </TD> </TR>

第二步：倒填檢測項修改（reg.asp文件）

用記事本打開reg.asp文件，找到：

『防止填寫QQ號碼為非數字類型 2005-3-22 Dv.Yz If Isnumeric(Request.Form("OICQ")) Then Qq = Int(Request.Form("OICQ")) Else Qq = "" End If

在下面加入：

『防暴力用戶名倒填判斷檢測程式碼開始 dim username_che,rosLen,name_D,koomv_name If Request.form("username_che")="" Then Response.redirect "showerr.asp?ErrCodes=<li>葛吧提醒：請您填寫好用戶名倒填項，否則無法註冊哦！&action=OtherErr" Else koomv_name=Request.form("username_che") rosLen=Len(koomv_name) do while rosLen<>0 name_D=name_D+mid(koomv_name,rosLen,1) if rosLen=0 then exit do else rosLen=rosLen-1 end if loop username_che=name_D If username_che<>username Then Response.redirect "showerr.asp?ErrCodes=<li>葛吧提醒：你倒填的用戶名沒有通過系統驗證，為了鍛煉你的逆向思維，請繼續！！&action=OtherErr" End If End If 『防暴力用戶名倒填判斷檢測程式碼結束

Tags:

VirMach 便宜 VPS