|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;毗连数据库办理了ACCESS数据库路径的成绩!
接纳DBType=0或DBType=1来辨别AC库仍是MSSQL库
详细接纳AC库时应注重的事项,请看程序申明
--------------------------------------------------------------------------------
DimDBType,Conn,StrConn
DBType=00为Access数据库,1为MSSQL数据库
If(DBType=0)Then
********************************ACCESS数据库*************************************
DimDbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData"数据库地点文件夹称号
DbFolder_Path=Server.MapPath(DbFolderName)数据库地点路径
SiteFolder="Article"体系地点根目次称号
IfSession("RootDir")=""Then
Session("RootDir")=Mid(DbFolder_Path,1,InStr(1,DbFolder_Path,SiteFolder,1)-1)&SiteFolder
Endif
SetConn=Server.CreateObject("Adodb.Connection")
StrConn="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Session("RootDir")&""&DbFolderName&"Data.mdb"毗连到数据库
Conn.OpenStrConn
**********************************************************************************
ElseIf(DBType=1)Then
*****************************MSSQLSERVER数据库*************************************
DimDBUserID,DBPassWord,DBName,DBIP
修正以下信息以合适你的网站
DBUserID="sa"数据库上岸名
DBPassWord=""数据库暗码
DBName="dbname"数据库称号
DBIP="local"数据库地点地点,假如是当地数据库则为:(local)
SetConn=Server.CreateObject("Adodb.Connection")
StrConn="PROVIDER=SQLOLEDB.1;DataSource="&DBIP&";InitialCatalog="&DBName&";PersistSecurityInfo=True;UserID="&DBUserID&";Password="&DBPassWord&";ConnectTimeout=30"
Conn.OpenStrConn
**********************************************************************************
Else
***********************数据库设置毛病*************************************************
Response.Write"数据库设置毛病,请接洽办理员!"
Response.End
EndIf
Response.WriteStrConn
</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|