dataconnect.asp

asp图书馆管理系统的一个源代码

<%'DataConnect.asp

 Response.Expires = 0
 Dim StrCnn,Cnn

set Cnn = Server.Createobject("ADODB.Connection")

'下面这句为数据库连接设置，路径为DB/Library.mdb，密码为admin，你可以根据你的需要来更改，不用我讲如何设置了吧？如果要，可以写信给我。
StrCnn = "DBQ="+Server.Mappath("DB/Library.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};PWD=admin;DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Cnn.open StrCnn

%>