[ÇóÖú] ¹ØÓÚÊý¾Ý¿âÁ¬½ÓÎÊÌâ

¡ÌËÀÅÖ×Ó

<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'-----------ÏÂÒÔÊÇÍøվȫվÐÅÏ¢-----------
set res=server.CreateObject("adodb.recordset")
sql="select top 1 * 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")
gywn=res("gywn")
companyhao=res("companyhao")                   '¹«Ë¾ÓÊÏä
end if
res.close
%>


´íÎóÀàÐÍ£º
ADODB.Recordset (0x800A0BB9)
²ÎÊýÀàÐͲ»ÕýÈ·£¬»ò²»ÔÚ¿ÉÒÔ½ÓÊܵķ¶Î§Ö®ÄÚ£¬»òÓëÆäËû²ÎÊý³åÍ»¡£
/bbs/conn.asp, µÚ 9 ÐÐ

¨T©¥ž™É¬©¥¨T

´óÒâŶ~

tpŒšŒš^¨­^

л°¡£¡

ÎҸĺÃÁË¡£¡£

Èçϱä¸ü
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
dim strSql,rs
strSql="select top 1 * from company"
Set rs=db.Execute(strSql)
dim web_name,web_address,web_url,web_tel,web_fax,web_email
web_name=rs("web_name")                           'ÍøÕ¾Ãû³Æ
web_address=rs("web_address")                     '¹«Ë¾µØÖ·
web_url=rs("web_url")                             '¹«Ë¾ÍøÖ·
web_tel=rs("web_tel")                             '¹«Ë¾µç»°
web_fax=rs("web_fax")                             '¹«Ë¾´«Õæ
web_email=rs("web_email")
gywn=rs("gywn")
companyhao=rs("companyhao")                   '¹«Ë¾ÓÊÏä
rs.close
%>

ÂÞÃ×Å·

½«
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
¸ÄΪ
db.open "provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("data/bbs.mdb")
¿´¿´

¦á¨ã¢¸¶®¾mÖD

Ä㽨Á¢µÄÊÇdbÊý¾Ý¿âÁ¬½Ó¿ÉÏÂÃæ´ò¿ªµÄÊÇcon
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'-----------ÏÂÒÔÊÇÍøվȫվÐÅÏ¢-----------
set res=server.CreateObject("adodb.recordset")
sql="select top 1 * from company"

res.open sql,con,1,1'ÕâÊǵھÅÐС£

30Ëê¾Í¸Ä±ä

LSÕý½â