msg_save.asp

来自「网站源码」· ASP 代码 · 共 47 行

<!--#include file="setup.asp" -->

<% 
waring="请仔细填写相关信息,资料!!!"

if len(request("name"))=0 or len(request("tel"))=0 or len(request("msg"))=0 then
back(waring)
Response.end
end if

type1=request("type")
id =request("id")
name1=request("name")
tel=request("tel")
msg=request("msg")

strsql = "SELECT * FROM [msg] WHERE 0 = 1"

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn, 1, 2

		rs.AddNew

rs("name") = name1

rs("tel") = tel

rs("email") = type1

rs("fornews") =  id

rs("msg") = msg

		rs.Update
		rs.Close
		Set rs = Nothing
		conn.Close
		Set conn = Nothing
		word="你的请求已经提交,我们将根据你留的联系方式与你联系!!\n请按确定返回"
		url= request.ServerVariables("HTTP_REFERER")
		
		Response.Write("<script>")
Response.Write("alert('"&word&"');")
Response.Write("self.location='"&url&"';")
Response.Write("</script>")
		Response.end
 %>