www.gusucode.com > QCMS小型网站管理系统 1.4 SP1 UTF-8 ACCESS源码程序 > inc/conn.asp

    <!--#include file="const.asp"-->
<%
On Error Resume Next
If data_type="mssql" Then
set conn=server.createobject("adodb.Connection")
conn.Open"Driver={SQL Server};Server="&mssql_ip&";UID="&mssql_user&";PWD="&mssql_pwd&";database="&mssql_data_name&";"
Else
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(install&DBPath) 
End If
  	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错"
		Response.End
	End If
%>