[求助]那位大哥发个成批的添加数据的例子给小弟看下，小弟对批处理不太理解想学习一下，请各位大哥帮忙

'表名称 Article
'表结构
编号(ID) Long
文章标题(Title) String
作者(Author) String
内容(Body) String
发表日期(ANTime) Time
'……省略其他次要代码
Dim rs
Dim i
rs.Open "select * From Article",con,1,3
For i=0 To 100
rs.AddNew
rs.Fields(0).Value=CStr(i)
rs.Fields(1).Value="第"&CStr(i)&"篇文章的标题"
rs.Fields(2).Value="作者"
rs.Fields(3).Value="第"&CStr(i)&"篇文章的内容"
rs.Fields(4).Value=Now()
Next
rs.Update
rs.Close
Set rs=Nothing
Response.Write "100篇文章添加完毕"

谢了，我想实际这样的效果，从网页上输入多少记录，然后一次录入，但录入时的记录数不能确定，有办法吗？