<%@language="vbscript" codepage="936" %>
<%
option explicit
'response.buffer=true
'Response.Expires = -1
'Response.ExpiresAbsolute = Now() - 1
'Response.Expires = 0
'Response.CacheControl = "no-cache"
'-------------------------------------------------------------------------------------------
Dim DbPath
Const InstallDir= "/"		Rem 網站安裝目錄，根目錄用“/”，請用"/"開頭及結尾：如安裝在 web 目錄下，則值為：“/web/”
DbPath	= InstallDir & "MxGbook/Data/data.mdb"	'Access主數據庫文件的位置
'-------------------------------------------------------------------------------------------
Dim conn
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath(DbPath)
if err then
	err.clear
	set conn = Nothing
	response.write "連接數據庫出錯，請聯系管理員"
	response.end
end if
%>
<%
dim sql,rs
dim MxGbookCode,MxGbookSh,webname
set rs=server.createobject("adodb.recordset")
sql="select MxGbookCode,MxGbookSh,webname from st_setup where id in(1)"
rs.open sql,conn,1,1
MxGbookCode=rs("MxGbookCode")
MxGbookSh=rs("MxGbookSh")
webname=rs("webname")
rs.close
set rs=nothing
%>
<%
'==================================================
'MxGbook Version 3.0
'							Powered by stonemx.com
'
'郵箱: stonemx@163.com
'ＱＱ: 69979999
'網站: www.stonemx.com
'
'Copyright (C) 2007 stonemx.com All Rights Reserved.
'==================================================
%>