ASP教程之asp中使用数组完成数据库纪录的批量录进...

只看该作者 · 发表于 2015-1-16 22:49:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了数据|数据库|数组
asp中使用数组完成数据库纪录的批量录进办法(原创)
演示：http://www.zwtd.com/1/yanek/n/needdj2.asp
<%
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
<html>
<head>
<metahttp-equiv="Content-Language"content="zh-cn">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>需求挂号</title>
</head>
<body>

<%
setconn=server.createobject("adodb.connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&_
Server.MapPath("hbedu.mdb")
%>
<formmethod="POST"action="allneeddjresult.asp">
<divalign="center">
<center>
<tableborder="1"width="700"bordercolorlight="#FFFFFF">
<tr>
<tdwidth="660"colspan="6">
<palign="center">需求挂号</td>
</tr>
<tr>
<tdwidth="54"align="center">省分</td>
<tdwidth="66"align="center">打样张数</td>
<tdwidth="66"align="center">纸样张数</td>
<tdwidth="66"align="center">出片内容</td>
<tdwidth="80"align="center">文件名</td>
<tdwidth="328"align="center">
<palign="center">备注</td>
</tr>

<%
rem经由过程轮回静态天生分歧称号表单域
fori=1to10
%>
<%
setrs=server.createobject("adodb.recordset")
sql="select*fromprovinceinfo"
rs.opensql,conn,1,1

setrs1=server.createobject("adodb.recordset")
sql1="select*fromfilename"
rs1.opensql1,conn,1,1
%>

<tr>
<tdwidth="54"><selectname="<%response.write"data1"&i%>"
size="1">
<%
dowhilenotrs.eof
ifprovince=cstr(rs("id"))then
sel="selected"
else
sel=""
endif
response.write"<option"&sel&"value="+CStr(rs("id"))+">"+rs("province")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
setrs=nothing
%></select></td>
<tdwidth="66"><inputtype="text"name="<%response.write"data2"&i%>"size="8"></td>
<tdwidth="66"><inputtype="text"name="<%response.write"data3"&i%>"size="8"></td>
<tdwidth="66"><selectsize="1"name="<%response.write"data4"&i%>">
<optionvalue="1">修改部分</option>
<optionvalue="2">全体内容</option>
</select></td>
<tdwidth="80"><selectname="<%response.write"data5"&i%>"
size="1">
<%
dowhilenotrs1.eof
iffilename=cstr(rs1("filename"))then
sel="selected"
else
sel=""
endif
response.write"<option"&sel&"value="+CStr(rs1("filename"))+">"+rs1("filename")+"</option>"+chr(13)+chr(10)
rs1.movenext
loop
setrs1=nothing
%></select>　</td>
<tdwidth="328"><textarearows="2"name="<%response.write"data6"&i%>"cols="46"></textarea></td>
</tr>

<%next%>

<tr>
<tdwidth="660"colspan="6">
<palign="center"><inputtype="submit"value="提交"name="B1"></td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
2.allneeddjresult.asp

<%
rem界说二维数组寄存从表单猎取的值
dimdata(10,6)
fori=1to6
forj=1to10
mydata="data"+cstr(i)+cstr(j)
data(j,i)=request.form(mydata)
next
next
%>
<%
rem输入表单输出的值
fori=1to10
forj=1to6
response.writedata(i,j)
next
response.write"<br>"
next
response.end
%>
<%
dimconn,rs
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&_
Server.MapPath("hbedu.mdb")

fori=1to10
rem轮回批量进库
Setrs=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
setrs=nothing
response.write"ok<br>"
next
%>
演示：http://www.zwtd.com/1/yanek/n/needdj2.asp

帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。

只看该作者 · 发表于 2015-1-20 05:11:41

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-1-25 12:42:11

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-2-2 22:07:01

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

只看该作者 · 发表于 2015-2-8 11:30:28

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-2-25 10:42:28

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

只看该作者 · 发表于 2015-3-7 19:42:27

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-3-15 12:34:05

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

只看该作者 · 发表于 2015-3-22 01:08:00

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

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

[学习教程] ASP教程之asp中使用数组完成数据库纪录的批量录进...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子