conn.asp

asp的网上卖东西的..看看还可以的吧

<%@ LANGUAGE = VBScript.Encode %>
<%
dim db
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP

const BjxshopVersion=1     '伴江行购物管理系统的版本，1为免费版，2为个人版，3为企业版
const BjxshopDatabaseType="ACCESS"    '系统数据库类型，"SQL"为MS SQL2000数据库，"ACCESS"为MS ACCESS 2000数据库

'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
db="data\#bjxshop.mdb"           'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径

'如果是SQL数据库，请认真修改好以下数据库选项
SqlUsername = "bjxshop"           'SQL数据库用户名
SqlPassword = "bjxshop888"       'SQL数据库用户密码
SqlDatabaseName = "bjxshop"    'SQL数据库名
SqlHostIP = "127.0.0.1"           'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）

	'On Error Resume Next
	dim ConnStr
	dim conn
	if BjxshopDatabaseType="SQL" then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
	else
		ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	end if
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
		Response.End
	End If

sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	end if
end sub
%>