conn.asp

ASP+Accesss数据库设备WEB报修

<!--#include file="admin/config.asp"-->
<!--#include file="admin/sql.asp"-->
<%
on error resume next
dim conn
dim connstr
'db="../data/#net.mdb"      '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/"&db&"")
conn.Open connstr
If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
sub CloseConn()
On Error Resume Next
	Conn.close
	set Conn=nothing
end sub

%>

<!--#include file="Inc/Function.asp"-->