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

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

windows命令行软件 word页脚位置调整 pythonwordcloud下载联想商用笔记本推荐彩票规律的计算方法手机word怎么给字加点分享创意的软件 word文档表格边框加粗相册视频制作软件 10.3单个软件设置 excel培训视频 ps如何给图片加水印查看电脑信息的命令行快递单打印源码 word如何设置彩色打印

专题更多>>

最新文章更多>>

我是养父

简单的函数来返回记录集结果到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