save_hope.asp

来自「这个就是受到众人喜爱的许愿墙了」· ASP 代码 · 共 23 行

<!--#include file="inc/conn.asp"-->
<%
HopeAuthor = Request.Form("HopeAuthor")
HopeColor = Request.Form("HopeColor")
HopeContent = Request.Form("HopeContent")
Pic = Request.Form("Pic")

set rs=conn.execute("select filtername from filter")

do while not rs.eof
	HopeContent=replace(HopeContent,rs(0),"")
	HopeAuthor=replace(HopeAuthor,rs(0),"")
	rs.movenext
loop
set rs=nothing

IP=Request.ServerVariables("REMOTE_ADDR")

Conn.execute("Insert Into love(HopeAuthor,HopeContent,HopeColor,Pic,HopeDate,IP) values ('" & HopeAuthor &"','" & HopeContent & "','"& HopeColor & "','"& Pic & "','"&now()&"','"& IP & "')")
CloseConn()
Response.write "<script>alert('\n\n粘贴祝福纸条成功!!!\n\n返回首页查看祝福!\n\n');location.href='index.asp';</script>"
%>