<%
'**************************************
'**		inc_connect.asp
'**
'** 文件说明：数据库连接文件
'** 修改日期：2005-08-20
'** 作者：Howlion
'** Email：howlion@163.com
'**************************************

On Error Resume Next

'请将下面第二行中的“#buy2#guest#date.asp”替换为您自己重命名后的数据库地址
dim db,conn,connstr,sql,rs
	db="../Data/#buy2#guest#data.asp"
	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
%>