conn.asp

MisCMS源码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
Response.Buffer = True
Const IsSqlDataBase = 0				'定义数据库类别，0为Access数据库，1为SQL数据库

If IsSqlDataBase = 1 Then			'sql数据库连接参数
	Const SqlDatabaseName = "mis8"		'数据库名(SqlDatabaseName)
	Const SqlPassword = "sa"		'用户密码(SqlPassword)
	Const SqlUsername = "sa"			'用户名(SqlUsername)
	Const SqlLocalName = "(local)"		'连接名(SqlLocalName)（本地用local，外地用IP）
Else
	Db = "../Data/#max.mdb" '数据库地址
End If

If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
	End If

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
 %>
<script></script>