<%@language=vbscript codepage=936 %>
<%
'----------------------------------------------------------------------
'轉發時請保留此聲明信息,這段聲明不并會影響你的速度!
'*******************   金三角源碼知迅592s.com  ************************************
'作者:廈門創軟回憶
'網站:http://www.592s.com
'qq412771253
'版權聲明:版權所有,源代碼公開,各種用途均可免費使用,但是修改后必須把修改后的文件
'發送一份給作者.并且保留作者此版權信息
'**********************************************************************
'----------------------------------------------------------------------
option explicit
response.buffer=true	
dim conn
dim connstr
dim db
db="based911soft/basedsoft911.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>