mxgbook_conn.asp

1、采用4.5修改而成。 2、添加了求片区

<%@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= "/rt/"		Rem 网站安装目录，根目录用“/”，请用"/"开头及结尾：如安装在 web 目录下，则值为：“/web/”
DbPath	= InstallDir & "MxGbook/Data/datas.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
'
'邮箱: [e-mail]
'ＱＱ: 69979999
'网站: www.stonemx.com
'
'Copyright (C) 2007 stonemx.com All Rights Reserved.
'==================================================
%>