rec2table.asp

来自「基于ASP的在线考试系统的设计与实现,想下一的可以看一下基于ASP的在线考试系统」· ASP 代码 · 共 24 行

<%
function Rec2Table(objRS)
dim strT
dim fldF

strT="<table width=80% border=1><TR>"

	for each fldF in objRS.Fields	'each feild as colum name
	strT=strT & "<TD>" & fldF.name & "</TD>"
	next
strT=strT & "</TR>"

	while not objRS.eof
	strT = strT & "<TR>"
		for each fldF in objRS.fields
		strT = strT & "<TD>" & fldF.value & "</TD>"
		next
	strT= strT & "</TR>"
	objRS.movenext
	wend
strT = strT & "</TABLE>"
Rec2Table =strT 'return the table string
end function  
%>