批量錄入在數(shù)據(jù)庫的應(yīng)用中比較廣泛的，關(guān)于批量錄入的方法也有好多種。[br]下面我就結(jié)合我實(shí)際中的應(yīng)用，談一下兒我是怎么實(shí)現(xiàn)的。其實(shí)我在很多種程序中利用了不同的方式進(jìn)行的錄入，日后再介紹其他的錄入方式。[br]這個(gè)主要用到的是form的集合的概念，通過循環(huán)取的所有的集合內(nèi)數(shù)據(jù)。[br]考慮到大家看著方便，我把它集成到了一個(gè)頁面。 [br][br]下面是具體的代碼：[br]

<% [br]’向數(shù)據(jù)庫寫入數(shù)據(jù) [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 ’建立數(shù)據(jù)庫連接 [br]reccnt=request.form("stu_num").count ’取得共有多少條記錄 [br]’批量錄入數(shù)據(jù) [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]您要錄入的記錄的條數(shù)： [br] [br]

[br]<% [br]end sub [br]if request.form("action")="下一步>>" then [br]call inputdata() ’顯示成批錄入界面 [br]elseif request.form("action")="提交" then call writedata() ’向數(shù)據(jù)庫批量寫入數(shù)據(jù) [br]else [br]call assignhowmuch() ’顯示指定錄入多少條記錄的界面 [br]end if [br]%>