test1.inc

来自「物业管理和办公自动化系统」· INC 代码 · 共 37 行

<%
Sub ShowTable(sSQL)
	Dim iCols	' 列数，即SQL查询语句返回记录的字段数
	Dim j		' 临时变量
	Dim fld		' 字段
	Dim oRs		' 自定义CRecordset对象
	Dim rs		' 真正的数据库记录集对象	
	
	' 获取数据记录集
	Set oRs = New CRecordset
	Set rs = oRs.Open(dbLocal, sSQL)

	Response.Write("<table cellspacing=0 cellpadding=0 border=1 width=""300px"">")
	Response.Write("<tr>")
	iCols = 0
	For Each fld In rs.Fields
		iCols = iCols + 1
		Response.Write("<td class=tdHead>&nbsp;" & fld.Name & "&nbsp;</td>")
	Next
	Response.Write("</tr>")
	while (not rs.EOF)
		j = 0
		Response.Write("<tr>")
		while ( j < iCols )
			'Response.Write("<td>&nbsp;" & rs.Fields(j).Value & "&nbsp;</td>")
			Response.Write("<td>&nbsp;" & oRs.GetValueHTML(ORs.m_Recordset.Fields(j).Name) & "&nbsp;</td>")
			j = j + 1
		wend
		Response.Write("</tr>")
		rs.MoveNext
	wend
	Response.Write("</table>")
	
	' 调用CRecordset对象的Close()关闭记录集，关闭数据库连接
	oRs.Close()
End Sub
%>