guestbook.asp

网站源码

<!--#include file="setup.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% 
waring="你有带星号的必填项目未填写!!!"

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

select case request("stype")
case 1
stype="[消息类别-招聘反馈]&nbsp;"
case 2
stype="[消息类别-供应反馈]&nbsp;"
case 3
stype="[消息类别-需求反馈]&nbsp;"
case 4
stype="[消息类别-网站留言]&nbsp;"
case else
stype="[消息类别-网站留言]&nbsp;"
end select 

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") = stype&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="谢谢你给我们留言\n请按确定返回"
		url="contact.asp"		
		
		Response.Write("<script>")
Response.Write("alert('"&word&"');")
Response.Write("self.location='"&url&"';")
Response.Write("</script>")
		Response.end

 %>