仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 418|回复: 8
打印 上一主题 下一主题

[学习教程] 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一样提供了完善的调试/纠错体系。
admin 该用户已被删除
板凳
发表于 2015-1-25 12:42:11 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
蒙在股里 该用户已被删除
地板
发表于 2015-2-2 22:07:01 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
活着的死人 该用户已被删除
5#
发表于 2015-2-8 11:30:28 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
冷月葬花魂 该用户已被删除
6#
发表于 2015-2-25 10:42:28 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
第二个灵魂 该用户已被删除
7#
发表于 2015-3-7 19:42:27 | 只看该作者
掌握asp的特性而且一定要知道为什么。
谁可相欹 该用户已被删除
8#
发表于 2015-3-15 12:34:05 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
金色的骷髅 该用户已被删除
9#
发表于 2015-3-22 01:08:00 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 11:19

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表