中央論壇 - CENTER BBS

標題: ASP程序實現過濾髒話 [打印本頁]
作者: f66666602    時間: 2007-8-14 04:57
標題: ASP程序實現過濾髒話
  1. <!--#include file="../conn/dbconn1.asp"-->
  2. <!--#include file="../inc/safe.asp"-->
  3. <%
  4. content=Replace_Text(request.Form("content"))
  5. content=replace(content,"<","[")
  6. content=replace(content,">","]")
  7. newsid=Replace_Text(request.Form("newsid"))
  8. ip=request.Form("ip")
  9. rname=Replace_Text(request.Form("rname"))
  10. rname=replace(rname,"<","[")
  11. rname=replace(rname,">","]")
  12. 'username=Replace_Text(request.Form("username"))
  13. 'username=replace(username,"<","[")
  14. 'username=replace(username,">","]")
  15. '處理發表內容是髒話
  16. set rs=server.CreateObject("adodb.recordset")
  17. sql="select * from badword"
  18. rs.open sql,conn,3,3
  19. if rs.eof then
  20. response.Write("mei ziliao!")
  21. else
  22. on error resume next
  23. do while    not rs.bof and not rs.eof
  24. content=replace(content,rs.fields("word").value,"**")
  25. rname=replace(rname,rs.fields("word").value,"**")
  26. rs.movenext
  27. loop
  28. end if
  29. rs.close
  30. set rs=nothing
  31. ''''''''''''''''''''''''''''''
  32. set rs=server.CreateObject("ADODB.RecordSet")
  33. sql="select * from pl"
  34. rs.open sql,conn,3,3
  35. rs.addnew
  36. rs("content")=content
  37. rs("newsid")=newsid
  38. rs("ip")=ip
  39. rs("rname")=rname
  40. rs("username")=username
  41. rs.update
  42. rs.close
  43. %>
  44. <%
  45. set rsn=server.CreateObject("adodb.recordset")
  46. sqln="select newsid,plnum,plbz from news where newsid="&newsid&""
  47. rsn.open sqln,conn,1,3
  48. rsn("plnum")=rsn("plnum")+1
  49. rsn("plbz")=1
  50. rsn.update
  51. rsn.close
  52. %>
  53. <script>
  54. alert("成功發佈！")
  55. parent.location.href="shownews.asp?newsid=<%=newsid%>"
  56. </script>

複製代碼




歡迎光臨 中央論壇 - CENTER BBS (https://www.centerbbs.com/) Powered by Discuz! X3