----------------------------------------------------------------
<%
Response.Buffer = True
response.write "<span id=""h1""></span>" 'h1是隨意取的 span 名稱
開資料庫 將留言讀到 recordset 裡
j = 0
while not rs.eof
j = j + 1
把留言內容輸出
response.write "<script language=""JavaScript"">document.all[""h1""].innerHTML = ""Loading... "
for k = 1 to j
response.write "▊"
next
response.write """;</script>" & chr(13)
response.flush
rs.MoveNext
wend
rs.Close
%>

PS:
在最最後面:
<script language="JavaScript">document.all["h1"].innerHTML = "";</script>
是要顯示百分比

---