www.gusucode.com > 元旦新年祝福小程序 > 元旦新年祝福小程序/softhy664h/newyear/wish_ok.asp

    <%
	'************add.asp************
	a_ip=request.servervariables("REMOTE_HOST")
	a_name = trim(Request("name"))				'取得表单姓名
	a_hname= trim(Request("hname"))
	a_hoicq = trim(Request("hoicq"))
	a_oicq = trim(Request("oicq"))
	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,hname,hoicq,oicq,reply,time01,ip) Values"
	SQLcmd = SQLcmd & "('" & a_name & "','" & a_memo & "','" & a_hname & "','" & a_hoicq & "','" & a_oicq & "'," & a_reply & ",now,'" & a_ip & "')"
	newconn.Execute SQLcmd
	Response.Redirect "index.asp"
%>