<!--#Include file="setup.asp"-->
<%
'┌─  風(fēng)云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統(tǒng)開發(fā)，網(wǎng)站制作，提供高質(zhì)量的網(wǎng)絡(luò)產(chǎn)品、技術(shù)和服務(wù)！│
'│                                                                 │
'│【版權(quán)聲明】                                                     │
'│                                                                 │
'│     本程序版權(quán)歸坐看風(fēng)云所有，未經(jīng)授權(quán)擅自修改、復(fù)制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴(yán)厲的民事和刑事處罰，對(duì)已知的違反者將給予法 │
'│                                                                 │
'│律范圍內(nèi)的全面制裁。對(duì)非法使用此程序所造成的一切后果本人概不負(fù)責(zé)!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
if ms=1 then
On Error Resume Next
end if
Dim strFilePath
Dim strConnectionString	
Dim Conn
wjj="mdbjuka"   '存放數(shù)據(jù)庫的文件夾，顯示空間及文件大小時(shí)用到
yslj=gqml&"database\www.fyasp.com.asp" '存放數(shù)據(jù)庫文件夾后臺(tái)壓縮、備份、還原數(shù)據(jù)庫要用到
ddstrFilePath = Server.MapPath(""&yslj&"")               '/改數(shù)據(jù)庫路徑為您的數(shù)據(jù)庫路徑，如為根目錄，刪除“”即可/
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& ddstrFilePath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConnectionString
intMemberKey = Session("intMemberKey")              '會(huì)員ID,不要修改
%>