asp实现批量录入数据的实现

superadmin · 发表于 2009-1-7 17:55:44

批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。下面我就结合我实际中的应用，谈一下儿我是怎么实现的。主要用到的是form的集合的概念，通过循环取的所有的集合内数据。考虑到大家看着方便，我把它集成到了一个页面。

下面是具体的代码：

<%
’向数据库写入数据
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
%>

		自动登录	找回密码
密码			注册

全国各地医院查询	重量转换换算	RGB颜色查询	交通标志大全	各类快递查询
简体繁体转换	黄金价格实时走势	万年历查询	实时汇率转换	列车时刻查询
在线翻译工具	CSS中文手册	HTML学习教程	MySQL中文手册	JavaScript中文手册
PHP安全基础手册	PHP5面向对象编程教程	正则表达式系统教程	SQL Server精华	Apache 2.2 中文手册
DOS命令全集指南	windows脚本技术中文版	股票行情查询	历史上的今天	邮编区号查询
长度转换换算	货币汇率转换	常用电话号码	体育彩票查询	手机位置查询
域名Whois信息查询	谷歌PR值查询	台州网站建设	台州网站开发	台州域名注册
天气预报查询	长度转换换算器	在线电子地图	车牌号码查询	中国百家姓查询