郁闷的很，新站刚上来，就有人利用个人空间发布垃圾博文，一看每篇文章简隔不到30秒，估计是机器人所为，在后台也没有发现可以防止的办法，除了审核，所以我就自己动手，在用户发表博文时，需要输入验证码，把自己改造过程附上，一并大家检验！

1、打开  User\User_Blog.asp 文件：

找到以下代码：

    Private TypeID,Title,Tags,UserName,Face,Content,Status,PicUrl,Action,I,ClassID,password

将上述代码用以下代码替换：

    Private TypeID,Title,Tags,UserName,Face,Content,Status,PicUrl,Action,I,ClassID,password,ValidCode

2、同样是该文件，找到以下代码：

                              <tr class="tdbg">

                                 <td height="25" align="center"><span>查看密码：</span></td>

                                <td> <input name="Password"  class="textbox" type="password" id="PassWord" value="<%=PassWord%>" style="width:250px; " />

                                        <input name="Status" type="checkbox" value="1" <%If Status=1 Then Response.Write " checked"%> />

放入草稿箱 </td>

                              </tr>

   在该代码下插入下面红色代码：

           <tr class="tdbg">

         <td height="25" align="center">验证码：</td>

         <td><input name="ValidCode"  class="textbox" type="text" id="ValidCode" value="" style="width:100px; " /><IMG style="cursor:pointer;" src="../plus/verifycode.asp?n=<%=Timer%>" align="absmiddle"></td>

         </tr>

3、同样在该文件下找到以下代码：

         if (Editor.getEditorContents()=="")

     {

       alert("请输入博文内容！");

       return false;

     }

   在该代码下插入以下红色代码：

       if(document.myform.ValidCode.value=="")

      {

     alert("请输入验证码！");

     document.myform.ValidCode.focus();

     return false;

      }

4、依然是该文件，找到以下代码：

      If Content="" Then

        Response.Write "<script>alert('你没有输入博文内容!');history.back();</script>"

        Exit Sub

      End If

  在该代码下插入以下红色代码：

     If ValidCode<>Trim(Session("Verifycode")) Then

        Response.Write "<script>alert('验证码输入不正确!');history.back();</script>"

        Exit Sub

      End If

5、感谢二楼朋友提醒，由于是完成后写的这篇文章，所以疏忽了，补上：

   找到函数

   Sub DoSave()

     在该行下插入代码

   ValidCode=KS.S("ValidCode")

   6、保存，完事，可以测试了！

最后附上修改完后的文件，供像我一样懒的菜鸟笑纳！

下载信息  [文件大小：13.12 KB 下载次数： 次]

点击下载文件:User_Blog

呵呵，好像还有问题的，编辑博文后发布会提示“验证码输入不正确”。在Sub DoSave()这段函数里面好像霉看见ValidCode输出。暂时我加了句代码

ValidCode=KS.S("ValidCode")

你再测试下。

哈哈，搞定了。

用系统的标签{$GetPictureSearch}，那调用的是JS代码。要改

ks_cls/kesion.administratorcls.asp文件里的,增加显示验证码。

      SearchJS = SearchJS & "        <input name=""KeyWord"" type=""text"" class=""textbox""  value=""关键字""this.select();""/>" & vbCrLf
      
      SearchJS = SearchJS & "        <input name=""Verifycode"" type=""text"" class=""textbox""  value=""""this.select();""/><IMG style=""cursor:pointer;"" src=""../plus/verifycode.asp"" align=""absmiddle"">" & vbCrLf
      
      SearchJS = SearchJS & "        <input name=""ChannelID"" value=""" & channelid & """ type=""hidden"" />" & vbCrLf

plus/search.asp里

找到

  Sub PhotoSearch()
   Dim SqlStr,Param,ValidCode
   
   ValidCode=KS.S("Verifycode")
  IF ValidCode<>Trim(Session("Verifycode")) then
    Response.Write "<script>alert('验证码输入不正确!');history.back();</script>"
   exit Sub
  end if   

  SqlStr="Select * From " & KS.C_S(Channelid,2)

红色部分是添加的。嘿嘿！