rec2table.asp

在线考试系统

<%
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  
%>