<%
	'讀取文本框的值 
	tusername	=	Request("tusername")
	tmobile		=	Request("tmobile")
	tEmail		=	Request("tEmail")
	tphone		=	Request("tphone")
	tmemo		=	Request("tmemo")
	'連接數據庫并插入數據
	set conn = Server.CreateObject("ADODB.Connection")
	Conn.Open("driver={SQL Server};database=pubs;"&_
		"server=localhost;uid=sa;pwd=")
	set cmd = Server.CreateObject("ADODB.Command")
	cmd.ActiveConnection = conn
	sql = "INSERT INTO txl VALUES('" & tusername & "','" & tEmail &_
	"','" & tmobile & "','" & tphone & "','" & tmemo & "')"
	cmd.CommandText = sql
	cmd.Execute()
	'返回
	Response.Redirect("index.asp")
%>