opendb.asp

来自「强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点」· ASP 代码 · 共 37 行

<!--#include file="Mdbname.asp"-->
<%
dim TxEdition,TxWebsite,TxNumber
dim SystemFolder
dim Conn
dim Sql,Sqlc,Sql_c
dim MyDbPath
dim DBPath,Connstr

TxEdition="V2007"
TxWebsite="CSYS.COM.CN企业全站管理系统"
TxNumber="CSYSY"
'//=============================================================
'程序所在路径，如程序在根目录的taixun文件夹里：MyDbPath="taixun/"
MyDbPath=""
'//=============================================================
'用户第一次使用请修改数据库地址并修改相应目录中数据库名称
'数据库地址请在Inc/Mdbname.asp中修改
'//-------------------------------------------------------------
'主数据
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & MdbName)
	On error Resume Next
	Set conn = server.createObject("ADODB.Connection")
	conn.open ConnStr
	if err Then
		err.clear
		Set Conn = nothing
		response.Write "数据库连接出错，请检查连接字串。"
		response.end
	end if
'//-------------------------------------------------------------
'IP地址
		Set CiP=server.createobject("ADODB.CONNECTION")
		costr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath(MyDbPath & LastMdbName)
		CiP.open costr
%>