• <strike id="qcr4x"><listing id="qcr4x"></listing></strike>

        <em id="qcr4x"><acronym id="qcr4x"></acronym></em>

          <rp id="qcr4x"></rp>
          <progress id="qcr4x"><track id="qcr4x"></track></progress>
          <button id="qcr4x"></button>

            久久精品天天中文字幕
              虛擬主機域名注冊-常見問題虛擬主機問題 → 虛擬主機問題


            非法關鍵詞過濾程序
            作者:
            <%
            '將以下內容添加您的論壇或者留言板的提交程序上進行過濾處理。


             '請根據您留言板或者論壇提交頁面的輸入框字段進行設置
             GuestBookTitle=trim(Request.Form("Title")) 'Title為留言本輸入框的標識名稱,根據您的實際情況進行修改。
             GuestBookConntent=trim(Request.Form("Content")) 'Content為留言本輸入框留言內容字段,根據您的實際情況進行修改。

             BadWord="出售迷幻藥@六合彩@高鶯鶯死亡@手機竊聽@成人小電影@激情視頻@成人電影@激情電影@出售槍支@槍支出售@大 紀 元@高鶯鶯之死@淫水@九評共產黨@淫電影@法*輪*功@真*善*忍@突 破 封 鎖@法 輪 功@九 評"

             '以下代碼為檢測內容是否包含需要屏蔽的字符
             '請不要修改
             SplitBadWords=split(BadWord,"@")

             for each SplitBadWord in SplitBadWords '循環分離出每一個非法字符
              if instr(GuestBookTitle,SplitBadWord)<>0 then '判斷留言標題是否包含非法字符
              Response.Write("對不起,您輸入的內容中包含非法字符,禁止提交!")
              Response.end()
              exit for
              end if

              if instr(GuestBookConntent,SplitBadWord)<>0 then '判斷留言標題是否包含非法字符
              Response.Write("對不起,您輸入的內容中包含非法字符,禁止提交!")
              Response.end()
              exit for
              end if
             next
            %>



            來源:
            閱讀:7591
            日期:2005/12/16

            【 雙擊滾屏 】 【 推薦朋友 】 【 收藏 】 【 打印 】 【 關閉 】 【 字體: 】 
            上一篇:我的郵箱不能接收國外的郵件,國內的可以接收,請解決!
            下一篇:用PHP在線發送郵件的例子!
              >> 相關文章