<!--#include file="../../include/Conno.asp"-->
<!--#include file="../../include/function.asp"-->
<%
m_infoid=trim(request("infoid"))
 if isnumeric(m_infoid)=false or m_infoid="" then
 Call Msgbox("对不起，ID号错误！",1)
 Response.end
 end if
if request("ctype")="add" then
 if Trim(Request.form("txtCheckCode"))<>CStr(session("CheckCode")) then
   response.write "<script language=javascript>alert('您输入的确认码和系统产生的不一致，请重新输入！');this.location.href='"&m_infoid&".htm';</Script>"
   Response.end
 end if
 p_user=Trim(Request.Form("p_user"))
 if p_user="" then p_user="网友"
u_content=deleteHtmlTag(Request.Form("p_content"))
u_content=replace(u_content,"日","*")
u_content=replace(u_content,"操","*")
u_content=replace(u_content,"枪","*")
u_content=replace(u_content,"党","*")
u_content=replace(u_content,"法轮功","***")
u_content=replace(u_content,"迷魂","***")
u_content=replace(u_content,"安眠","***")
u_content=replace(u_content,"江泽民","***")
u_content=replace(u_content,"胡锦涛","***")
u_content=replace(u_content,"三级片","***")
u_content=replace(u_content,"腚","*")
u_content=replace(u_content,"妓","*")
u_content=replace(u_content,"娼","*")
u_content=replace(u_content,"阴蒂","*")
u_content=replace(u_content,"奸","*")
u_content=replace(u_content,"尻","*")
u_content=replace(u_content,"贱","*")
u_content=replace(u_content,"婊","*")
u_content=replace(u_content,"靠","*")
u_content=replace(u_content,"叉","*")
u_content=replace(u_content,"龟头","*")
u_content=replace(u_content,"屄","*")
u_content=replace(u_content,"赑","*")
u_content=replace(u_content,"妣","*")
u_content=replace(u_content,"肏","*")
u_content=replace(u_content,"尻","*")
u_content=replace(u_content,"屌","*")

 Set rs=Server.CreateObject("Adodb.RecordSet")
   mSql="Select * From info_mcomment"
   rs.open mSql,conn,3,3
     rs.AddNew
  rs("F_materid")=m_infoid
  rs("F_username")=p_user
  rs("F_value")=Trim(Request.Form("p_fen"))
  rs("F_text")=u_content
   rs("F_regtime")=now()
  rs.update
  rs.close
  set rs=nothing
 Response.Write("<script language=javascript>alert('信息发布成功。');window.location.replace('index.asp?ID="&m_infoid&"');</script>")
 end if
%>