clconn.asp

没有什么

<%
'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0
'================================================================================================================
If IsSqlDataBase = 0 Then
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../Data.Mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Else
dim connstr
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName
strSQLServerName = "127.0.0.1"      '服务器名称或地址
strSQLDBUserName = "sa"             '数据库帐号
strSQLDBPassword = "baichi"               '数据库密码
strSQLDBName = "ujdwin"             '数据库名称
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.open connstr
End IF
if err.number<>0 then
	response.write "出错了，错误描述："&err.description & "<br>错误来源"& err.source
	response.End()
end if
%>