do_addsumit.asp

包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL Server2000下调试通过。所有程序

<%
	'读取文本框的值 
	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")
%>