解析如何過濾不文明字符_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:ASP調(diào)用純真IP庫實例
      % ' ============================================ ' 返回IP信息 Disp_IPAddressData(IP,0) ' ============================================ Function Look_Ip(IP) Dim Wry, IPType, QQWryVersion, IpCounter ' 設(shè)置類對象 Set Wry = New TQQWry ' 開始搜

      <%
      Function badchar(str)
      badstr="不文明字符列表,用|分開(因發(fā)表時不能含有那些字符,所以不能貼出。)"
      badword=split(badstr,"|")
      For i=0 to Ubound(badword)
      If instr(str,badword(i)) > 0 then
      badchar=True
      Exit For
      Else
      badchar=False
      End If
      Next
      End Function

      Function cutbadchar(str)
      badstr="不文明字符列表,用|分開(因發(fā)表時不能含有那些字符,所以不能貼出。)"
      badword=split(badstr,"|")
      For i=0 to Ubound(badword)
      If instr(str,badword(i)) > 0 then
      str=Replace(str,badword(i),"×××")
      End If
      Next
      cutbadchar=str
      End Function
      %>

       

      分享:ASP實例:ASP實現(xiàn)空間的最近訪客
      由于工作關(guān)系,在做一個用戶空間。要用到空間的最近訪客,見ASP代碼: % username=request.QueryString(username) '地欄中的username,就是自己的用戶名了 if trim(request.Cookies(user_name)) Then '首頁要判斷該訪問是否登陸,只有登陸的訪問才能記

      來源:模板無憂//所屬分類:ASP教程/更新時間:2010-06-01
      相關(guān)ASP教程