📄 asp中利用数组实现数据库记录的批量录入方法.htm
字号:
《asp中利用数组实现数据库记录的批量录入方法》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4
colSpan=2><B>asp中利用数组实现数据库记录的批量录入方法</B></FONT><BR>2002-11-28 动网先锋
</TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR>asp中利用数组实现数据库记录的批量录入方法(原创)<BR>演示：http://www.zwtd.com/1/yanek/n/needdj2.asp<BR><%<BR>rem
文章题目
asp中利用数组实现数据库记录的批量录入方法(原创)<BR>作者：yanek<BR>联系email:aspboy@263.net<BR>%>
<P></P>
<P>包括两个文件<BR>1。allneeddj.asp：实现表单的生成<BR>2. allneeddjresult.asp
处理表单批量录入<BR>3.hbedu.mdb :数据库文件<BR>其数据库结构如下<BR>provinceid:省份编号
数值型<BR>dytaocount:打样套数 数值型<BR>papertaocount:纸样套数
数值型<BR>cpcontent:出片内容 数值型<BR>filename:文件名 文本型<BR>beizhu:备注 备注型</P>
<P>本例子中以10条记录，每条记录6个字段说明.</P>
<P>1。allneeddj.asp</P>
<P><html></P>
<P><head><BR><meta http-equiv="Content-Language"
content="zh-cn"><BR><meta http-equiv="Content-Type"
content="text/html; charset=gb2312"><BR><meta
name="GENERATOR" content="Microsoft FrontPage 4.0"><BR><meta
name="ProgId"
content="FrontPage.Editor.Document"><BR><title>需求登记</title><BR></head></P>
<P><body></P>
<P></P>
<P><%<BR>set
conn=server.createobject("adodb.connection")<BR>conn.Open
"driver={Microsoft Access Driver (*.mdb)};dbq=" &
_<BR>Server.MapPath("hbedu.mdb")</P>
<P>%></P>
<P><form method="POST"
action="allneeddjresult.asp"><BR><div
align="center"><BR><center><BR><table border="1"
width="700" bordercolorlight="#FFFFFF"><BR><tr><BR><td
width="660" colspan="6"><BR><p
align="center">需求登记</td><BR></tr><BR><tr><BR><td
width="54" align="center">省份</td><BR><td width="66"
align="center">打样张数</td><BR><td width="66"
align="center">纸样张数</td><BR><td width="66"
align="center">出片内容</td><BR><td width="80"
align="center">文件名</td><BR><td width="328"
align="center"><BR><p
align="center">备注</td><BR></tr><BR><BR><BR><%<BR>rem
通过循环动态生成不同名称表单域<BR>for i=1 to 10 <BR>%><BR><%<BR>set
rs=server.createobject("adodb.recordset")<BR>sql="select * from
provinceinfo "<BR>rs.open sql,conn,1,1</P>
<P></P>
<P>set rs1=server.createobject("adodb.recordset")<BR>sql1="select
* from filename "<BR>rs1.open
sql1,conn,1,1<BR>%><BR><BR><BR><tr><BR><td
width="54"><select name="<% response.write"data1"&i
%>"<BR>size="1"><BR><%<BR>do while not rs.eof<BR>if
province=cstr(rs("id"))
then<BR>sel="selected"<BR>else<BR>sel=""<BR>end if
<BR>response.write "<option " & sel & "
value='"+CStr(rs("id"))+"'>"+rs("province")+"</option>"+chr(13)+chr(10)<BR>rs.movenext<BR>loop<BR>set
rs=nothing<BR>%> </select></td><BR><td
width="66"><input type="text" name="<%
response.write"data2"&i %>"
size="8"></td><BR><td width="66"><input
type="text" name="<% response.write"data3"&i %>"
size="8"></td><BR><td width="66"><select
size="1" name="<% response.write"data4"&i
%>"><BR><option
value="1">改动部分</option><BR><option
value="2">全部内容</option><BR></select></td><BR><td
width="80"><select name="<% response.write"data5"&i
%>"<BR>size="1"><BR><%<BR>do while not rs1.eof<BR>if
filename=cstr(rs1("filename"))
then<BR>sel="selected"<BR>else<BR>sel=""<BR>end if
<BR>response.write "<option " & sel & "
value='"+CStr(rs1("filename"))+"'>"+rs1("filename")+"</option>"+chr(13)+chr(10)<BR>rs1.movenext<BR>loop<BR><BR>set
rs1=nothing<BR>%> </select> </td><BR><td
width="328"><textarea rows="2" name="<%
response.write"data6"&i %>"
cols="46"></textarea></td><BR></tr><BR><BR><BR><BR><%
next %><BR><BR><BR><BR><tr><BR><td width="660"
colspan="6"><BR><p align="center"><input type="submit"
value="提交"
name="B1"></td><BR></tr><BR></table><BR></center><BR></div><BR></form></P>
<P></body></P>
<P></html></P>
<P>2.allneeddjresult.asp</P>
<P><BR><%<BR>rem 定义二维数组存放从表单获取的值<BR>dim data(10,6)<BR>for i= 1
to 6<BR>for j= 1 to
10<BR>mydata="data"+cstr(i)+cstr(j)<BR>data(j,i)=request.form(mydata)<BR>next<BR>next<BR>%></P>
<P><%<BR>rem 输出表单输入的值<BR>for i= 1 to 10<BR>for j= 1 to 6</P>
<P>response.write data(i,j)</P>
<P>next<BR>response.write"<br>"<BR>next</P>
<P>'response.end<BR>%></P>
<P><% <BR>dim conn,rs<BR>Set conn =
Server.CreateObject("ADODB.Connection")<BR>conn.Open
"driver={Microsoft Access Driver (*.mdb)};dbq=" &
_<BR>Server.MapPath("hbedu.mdb")</P>
<P><BR>for i= 1 to 10<BR>rem 循环批量入库</P>
<P>Set rs=SERVER.CreateObject("ADODB.Recordset")<BR>rs.Open
"hbedu",conn,1,3<BR>rs.AddNew<BR>rs("beizhu")=data(i,6)<BR>rs("filename")=data(i,5)<BR>rs("cpcontent")=data(i,4)<BR>rs("papertaocount")=data(i,3)<BR>rs("dytaocount")=data(i,2)<BR>rs("provinceid")=data(i,1)<BR>rs.Update<BR>rs.close<BR>set
rs=nothing</P>
<P>response.write"ok<br>"<BR>next<BR>%><BR>演示：http://www.zwtd.com/1/yanek/n/needdj2.asp
<BR><BR></P></BLOCKQUOTE></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<BLOCKQUOTE>原作者：yanek<BR>来 源：开发者俱乐部<BR>共有2742位读者阅读过此文<BR>【<A
href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】
</BLOCKQUOTE></TD>
<TD class=p4 vAlign=top width="50%">
<P>
<LI><FONT color=#0772b1>上篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2791">vbs(asp)的栈类</A>
<BR>
<LI><FONT color=#0772b1>下篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2793">Filter与updatebatch混合使用实现批量更新</A>
</LI></TD></TR>
<TR>
<TD bgColor=#297dff class=p4 height=20 width="50%"><FONT
color=#ceffff> → 本周热门</FONT></TD>
<TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff> →
相关文章</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=1510"
target=_top title="SQL Server 7.0 入门（一）">SQL Server 7.0
入门（...</A>[<FONT color=red>7238</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1540"
target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT
color=red>7135</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1536"
target=_top
title=无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）>无组件文件上传代码实例（支持多文件上...</A>[<FONT
color=red>6029</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2557"
target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT
color=red>5757</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1545"
target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT
color=red>5599</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2563"
target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT
color=red>5013</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1542"
target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT
color=red>4731</FONT>]<BR></LI></TD>
<TD class=p4 vAlign=top width="50%">
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2793">Filter与updatebatch混合使用实现批量更新</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2792">asp中利用数组实现数据库记录的批量录入方法</A><BR></LI></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD bgColor=#297dff height=1><SPACER type="block"
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<P align=center><A
href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A
href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A
href="http://www.aspsky.net/about.asp">关于本站</A> -- <A
href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT
face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright ©
2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights
Reserved .</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -