conn.asp

来自「深圳灯兆公司网站 由五个部分组成： 公司简介、公司产品」· ASP 代码 · 共 20 行

<% 
set con = Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data_Xbaby/[e-mail]")
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
%>