新手电脑网 » 编程交流 » 批量录入数据方法

syziy 发表于 2008-10-4 21:35

批量录入数据方法

<%(ZTX"J6l7\:c
'#####################################aU UMzf
'File Function:批量录入数据&pBsY;v u"P[
'Author:Myhon
M7K&k'ak1g+p
^e 'Date:2003-8-19
y2K_3vU~-V.W
'#####################################D4Vr]U9i
J-Dio?&[
'向数据库写入数据
B4f}2F{5O,~ SUB writeData()]U M!{+{Co1U
dim recCnt,i
B] wd1iz-e
Nq dim fieldName1,fieldName2,fieldName3
R`o n3NRO
L@)k dim conn
-?9n?9W+[*MT5GVi dim sqlStr,connStr]1\ Wx Dv*k}Y
connStr="rovider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=saASSWORD="\u.HUL{;P
set conn=Server.CreateObject("ADODB.Connection")
Z+uoli:](W conn.open connStr '建立数据库连接| P3x0h$x'F

,M#Tl-~$~s.S recCnt=request.form("stu_num").count '取得共有多少条记录
,NH%K0a,qs9P5rF '批量录入数据"l.Ei
ROw
for i=1 to recCntZ7Nr
}lT8B
fieldName1=trim(request.form("fieldName1")(i))
RF1ov`-B m$v.p@ fieldName2=trim(request.form("fieldName2")(i))]OH8@J4[i
fieldName3=trim(request.form("fieldName3")(i))
EVL C)Z)o%s(I sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values('"
7l%AK
Z%b sqlStr=sqlStr & fieldName1 & "','"
BlCHEeiE sqlStr=sqlStr & fieldName2 & "','"sLB$kn
sqlStr=sqlStr & fieldName3 & "')"
)| m@,ORv
iF 'response.write sqlStr
6W2`C(L UU;I
s)@ conn.execute(sqlStr) I Hq9p{k8lA
next
}(LF/x8Y END SUBkR,k;~;vzA2]!_
S7Erg Q(eH iu]
'显示成批录入的界面*@-D0aWQ^W^1O
SUB InputData()
Pn!v?
xT5Z#U dim recCnt,i
9wg'N;Ey/`!{,u %>,cu%TQ3^X`
<form name="bathInputData" action="" method="post">
)zVq-t&F&q a])S <% 2e.lXs?
recCnt=cint(request.form("recCnt"))
Jqle ` for i=1 to recCnt
#TCgc{#i4R!] %>
]]#u#vE P8c~-t <input type="text" name="fieldName1">
Ad8]\__$Fwp <input type="text" name="fieldName2">L H(IZSK
<input type="text" name="fieldName3">F*Fs
TfU;GxZN
<%
Te
K%IKC+S C next:d5V(T(D0}g"D7k'r%@@
%>6v`,KX
]3o;qH0l1g/u
<br>
1f%}fF)_6w+Y;p <input type="submit" name="action" value="提交">
Y+EGfO"C{:j </form>
MN v;[-Vn;fQ <%
T\9EGqUT:t END SUB
$Yu%ZSBy +HNf+^x
'指定要批量录入多少条记录
AOeaE,g.i7Nq7nbu SUB assignHowMuch()
2KR/^"@-| dV %>
%qk pSljF
]m3o[TI <!------指定要录入多少条记录-------------->
c6h F]$k,{[ <form name="form1" action="" method="post">UU;jq;m7JO
E:O,@
您要录入的记录的条数：<input type="text" name="recCnt">
)j'i
H v6^Q <input type="submit" name="action" value="下一步>>">k+c uA9y&u%K
</form>(mcN4H.T
<%
LA6^;^m@:q[ END SUB1H/N*Uo;Vk_

_2}kPTEV%]v&G if request.form("action")="下一步>>" then
{1d4N/V.H&`c0z Call InputData() '显示成批录入界面
,Wa|]c
dk+@ elseif request.form("action")="提交" then Call writeData() '向数据库批量写入数据PzSm2m;P
else
%v @7?e!z/_6Psg Call assignHowMuch() '显示指定录入多少条记录的界面
c9OM5^W[ end if
,|E)lKX'Wy s7zD*L
{Z"f
%>

查看完整版本: 批量录入数据方法