?? conn.asp
字號:
<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("/db/xyl.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
'================站點信息==================
sql_config="select * from config where type='sitename' "
set config_set=conn.execute(sql_config)
sitename=config_set("value")
config_set.close
sql_config="select * from config where type='siteaddr' "
set config_set=conn.execute(sql_config)
siteaddr=config_set("value")
config_set.close
sql_config="select * from config where type='toplog' "
set config_set=conn.execute(sql_config)
toplog=config_set("value")
config_set.close
sql_config="select * from config where type='topmarque' "
set config_set=conn.execute(sql_config)
topmarque=config_set("value")
config_set.close
sql_config="select * from config where type='gonggao' "
set config_set=conn.execute(sql_config)
gonggao=config_set("value")
config_set.close
sql_config="select * from config where type='masteremail' "
set config_set=conn.execute(sql_config)
masteremail=config_set("value")
config_set.close
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -