|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!我们在利用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具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|