<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<%
dim errmsg
errmsg=""

dim content,wzid

wzid=request.form("wzid")
ChkNumber(wzid)
content=trim(iHTMLEncode(request.Form("content")))

if content="" then errmsg=errmsg+"<br>"+"<li>内容不能为空！"
if checkshit(content) then  errmsg=errmsg+"<br>"+"<li>内容可能含不文明词语，请检查！"

if errmsg<>"" then 
response.Write "错误信息：<br>"
response.write("　　　"+ errmsg)
response.Write "<input type='button' value='返回修改' onClick='javascript:window.history.back(-1);'>"
response.Write "<input type='button' value='关闭窗口' onClick='javascript:window.close();'>"
response.end
end if

theip=GetIp

set rst=server.CreateObject("adodb.recordset")  
sql1="select * from jlbreply where id is null"
rst.open sql1,conn,1,3
rst.addnew
rst("username")=username
rst("userid")=userid
rst("newsid")=wzid
rst("ip")=theip
rst("content")=content
rst("dtime")=now()
rst.update
rst.close
set rst=nothing

conn.close
set conn=nothing
response.Redirect "wzcontent.asp?wzid="& wzid
%>