save.asp

搭建智元软件公文传输系统运行环境(搭建智元软件公文传输系统运行环境转载)

<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<%
txtname=trim(request("txtname"))
txtcome=trim(request("txtcome"))
txtsubject=trim(request("txtsubject"))
txtcontent=trim(request("txtcontent"))

if txtsubject=""  then
	    response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('留言标题不能空。');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end If

if txtcontent=""  then
	    response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('留言内容不能空。');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end If

txtname=server.htmlencode(txtname)
txtcome=server.htmlencode(txtcome)
txtsubject=server.htmlencode(txtsubject)
txtcontent=server.htmlencode(txtcontent)
reply = "没有"

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from enet"
rs.open sql,conn,3,2
rs.addnew

		rs("name")=txtname
		rs("subject")=txtsubject
        rs("come")=txtcome
		rs("content")=txtcontent
		rs("dateandtime")=now()
		rs("reply")=reply
		rs("ip")=Request.ServerVariables("REMOTE_HOST")
		rs.update
		rs.close
		response.redirect "index.asp"
%>