原程式仅将图列出，但如果资料量大时，整个萤幕会被佔满。
此处提供之程式仅将资料读出，並转为百分比及定位显示。
程式如下：
<% Response.Buffer = True
response.write "<body bgcolor=#FFFFFF link=#005f02 vlink=#00b06f background='../bg.gif' bgproperties='fixed'>"
response.write "<span id=""h1"" style=""position:relative;top:0;left:0""></div></span>" 'h1是随意取的 span 名称
'position 是将资料输出位置固定
'开资料库 将留言读到 recordset 裡
j = 0
while not rs.eof
j = j + 1
'把留言内容输出
response.write "<script language=""JavaScript"">document.all[""h1""].innerHTML = ""Loading... "
response.write formatpercent(j/rs.RecordCount),0) & """;"
for k = 1 to j
response.write "</script>" & chr(13)
next
response.flush
rs.MoveNext
wend
rs.Close
%>
|
