7-29.asp

asp开发 asp开发 asp开发 asp开发

<!--#include file="rstotab.asp"-->
<%
	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
	cmd.CommandType=4
	cmd.CommandText = "reptq1"
	set rs = cmd.Execute()
	rstotab(rs)
%>