日期:2009-01-25  浏览次数:20884 次

显示"资料搜寻中"的百分比
2001:9:24





原程式仅将图列出,但如果资料量大时,整个萤幕会被佔满。
此处提供之程式仅将资料读出,並转为百分比及定位显示。
程式如下:
<% 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
%>