<%
IF LePl<>"" then
	  	Dim Author,Content,mycode
		Author=Trim(Request.Form("Author"))
		Content=Trim(Request.Form("Content"))
		mycode = trim(request.form("code"))
	  	if Author="" or Content="" then
			Call Alert ("请填写完整再提交","-1")
		end if
		if mycode<>Session("getcode") then
		   Call Alert ("您输入验证码错误","-1")
		end if
	  	set rs = server.CreateObject ("adodb.recordset")
		sql="select * from Web_rui_v_Pl"
		rs.open sql,conn,1,3
		rs.addnew
		rs("cli")=Request.Form("cli")
		rs("Ioid")=request.Form("Inid")
		rs("Author")=Author
		rs("Content")=Content
		rs("ip")=Request.ServerVariables("REMOTE_ADDR")
		rs("ViewFlag")=Plsh
		rs("PostTime")=Now()
		rs.update
	  rs.close
	  set rs=nothing
      response.redirect request.servervariables("http_referer")
	  end if
%>