<!--#include file="Include/Config.asp"-->
<!--#include file="Include/lun_conn.asp"-->
<%  
'On Error Resume Next
newsid=request("newsid")
'判断是否来自JS调用
'增加评论内容
times=date()
'mg=request("comment")
mg=funstrs(request.Form("comment"))
mg=Joleo.HtmlStr(mg)
mg=replace(mg,"""","“")
username=request("author")
if newsid="" or username="" then
  getshow "评论信息不完全!",""
end if
set rsb=rsfunm("insert into lun(pid,newsid,mg,username,times,show) values (0,'"&newsid&"','"&mg&"','"&username&"','"&times&"',true)",3)
getshow "评论添加完成!",url
'增加记录结束
  set rsb=nothing
'connclose
%>