conn.asp

驴友格子(access)版v1.50 (中国驴友网开发http://www.hikers.cn) 后台管理：admin 管理员用户名：admin 管理员密码：admin (md5加密后

<% 
	'====================================================================
	'程序名称:驴友格子v1.5
	'作者：刷新记忆
	'网站：中国驴友网 http://www.hikers.cn or http://gezi.hikers.cn
	'QQ:150154016
	'msn:[e-mail]
	'====================================================================
	
	Dim Db,MyDbPath
	dim conn
	'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0
MyDbPath = ""
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "12312"
Const SqlPassword = "123131"
Const SqlUsername = "131231"
Const SqlLocalName = "612311.11322.831.3"
'================================================================================================================
Else
'必修改设置三：========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将dvbbs6.mdb修改为dvbbs6.asp
Db = "/hikers_data/hikers.mdb"
'================================================================================================================
End If

	Dim ConnStr
	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

'-----------------------------------------------------------------------------------------------------
	 
function endconn()
    '关闭打开的conn连接
    '调用方法： call endconn()
    on error resume next
    if isobject(conn) then conn.close:set conn=nothing
end function
%>