asp批量录入数据的实现

<%

’向数据库写入数据

SUB writeData()

dim recCnt,i

dim fieldName1,fieldName2,fieldName3

dim conn

dim sqlStr,connStr

connStr=Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD=

set conn=Server.CreateObject(ADODB.Connection)

conn.open connStr ’建立数据库连接

recCnt=request.form(stu_num).count ’取得共有多少条记录

’批量录入数据

for i=1 to recCnt

fieldName1=trim(request.form(fieldName1)(i))

fieldName2=trim(request.form(fieldName2)(i))

fieldName3=trim(request.form(fieldName3)(i))

sqlStr=insert into myTable(fieldName1,fieldName2,fieldName3) values( ’

sqlStr=sqlStr & fieldName1 & ’, ’

sqlStr=sqlStr & fieldName2 & ’, ’

sqlStr=sqlStr & fieldName3 & ’)

’response.write sqlStr

conn.execute(sqlStr)

next

END SUB

’显示成批录入的界面

SUB InputData()

dim recCnt,i

%>

<form name=bathInputData action= method=post>

<%

recCnt=cint(request.form(recCnt))

for i=1 to recCnt

%>

<input type=text name=fieldName1>

<input type=text name=fieldName2>

<input type=text name=fieldName3>

<%

next

%>

<br>

<input type=submit name=action value=提交>

</form>

<%

END SUB

’指定要批量录入多少条记录

SUB assignHowMuch()

%>

<!------指定要录入多少条记录-------------->

<form name=form1 action= method=post>

您要录入的记录的条数：<input type=text name=recCnt>

<input type=submit name=action value=下一步>>>

</form>

<%

END SUB

if request.form(action)=下一步>> then

Call InputData() ’显示成批录入界面

elseif request.form(action)=提交 then Call writeData() ’向数据库批量写入数据

else

Call assignHowMuch() ’显示指定录入多少条记录的界面

end if

%>