conn.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 44 行

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 
 
 if session("globalecmaster")=""   or session("adminid")="" then
  Response.Redirect("../../index.asp")
 end if
 
 
 %>
 <!--#include file="../../../conn/conn.asp"-->
 <!--#include file="../../../inc/filesystem.asp"--> 

<%
 

Sub CloseConn()

	Conn.close
	set Conn=nothing
End sub


dim connstrItem
dim dbItem
dim connItem
dbItem="database/#Item.mdb"       
 on error resume next
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "采集数据库连接出错，请检查连接字串。"
   Response.End
End If

Sub CloseConnItem()
    on error resume next
   ConnItem.close
   Set ConnItem=nothing
End sub
%>