[求助]那位大哥发个成批的添加数据的例子给小弟看下
[求助]那位大哥发个成批的添加数据的例子给小弟看下,小弟对批处理不太理解想学习一下,请各位大哥帮忙
'表名称 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篇文章添加完毕"