VB返回记录集结果到HTML表格的方法

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