conndb.asp

企事业单位网站管理系统 防止数据库数据非法备份

<%@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
%>