批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。[br]下面我就结合我实际中的应用，谈一下儿我是怎么实现的。其实我在很多种程序中利用了不同的方式进行的录入，日后再介绍其他的录入方式。[br]这个主要用到的是form的集合的概念，通过循环取的所有的集合内数据。[br]考虑到大家看着方便，我把它集成到了一个页面。 [br][br]下面是具体的代码：[br]

<% [br]’向数据库写入数据 [br]sub writedata() [br]dim reccnt,i [br]dim fieldname1,fieldname2,fieldname3 [br]dim conn [br]dim sqlstr,connstr [br]connstr="provider=sqloledb.1;initial catalog=mydatabase;data source=myhon;user id=sa;password=" [br]set conn=server.createobject("adodb.connection") [br]conn.open connstr ’建立数据库连接 [br]reccnt=request.form("stu_num").count ’取得共有多少条记录 [br]’批量录入数据 [br]for i=1 to reccnt [br]fieldname1=trim(request.form("fieldname1")(i)) [br]fieldname2=trim(request.form("fieldname2")(i)) [br]fieldname3=trim(request.form("fieldname3")(i)) [br]sqlstr="insert into mytable(fieldname1,fieldname2,fieldname3) values(’" [br]sqlstr=sqlstr & fieldname1 & "’,’" [br]sqlstr=sqlstr & fieldname2 & "’,’" [br]sqlstr=sqlstr & fieldname3 & "’)" [br]’response.write sqlstr [br]conn.execute(sqlstr) [br]next [br]end sub [br]’显示成批录入的界面 [br]sub inputdata() [br]dim reccnt,i [br]%> [br]

[br]<% [br]reccnt=cint(request.form("reccnt")) [br]for i=1 to reccnt [br]%> [br] [br] [br] [br]<% [br]next [br]%> [br]
[br] [br]

[br]<% [br]end sub [br]’指定要批量录入多少条记录 [br]sub assignhowmuch() [br]%> [br] [br]

[br][br]您要录入的记录的条数： [br] [br]

[br]<% [br]end sub [br]if request.form("action")="下一步>>" then [br]call inputdata() ’显示成批录入界面 [br]elseif request.form("action")="提交" then call writedata() ’向数据库批量写入数据 [br]else [br]call assignhowmuch() ’显示指定录入多少条记录的界面 [br]end if [br]%>