<!--#include file="conn.asp" -->
<%'提交评论
action=request.QueryString("action")
if action="save" then

set rs=server.createobject("adodb.recordset")
rs.open"select * from news_moban where newsid="&request("id")&"",conn,1,1
pathlink=rs("pathlink")
rs.close
function HTMLEncode2(fString)
fString = replace(fString, "</P><P>", "")
fString = replace(fString, ">", "")
fString = replace(fString, "<", "")
HTMLEncode2 = fString
end function
set rs=server.createobject("adodb.recordset")
rs.open"select * from news_pinglun",conn,1,3
rs.addnew
rs("newsid")=request("id")
rs("pingji")=request("pingji")
rs("channel")=request("channel")
rs("pinglunname")=trim(request("pinglunname"))
rs("pingluntitle")=trim(request("pingluntitle"))
rs("pingluncontent")=trim(request("pingluncontent"))
rs("ip")=Request.servervariables("REMOTE_ADDR")
rs("pinglundate")=now()
rs("shenhe")=1
rs.update
rs.close
response.Redirect"http://www.it532.cn/bigqd/mo/"&pathlink&""
end if
'评论结束%>