<%
Dim Cai_DB
On Error Resume Next
Cai_DB="Cai_Class.mdb" '数据库路径
Cai_Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Cai_DB)
Set Conn_Cai = Server.CreateObject("ADODB.Connection")
Conn_Cai.open Cai_Conn
If Err Then
	Err.Clear
	Set Conn_Cai = Nothing
	Response.Write "分类绑定----数据库连接出错!"
	Response.End
End If
%>