樓主

站務人員
站長

發送站內信

|
作者:Andy Chang 張文彥(AndyChang@aetna.com.tw)
修正自 作者:Shane 所提供
原程式僅將圖列出,但如果資料量大時,整個螢幕會被佔滿。
此處提供之程式僅將資料讀出,並轉為百分比及定位顯示。
程式如下:
<% 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
%>
本篇文章發表於2001-06-23 00:00
|