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" %>