inc_connect.asp

来自「旋木留言本 v1.51 主要功能： UBB代码支持」· ASP 代码 · 共 21 行

<%
'**************************************
'**    Inc_connect.asp
'**
'** 文件说明：数据库连接文件
'** 修改日期：2004-9-22
'** 作者：Howlion
'** Email：[e-mail]
'**************************************

Dim db,conn,connstr,sql,rs
db="data/database.asp"	'请将“gb.asp”替换为你自己重命名后的数据库地址，切记！
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr

function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>