下面提供一款最全面的asp数据库连接源码哦可以根据不同类型判断是连接access数据库还是mssql数据库哦
<%@LANGUAGE="VBSCRIPT" CODEPAGE=""%>
<%
dim DataLinkTypeconnconnstrMyDbPath
MyDbPath="data/Databasemdb" 数据库文件位置
DataLinkType = 设置数据库连接方式为SQL数据库为Access数据库
If dataLinkType= Then
**************************************************
使用Access数据库
**************************************************
ConnStr = "Provider = MicrosoftJetOLEDB;Data Source = " & ServerMapPath(MyDbPath)
Else
**************************************************
使用SQL数据库
**************************************************
ConnStr = "Driver={SQL Server}; server=(local);uid=sa;pwd=windows;database=data;"
ConnStr = "Provider=SQLNCLI; server=SQLEXPRESS;uid=sa;pwd=windows;database=data;"
End If
On Error Resume Next
Set conn = ServerCreateObject("ADODBConnection")
connopen ConnStr
If Err Then
ErrClear
Set Conn = Nothing
ResponseWrite "数据库连接出错请检查连接字串"注释需要把这几个字翻译成英文
ResponseEnd
End If
**************************************************
关闭数据库
**************************************************
sub CloseConn()
connclose
set conn=nothing
end sub
%>
