仓酷云

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

[学习教程] ASP网页设计利用ADO批量更新纪录(源代码)

[复制链接]
精灵巫婆 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:32:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。**************************************
Name:BatchUpdateusingADO
Description:ADOhasagreatbatchupda
tefeaturethatnotmanypeopletakeadv
antageof.Youcanuseittoupdatemany
recordsatoncewithoutmakingmultiple
roundtripstothedatabase.Hereishow
touseit.
By:FoundontheWorldWideWeb


Inputs:None

Returns:None

Assumes:None

SideEffects:None

Warranty:
codeprovidedbyPlanetSourceCode(tm)
(http://www.Planet-Source-Code.com)as
is,withoutwarrantiesastoperformanc
e,fitness,merchantability,andanyothe
rwarranty(whetherexpressedorimplied
).
**************************************

<HTML>
<HEAD><TITLE>PlaceDocumentTitleHere</TITLE></HEAD>
<BODYBGColor=ffffffText=000000>
<%
Setcn=Server.CreateObject("ADODB.Connection")
Setrs=Server.CreateObject("ADODB.RecordSet")
cn.OpenApplication("guestDSN")
rs.ActiveConnection=cn
rs.CursorType=adOpenStatic
rs.LockType=adLockBatchOptimistic
rs.Source="SELECT*FROMauthors"
rs.Open
If(rs("au_fname")="Paul")or(rs("au_fname")="Johnson")Then
newval="Melissa"
Else
newval="Paul"
EndIf
Iferr0Then
%>
<B>ErroropeningRecordSet</B>
<%Else%>
<B>OpenedSuccessfully</B><P>
<%EndIf%>
<H2>BeforeBatchUpdate</H2>
<TABLEBORDER=1>
<TR>
<%Fori=0Tors.Fields.Count-1%>
<TD><B><%=rs(i).Name%></B></TD>
<%Next%>
</TR>
<%Forj=1To5%>
<TR>
<%Fori=0Tors.Fields.Count-1%>
<TD><%=rs(i)%></TD>
<%Next%>
</TR>
<%
rs.MoveNext
Next
rs.MoveFirst
%>
</TABLE>
MoverandomlyInthetableandperformupdatesTotable.<BR>
<%
Randomize
r1=Int(rnd*3)+1nItterations
r2=Int(rnd*2)+1nplacesskippedbetweenupdates
Fori=1Tor1
response.write"Itteration:"&i&"<BR>"
rs("au_fname")=newval
Forj=1Tor2
rs.MoveNext
response.write"MoveNext<BR>"
Next
Next
rs.UpdateBatchadAffectAll
rs.Requery
rs.MoveFirst
%>
<%rs.MoveFirst%>
<H2>AfterChanges</H2>
<TABLEBORDER=1>
<TR>
<%Fori=0Tors.Fields.Count-1%>
<TD><B><%=rs(i).Name%></B></TD>
<%Next%>
</TR>
<%Forj=1To5%>
<TR>
<%Fori=0Tors.Fields.Count-1%>
<TD><%=rs(i)%></TD>
<%Next%>
</TR>
<%
rs.MoveNext
Next
rs.Close
Cn.Close
%>
</TABLE>
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用
蒙在股里 该用户已被删除
沙发
发表于 2015-1-18 05:25:22 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
莫相离 该用户已被删除
板凳
发表于 2015-1-21 11:04:08 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
只想知道 该用户已被删除
地板
发表于 2015-1-30 16:21:40 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
冷月葬花魂 该用户已被删除
5#
发表于 2015-2-6 14:02:00 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
飘飘悠悠 该用户已被删除
6#
发表于 2015-2-16 10:09:00 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
老尸 该用户已被删除
7#
发表于 2015-3-5 03:48:27 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
活着的死人 该用户已被删除
8#
发表于 2015-3-11 23:15:48 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
第二个灵魂 该用户已被删除
9#
发表于 2015-3-19 16:00:47 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
分手快乐 该用户已被删除
10#
发表于 2015-3-29 00:10:27 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-29 09:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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