inc_connect.asp

ASP编写的网站

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

Dim db,conn,connstr,sql,rs
  db="data/HACKer007.asp"  '请将“HACKer007.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
%>