dim s
s = "<table>"
cctest.movefirst
do while not cctest.eof
s = s & "<tr><td>" & cctest.字段0 & "</td><td>" & cctest.字段1 & "</td><td>" & ... & "</td><td>" & cctest.字段n & "</td></tr>" & vbcrlf
cctest.movenext
loop
s = s & "</table>"
document.body.all.div_cctest.innerHTML = s