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
%>

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



<%
next
%>

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

您要录入的记录的条数：

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