📄 conn.asp
字号:
<%
set con = Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data_Xbaby/Xbaby@19830126.asa")
con.open connstr
'-----------下以是网站全站信息-----------
set res=server.CreateObject("adodb.recordset")
sql="select * from company"
res.open sql,con,1,1
if not res.eof then
dim web_name,web_address,web_url,web_tel,web_fax,web_email
web_name=res("web_name") '网站名称
web_address=res("web_address") '公司地址
web_url=res("web_url") '公司网址
web_tel=res("web_tel") '公司电话
web_fax=res("web_fax") '公司传真
web_email=res("web_email") '公司邮箱
end if
res.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -