高考问答bar压力帕换算:access数据库与asp连接的代码是怎样？
来源：百度文库 编辑：高考问答 时间：2024/04/28 02:11:05
<%
set con = Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/design.mdb")
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
%>