|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。断开|纪录集|详解 我们在利用ASP内置的ADO组件举行数据库编程时,一般是在剧本的开首翻开一个毗连,并在剧本的最初封闭它,可是就较年夜剧本而言,在多半情形下毗连翻开的工夫要比它必要翻开的工夫长很多。因而为了节俭服务器资本,应当尽量封闭毗连以开释毗连所占据的资本,这类封闭纪录集的毗连而不封闭纪录集的手艺叫做断开纪录集,这个纪录集自己则称为断开的纪录集。
上面我们就经由过程一个实例来讲明这类手艺的利用办法(NorthWind.mdb是MicrosoftAccess97自带的一个数据库,文件adovbs.inc可在C:ProgramFilesCommonFilesSystemADO下找到):
<%@LANGUAGE=VBScript%>
<!--#includefile="adovbs.inc"-->
<%
Response.Expires=0
DimCnn,objRS,strOut,strQ,strC
StrC="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("asp24")&"NorthWind.mdb;"
创建毗连
SetCnn=Server.CreateObject("ADODB.Connection")
Cnn.OpenStrC
创立Recordset工具
SetobjRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation=adUseClient
objRS.CursorType=adOpenStatic
objRS.LockType=adLockOptimistic
strQ="SELECT运货商ID,公司称号,德律风FROM运货商"
objRS.OpenstrQ,Cnn,,,adCmdText
SetobjRS.ActiveConnection=Nothing 断开纪录集
Cnn.Close 封闭毗连
SetCnn=Nothing
Response.Write"<HTML><BODY>"
上面利用断开的纪录集
DoWhile(NotobjRS.EOF)
strOut=objRS("运货商ID")&","&objRS("公司称号")&","&objRS("德律风")
Response.WriteServer.HTMLEncode(strOut)&"<BR>"
objRS.MoveNext
Loop
Response.Write"<BR>筹办新增或拔出纪录:"
若必要更新数据库,则要从头创建毗连
SetCnn=Server.CreateObject("ADODB.Connection")
Cnn.OpenstrC
SetobjRS.ActiveConnection=Cnn
objRS.Filter="公司称号=吴丰"
IfobjRS.EOFThen
objRS.AddNew
objRS("公司称号")="吴丰"
objRS("德律风")="571-7227298"
objRS.Update
Response.Write"切合该前提的纪录不存在,则新增.<BR>"
Else
objRS("德律风")="571-7227071"
Response.Write"切合该前提的纪录存在,则Update.<BR>"
objRS.Update
EndIf
SetobjRS.ActiveConnection=Nothing
Cnn.close
SetCnn=Nothing
objRS.Close
SetobjRS=Nothing
Response.Write"</BODY></HTML>"
%>
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|