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