rs. Open source, ActiveConnection, CursorType, Lock Type End if 查询结果以表格的形式输 Response. Write <table border=3> Response. Write"<tr〉" For i=o to rs fields. Count-1 Response. Write"<td>"&Case(rs(i).Name)&</td> Next Response Write"</tr> 输出表格内容 While not rs. eOF e sponse. Write"<tr) Re For i=0 to rs Fields. Count-1 Response. Write"<td>"&rs(i). value& </td> Next rs.Moⅴ eNext Response. Write"</tabl 取消连接 Set rs=nothing ‰〉 运行结果如图:
rs.Open source,ActiveConnection,CursorType,LockType End if '查询结果以表格的形式输 Response.Write "<table border=3>" Response.Write "<tr>" For i=0 to rs.Fields.Count-1 Response.Write "<td>"&Ucase(rs(i).Name)&"</td>" Next Response.Write "</tr>" '输出表格内容 While NOT rs.EOF Response.Write "<tr>" For i=0 to rs.Fields.Count-1 Response.Write "<td>"&rs(i).Value&"</td>" Next rs.MoveNext Wend Response.Write "</table>" '取消连接 Set rs=nothing %> 运行结果如图：
文件(编辑1查看(收藏(4)工具①帮助H 中后退·→·③回备搜索收藏夹 地址①)·+即/shoe93ht转到链接 了上网助手·暂停拦截〈清理修复 查看客户信息请点击这里客户信息 查看产品信息请点击这里[产品信息 本地 Intranet ”上勤,暂数∮(复 D产名杯 一供应鸡工类D单位数量 单价萍存量量再购量中止 im时Ss 48-602Ja :le Bcb's Organis Dries Pe 1 Ib Ikus Mish Bobe Nity 12-200 nl jan 如 una ranchero La Fartera 40-50spk 2 kg box 3-50bax样[ 10 boxes x 12 pineta B 2 24比x4 pieces s InickebrM 河红如 entice 例9.31 Recordset访问数据库,文件名为 9-31.asp,数据库为 ntopsamp.mdb Set connl= Server CreateObject("ADODB Connection") connl.Open"DBQ=& Server MapPath("ntopsamp mdb")& Driver=Microsoft ccess Driver (* mdb)); DriverId=25; FIL=MS Access Set rs2= Server CreateObject("ADODB. Recordset") Sqlstr=" SELECT AVg(价格)As平均From产品
例9．31 Recordset访问数据库，文件名为 9-31.asp，数据库为ntopsamp.mdb。 <% Set conn1 = Server.CreateObject("ADODB.Connection") conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & _ ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" Set rs2 = Server.CreateObject("ADODB.Recordset") SqlStr = "SELECT Avg(价格) As 平均 From 产品
rs2 Open sqlstr, connl, 1, 1 Response. Write"<BRvg:"&rs2("平均") rs2. Close Sqlstr=" SELECT Count(价格)From产品 rs2 Open Sqlstr, conn, 1, 1 Response Write"<BR> Count(价格):"&rs2(0) rs2. Close Sqlstr=" SELECT Count(*)FrOm产品” rs2 Open Sqlstr, connl, 1, 1 Response. Write"<BR>Count(*: &rs2(O) rs2. Close Sqlstr=" SELECT SUm(价格)From产品 2. Open Sqlstr, connl, 1,1 Response. Write"<BR>Sum: rs2(0) rs2. Close Sqlstr=" SELECT Min(价格)From产品 rs2 Open Sqlstr, connl, 1, 1 Response. Write"<BR>Min: rs2 (0) rs2. Close Sqlstr=" SELECT Max(价格)From产品 rs2 Open Sqlstr, conn, 1, 1 Response. Write"<BR>Max: &rs2(0)
rs2.Open SqlStr,conn1,1,1 Response.Write "<BR>Avg: " & rs2("平均") rs2.Close SqlStr = "SELECT Count(价格) From 产品" rs2.Open SqlStr,conn1,1,1 Response.Write "<BR>Count(价格): " & rs2(0) rs2.Close SqlStr = "SELECT Count(*) From 产品" rs2.Open SqlStr,conn1,1,1 Response.Write "<BR>Count(*): " & rs2(0) rs2.Close SqlStr = "SELECT Sum(价格) From 产品" rs2.Open SqlStr,conn1,1,1 Response.Write "<BR>Sum: " & rs2(0) rs2.Close SqlStr = "SELECT Min(价格) From 产品" rs2.Open SqlStr,conn1,1,1 Response.Write "<BR>Min: " & rs2(0) rs2.Close SqlStr = "SELECT Max(价格) From 产品" rs2.Open SqlStr,conn1,1,1 Response.Write "<BR>Max: " & rs2(0)