📄 mxgbook_conn.asp
字号:
<%@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
'
'邮箱: stonemx@163.com
'QQ: 69979999
'网站: www.stonemx.com
'
'Copyright (C) 2007 stonemx.com All Rights Reserved.
'==================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -