VB返回记录集结果到HTML表格的方法
来源:本站原创|时间:2022-11-25|栏目:vb|
本文实例讲述了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
希望本文所述对大家的VB程序设计有所帮助。
您可能感兴趣的文章
- 01-10VBS教程:属性-Line 属性
- 01-10VBS教程:属性-Type 属性
- 01-10VBS教程:属性-Path 属性
- 01-10VBS教程:属性-Drives 属性
- 01-10VBS教程:属性-Files 属性
- 01-10VBS教程:属性-Drive 属性
- 01-10VBS教程:属性-Count 属性
- 01-10VBS教程:对象-Folders 集合
- 01-10VBS教程:对象-Files 集合
- 01-10VBS教程:对象-Drives 集合