7-19.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 13 行

<!--#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
	sql = "Select * From grade where 数学 < 200"
	cmd.CommandText = sql
	set rs = cmd.Execute()
	rstotab(rs)
%>