清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

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