我写了个 for 循环 1到10000 的 展开 并写入数据库
但是 展开过程中 我点击了 浏览器的 停止 结果 页码是
停了 可是  数据里 还是不断的 有数据写入 所以 我
不知 如何用 按钮事件 来 关闭 数据库 让其 不要再往数据库里写数据
代码：
<%
for i=1 to 10000
连接数据库。。。
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from number
rs.open sql,Conn,1,3
rs.addnew
rs("date")=i
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
next
%>
上述代码如何用 按钮事件  来结束上面的循环 并 关闭数据库？