ASP程序實現過濾髒話

f66666602

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>
    
57. 
    

複製代碼