<%@ language=vbscript %>
<%
option explicit
on error resume next
dim conn
dim connstring
dim dbf
dbf="database/%29#get123.mdb"
conn=server.createobject("adodb.connection")
connstring="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath(dbf)
'connstring="provider=microsoft.jet.oledb.4.0;data source=" & server.appath(dbf)
'connstring="provider=sqloledb;database=get123;uid=sa;pwd="
'connstring="driver={sqlserver};server=127.0.0.1;database=get123;uid=sa;pwd="
'connstring="dsn=get123;uid=;pwd=;"//用access
'connstring="dsn=get123;uid=;pwd=;database=databaename;"//用sql server
conn.open connstring
%>
<%
option explicit
on error resume next
dim conn
dim connstring
dim dbf
dbf="database/%29#get123.mdb"
conn=server.createobject("adodb.connection")
connstring="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath(dbf)
'connstring="provider=microsoft.jet.oledb.4.0;data source=" & server.appath(dbf)
'connstring="provider=sqloledb;database=get123;uid=sa;pwd="
'connstring="driver={sqlserver};server=127.0.0.1;database=get123;uid=sa;pwd="
'connstring="dsn=get123;uid=;pwd=;"//用access
'connstring="dsn=get123;uid=;pwd=;database=databaename;"//用sql server
conn.open connstring
%>
VBScript连接数据库示例

被折叠的 条评论
为什么被折叠?



