conn.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 30 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><%
dim conn
dim connstr
dim db
db="database/#ddtaobao.mdb"      '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
If Err then
err.clear
set conn=nothing
response.write "数据库连接出错，请检查连接。"
response.end
end if

sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>