conn.asp

ChinaWeb标准企业网站管理系统 V3.01

<%
dim conn
dim connstr
dim db
db="../Database/DataShop.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>
<%
'=========================================================
'
' 产品名称：良精科技 公司(企业)网站管理系统（简称：myszw.com）
' 版权所有: myszw.com 
' 程序制作：myszw.com开发团队
' Copyright 2004-2005 myszw.com - All Rights Reserved. 
'
'========================================================
%>