dzt0001  我很崇拜你 每次我遇到的 asp  问题 都是你帮我解决掉的 很谢谢你！
是这样的，我写了一个 小程序 是用来 释放 一些数据 到数据库里的
有时候 释放 几千 几万  都是 从 1开始 递增 一直到 结束
但是 过程中 希望 能让操作者 能看到 他释放的 数据 在动  让其直观
的看到  等待过程中 释放的数据 是由 1 2 3 .。。。这样在跳动  否则单一的
释放界面 用 gif 图片 表示 等待  释放者 还以为 系统死掉了 他看到 数据在
跳动 就不会误认为 释放 系统 死掉了
<%
for i=1 to 10000
Set conn = server.CreateObject("ADODB.Connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("date/db.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from tabel"
rs.open sql,Conn,1,3
rs.addnew
rs("i")=i
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
next
%>
上述代码 是 将 i 递增的由1 到 10000往 数据库里写入 让等待的过程中能看到 动态 由1递增到10000的释放效果

你一定要的话，就写给你吧。我这里设了1-500，太多容易造成系统死机，为了看一下需要多长时间，我加了计时器。
说明一下：<% Response.Buffer = false %>是将ASP生成的HTML不缓存，直接输出到页面上

<% Response.Buffer = false %>
<span id="n1"></span> / 500 <br />
<script type="text/javascript">
function f1(n) {
document.getElementById("n1").innerHTML=n;
}
</script>

<%
startime=timer()    '计时器开始

for i=1 to 500
Set conn = server.CreateObject("ADODB.Connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("db1.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from tabel"
rs.open sql,Conn,1,3
rs.addnew
rs("i")=i
rs.update
response.write "<script type=""text/javascript"">f1("&i&")</script>"
rs.close
conn.close
set rs=nothing
set conn=nothing
next

ProcessTime=FormatNumber((timer()-startime))
if ProcessTime<1 then ProcessTime="0"&ProcessTime
%>
<%=ProcessTime%> second(s)

大哥！太崇拜你了！ 很不错的代码 我收藏了！虽然 java 没看懂 但是 打心里崇拜你！