asp中利用数组实现数据库记录的批量录入方法

豹子

版主

Rank: 7 Rank: 7 Rank: 7

1^# 大中小发表于 2007-6-23 10:30 只看该作者

asp中利用数组实现数据库记录的批量录入方法

asp中利用数组实现数据库记录的批量录入方法(原创)% R) m$ t- w$ s0 K5 X5 J' `; |
演示：http://www.zwtd.com/1/yanek/n/needdj2.asp5 X5 z" u- C% T/ Z3 d2 [1 e: q  Y
%9 G  f7 n" d! _
rem 文章题目 asp中利用数组实现数据库记录的批量录入方法(原创)3 J5 o7 H& v! o" P2 q" c! B
作者：yanek
联系email:aspboy@263.net
%
& ^+ A( }( G" f# X5 C! G
  & e7 D  F1 r+ D7 a0 K" o4 b+ r0 w# L

包括两个文件' P4 N; b0 E* x9 b8 i
1。allneeddj.asp：实现表单的生成* H8 P( S) g5 U
2. allneeddjresult.asp 处理表单批量录入; p* V( w& M- G
3.hbedu.mdb :数据库文件
其数据库结构如下# L4 H% r9 i5 v: p/ u. S$ j
provinceid:省份编号数值型
dytaocount:打样套数数值型
papertaocount:纸样套数数值型
cpcontent:出片内容数值型- H; O4 W4 {* U# y2 z( A6 ?: Z/ m$ D
filename:文件名文本型% O/ }. ~7 S  n/ O# _7 o) b( [4 w
beizhu:备注备注型
% K) l0 }7 q2 }6 N* ~
本例子中以10条记录，每条记录6个字段说明.  ( ^$ m6 u7 V8 A: C+ w& P
9 m7 |+ ?0 l; D( {: T0 a  s8 C4 y% [7 I
1。allneeddj.asp
9 n; x( D/ I; {2 H
html

head
meta http-equiv="Content-Language" content="zh-cn"
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
meta name="GENERATOR" content="Microsoft FrontPage 4.0"6 x+ U+ O2 {- T5 i: H5 {
meta name="ProgId" content="FrontPage.Editor.Document"$ i. ~% u0 \8 V$ o5 r% `) Z% x
title需求登记/title
/head  + X6 Y+ a2 K( A+ Z5 M5 U

body

    ], r4 v: L: b7 B0 O

%
set conn=server.createobject("adodb.connection")" G/ D$ i" R+ o5 b5 C- e
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="  _
Server.MapPath("hbedu.mdb")  ' u. h7 x% k& K! X5 p' H" @9 O

%  % T3 I- H% g# q( C0 u$ b

form method="POST" action="allneeddjresult.asp"0 ?0 e  Z! b, B0 l
div align="center"
center6 I# V( I* \$ |2 F! q
table border="1" width="700" bordercolorlight="#FFFFFF"
tr
td width="660" colspan="6"
p align="center"需求登记/td5 r# U& q$ M. M1 f% @( a$ y
/tr4 P' q' @2 D  G& Q0 E8 c
tr$ w' F4 x( z8 ]5 D8 f! |: U
td width="54" align="center"省份/td  o2 B0 M  h! b, U2 p# {! b
td width="66" align="center"打样张数/td9 B4 K- F: _/ x1 @& p5 L5 ^( \
td width="66" align="center"纸样张数/td8 ^4 a0 J8 i5 a. _
td width="66" align="center"出片内容/td
td width="80" align="center"文件名/td
td width="328" align="center"
p align="center"备注/td
/tr4 c, k5 i: O4 I
& I( r$ @$ z9 g1 i6 M, E
2 b) I  |. P( h6 m& W" H- R; p! G, V
%/ s; V8 ?4 V6 H3 a+ K. T
rem 通过循环动态生成不同名称表单域
for i=1 to 10 . I$ l2 ^9 k  A  k
%& Z" ?$ u' t  X" ?/ A/ m5 v/ F$ [
%0 ^% P' z' c  B3 f: b* U
set rs=server.createobject("adodb.recordset")
sql="select * from provinceinfo ") w2 [, j% j. L+ x
rs.open sql,conn,1,1  ; [, r; C& C' E& z
. L3 b! G' R3 d- |5 i
  0 T4 F7 k4 N% `1 Q+ b9 }1 g
% c4 p2 W3 r0 \8 q8 R& \
set rs1=server.createobject("adodb.recordset")" f& R& D! i: s" {9 G
sql1="select * from filename "
rs1.open sql1,conn,1,1
%. Z8 h$ m/ W5 D, f; ]- H. z
" y: D! S+ R, V  H1 R$ N# d

tr
td width="54"select name="% response.write"data1"i %"
size="1"
%
do while not rs.eof/ a* y4 g1 U0 i+ R6 X
if province=cstr(rs("id")) then
sel="selected"6 P9 S9 Q7 A! V: r& Z/ y/ u2 e! ^7 g
else4 Y  m3 q, q% z4 `# J
sel=""
end if / }* _' B* A5 Z' X& p# }
response.write "option "  sel  " value='" CStr(rs("id")) "'" rs("province") "/option" chr(13) chr(10)0 }: G1 {" B& `3 E+ }
rs.movenext. Y8 b, W, P: S8 z% p. t# g4 C
loop
set rs=nothing; b' m/ O$ ^- }: u
% /select/td1 c- R5 y. h1 J9 t& \( @6 T, n
td width="66"input type="text" name="% response.write"data2"i %" size="8"/td
td width="66"input type="text" name="% response.write"data3"i %" size="8"/td
td width="66"select size="1" name="% response.write"data4"i %"
option value="1"改动部分/option
option value="2"全部内容/option
/select/td0 O, z) c, A; a  N  m7 V
td width="80"select name="% response.write"data5"i %"9 }9 K) R8 x6 T
size="1"
%
do while not rs1.eof
if filename=cstr(rs1("filename")) then  f7 F, v% Y' h5 n  v+ g& _
sel="selected"
else
sel=""! n7 w% E. n( Z
end if
response.write "option "  sel  " value='" CStr(rs1("filename")) "'" rs1("filename") "/option" chr(13) chr(10)
rs1.movenext0 Z  O! P$ F2 _+ e; l! k
loop
) t/ x  ^  a9 W/ W' `1 K
set rs1=nothing
% /select　/td& G8 W% C# E  _* z- }& Q9 l
td width="328"textarea rows="2" name="% response.write"data6"i %" cols="46"/textarea/td
/tr; P" o) R' _! m

, l9 X* f% A+ n4 Y# ^# Z
% next %+ ]2 |* i5 Y8 t( u: {7 |
& Q! O8 O$ h5 k" u

/ _* R& i) C1 W! {+ K
tr5 K+ b* n" h2 |7 d. k, v+ [
td width="660" colspan="6"% [" }/ F6 h  f1 V  W+ m9 ?& d
p align="center"input type="submit" value="提交" name="B1"/td
/tr
/table! e) ^, Q4 t( ~- I0 x; j1 m, \9 E
/center
/div
/form

/body  * d, g9 o/ @' `6 v& I+ ~

/html  " f" b3 [+ H5 a* V8 Q
4 `. r, u& F5 Z% W4 y( y
2.allneeddjresult.asp
7 |7 `3 l7 d+ D+ w7 F: f7 V: N
" n/ ~( T1 \. v7 P, d! C! O: a) j
%
rem 定义二维数组存放从表单获取的值
dim data(10,6)
for i= 1 to 6
for j= 1 to 10; {$ G1 _+ h6 E
mydata="data" cstr(i) cstr(j)7 x; ~" i. \5 |
data(j,i)=request.form(mydata)
next% K4 C& h, P- @% |  p+ g4 p5 y' g
next( y) w0 ^4 G( O* X* C8 u
%  3 [  o* J" v& I3 |' T7 f( m

%* i0 {* ^) ~, k) D
rem 输出表单输入的值
for i= 1 to 10
for j= 1 to 6  0 G7 [" y$ J7 c' E
) J9 R$ f& T" k3 T
response.write data(i,j)

next! e) [1 l5 Y7 b2 L- n6 |
response.write"br"
next

'response.end* j1 U2 b% H' H4 x3 x; S6 o1 z* S
%  3 |0 \* N1 L) I$ K
% n9 X* f( H- T3 |
% ' W% l  h# u* i. k) I
dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="  _4 Y# z: j& m/ `+ ^0 z  e2 U
Server.MapPath("hbedu.mdb")  5 W9 J" v: A9 B: O) X) ?# x. Q

for i= 1 to 10
rem 循环批量入库  0 G+ s1 o# `. ?. D. P; f5 M9 W

Set rs=SERVER.CreateObject("ADODB.Recordset")
rs.Open "hbedu",conn,1,3
rs.AddNew
rs("beizhu")=data(i,6)
rs("filename")=data(i,5)9 \% T* G0 P; q! a1 D
rs("cpcontent")=data(i,4)
rs("papertaocount")=data(i,3)
rs("dytaocount")=data(i,2)
rs("provinceid")=data(i,1). U. k% W. k% t% _
rs.Update  K) v3 ^1 V% Z3 |$ t8 y; u. O# J3 G
rs.close
set rs=nothing  * Z; m( \1 _+ v; y  _0 J. E

response.write"okbr"4 z: U" }1 W/ u  g
next8 G1 H0 Z' O! r' W/ x2 W! Y' d
%
演示：http://www.zwtd.com/1/yanek/n/needdj2.asp

点击图标进入精品网摘收藏欢迎大家加入网络收藏夹

TOP

‹‹ 上一主题 | 下一主题 ››