|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。毗连数据库/*writtenbyJaron,2003-05-10*/
/*原出处:江都资讯网http://www.jiangdu.net*/
/*转载请说明出处和保存此版权信息*/
/*接待利用SiteManager网站办理体系http://sitemanager.cnzone.net*/
VB-工程-援用-ADO2.0,建一个类DB,工程名设为SQLCONN
以下是偶程序中的部分代码,人人有空能够尝尝
OptionExplicit
PublicstrErrorAsString
PublicConnAsNewADODB.Connection
PublicRsAsNewADODB.Recordset
PublicPropertyGetErrorString()AsString
ErrorString=strError
EndProperty
PublicFunctionConn_Open(strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName)
DimstrConAsString
SetConn=NewADODB.Connection
OnErrorGoToerrHandler:
strCon="Provider=SQLOLEDB;Server="&strSQLServerName&";UserID="&strSQLDBUserName&";Password="&strSQLDBPassword&";Database="&strSQLDBName&";"
Conn.OpenstrCon
errHandler:
strError="毛病源:"&Err.Source&vbCrLf&"形貌:"&Err.Description
ExitFunction
EndFunction
FunctionGetRootID(ByValClassID)
Dimquery
query="selectclass_ID,RootIDfromtblCategorywhereclass_id="&ClassID&""
SetRs=Conn.Execute(query)
IfNot(Rs.EOFAndRs.BOF)Then
GetRootID=Rs("RootID")
Else
GetRootID=ClassID
EndIf
Rs.Close
SetRs=Nothing
EndFunction
编译后,在ASP中如许用
functionGetRootID(byvalid)猎取根类ID号
setS_DB=server.CreateObject("SQLCONN.DB")
S_DB.Conn_OpenstrSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
GetRootID=S_DB.GetRootID(id)
SetS_DB=nothing
endfunction
</p>Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。 |
|