简单的函数来返回记录集结果到HTML表格

作者: 我是养父
来源: 51数据库
2022-08-17

function ReturnHTMLTable(query)

	set rs = cn.Execute(query)
	
	rs.MoveFirst 
	response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """>"
	response.Write "<tr>"
	
	For Each oField In rs.Fields
		response.Write "<th>" & oField.Name & "</th>"
	Next
	
	response.Write "</tr>"
	
	Do While Not rs.EOF
	
		response.Write "<tr>"
		
		For Each oField In rs.Fields
		
		response.Write "<td>"
		
		If IsNull(oField) Then 
			response.Write " "
		Else
			response.Write oField.Value
		End If
		
		response.Write "</td>"
		
		Next 
		rs.MoveNext
		
		response.Write "</tr>"
	
	Loop
	
	response.Write "</table>"

end function

推荐阅读