guestbook1.asp

网站源码

<!--#include file="setup.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% 
waring="??óD′?D?o?μ?±?ì??????′ì?D′!!!"

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

name1=request("name")
title=request("title")
content=request("content")

if len(request("company"))=0 then
com="?′ì?"
else
com=request("company")
end if

if len(request("mail"))=0 then
mail="?′ì?"
else
mail=request("mail")
end if

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

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

		rs.AddNew

rs("title") = title

rs("email") = mail

rs("name") = name1

rs("work") = com

rs("addr") = "??"

rs("content") = content

		rs.Update
		rs.Close
		Set rs = Nothing
		conn.Close
		Set conn = Nothing
		word="D?D??????ò??á???\n??°′è·?¨·μ??"
		url="contact.asp"		
		
		Response.Write("<script>")
Response.Write("alert('"&word&"');")
Response.Write("self.location='"&url&"';")
Response.Write("</script>")
		Response.end

 %>