您的位置：首页 → 网页设计 → ASP实例 → 用数组实现数据记录的批量录入方法

用数组实现数据记录的批量录入方法

时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)

<%

rem 文章题目 asp中利用数组实现数据库记录的批量录入方法(原创)

作者：yanek

联系email:aspboy@263.net

%>



包括两个文件

1。allneeddj.asp：实现表单的生成

2. allneeddjresult.asp 处理表单批量录入

3.hbedu.mdb :数据库文件

其数据库结构如下

provinceid:省份编号 数值型

dytaocount:打样套数 数值型

papertaocount:纸样套数 数值型

cpcontent:出片内容 数值型

filename:文件名 文本型

beizhu:备注  备注型



本例子中以10条记录，每条记录6个字段说明.



1。allneeddj.asp































<%

set conn=server.createobject("adodb.connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _

             Server.MapPath("hbedu.mdb")



%>

  

    

  

    

      

    

    

      

      

      

      

      

      

    

    

    

    <%

rem 通过循环动态生成不同名称表单域

for i=1 to 10

%>

    <%

    set rs=server.createobject("adodb.recordset")

sql="select * from provinceinfo "

rs.open sql,conn,1,1







set rs1=server.createobject("adodb.recordset")

sql1="select * from filename "

rs1.open sql1,conn,1,1

    %>

    

    

    

      

      

      

      

      

      

    

  

    

    

      <% next %>

    

    

    

    

      

    

  

需求登记
省份	打样张数	纸样张数	出片内容	文件名	备注
"       size="1"> <%               do while not rs.eof                              if province=cstr(rs("id")) then                                 sel="selected"                              else                                 sel=""                              end if                                          response.write ""+rs("province")+""+chr(13)+chr(10)                      rs.movenext                    loop                    set rs=nothing               %>	" size="8">	" size="8">	">           改动部分           全部内容	"       size="1"> <%               do while not rs1.eof                              if filename=cstr(rs1("filename")) then                                 sel="selected"                              else                                 sel=""                              end if                                          response.write ""+rs1("filename")+""+chr(13)+chr(10)                      rs1.movenext                    loop                                            set rs1=nothing               %>	" cols="46">

    

  

2.allneeddjresult.asp





<%

rem 定义二维数组存放从表单获取的值

dim data(10,6)

for i= 1 to 6

for j= 1 to 10

mydata="data"+cstr(i)+cstr(j)

data(j,i)=request.form(mydata)

next

next

%>



<%

rem 输出表单输入的值

for i= 1 to 10

for j= 1 to 6



response.write data(i,j)



next

response.write"
"

next



'response.end

%>



<%

dim conn,rs

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _

             Server.MapPath("hbedu.mdb")





for i= 1 to 10

rem 循环批量入库



Set rs=SERVER.CreateObject("ADODB.Recordset")

rs.Open "hbedu",conn,1,3

  rs.AddNew

  rs("beizhu")=data(i,6)

  rs("filename")=data(i,5)

  rs("cpcontent")=data(i,4)

  rs("papertaocount")=data(i,3)

  rs("dytaocount")=data(i,2)

  rs("provinceid")=data(i,1)

  rs.Update

rs.close

set rs=nothing



response.write"ok
"

next

%>

演示：http://www.zwtd.com/1/yanek/n/needdj2.asp

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论