add.asp

asp新闻发布系统

<%
	'************add.asp************
	a_ip=request.servervariables("REMOTE_HOST")
	a_name = trim(Request("name"))						'取得表单姓名
	a_email= trim(Request("email"))
	a_homepage = trim(Request("homepage"))
	a_oicq = trim(Request("oicq"))
	a_from01 = trim(Request("from01"))
	if Request("reply")="False" then 
		a_reply="True"
	else
		a_reply="False"
	end if	
	a_memo = trim(Request("memo"))					' 取得愿望内容
	a_memo = Server.HTMLEncode(Request("memo"))
	a_memo = Replace( a_memo, vbCrLf, "<br>")
	a_memo = Replace( a_memo, "'", "''")
%>
<!--#include file="conn.asp"-->
<%
	SQLcmd = "Insert Into wish(name,memo,email,homepage,oicq,from01,reply,time01,ip) Values"
	SQLcmd = SQLcmd & "('" & a_name & "','" & a_memo & "','" & a_email & "','" & a_homepage & "','" & a_oicq & "','" & a_from01 & "'," & a_reply & ",now,'" & a_ip & "')"
	newconn.Execute SQLcmd
	Response.Redirect "index.asp"
%>