<!--#include file="cls_top.asp"-->
<%
 Call DBConnBegin()
	  Set rs = server.createobject("adodb.recordset")
Select Case Request("action")
Case "guestbook"
title=tx_common.CheckStr(request.Form("title"),2)
username=tx_common.checkstr(request.form("username"),2)
tel=tx_common.checkstr(request.Form("tel"),2)
fax=tx_common.checkstr(request.Form("fax"),2)
qq=tx_common.checkstr(request.Form("qq"),2)
email=tx_common.checkstr(request.Form("email"),2)
homepage=tx_common.checkstr(request.Form("homepage"),2)
address=tx_common.checkstr(request.Form("address"),2)
content=tx_common.checkstr(request.Form("content"),2)
 tx_common.execute("insert into tx_guestbook (title,username,tel,fax,qq,email,homepage,address,content) values ('"&title&"','"&username&"','"&tel&"','"&fax&"','"&qq&"','"&email&"','"&homepage&"','"&address&"','"&content&"')")
 Call tx_common.message("·留言提交成功，请等待管理员察看<br>·系统自动跳转到留言页<br>·如果你的浏览器不支持跳转，<a href='"&tx_setting(2)&"guestbook.asp'>点击这里返回</a><meta http-equiv=refresh content='3;URL="&tx_setting(2)&"guestbook.asp'>",1)
 end select 
Call ClassEnd()
Call DBConnEnd()

%>