<%
Dim db,connstr,sql,rs
connstr = "DBQ="+server.mappath("yang_yang.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set db = Server.CreateObject("ADODB.Connection")
db.Open connstr
set rs = server.createobject("adodb.recordset")
sqlstr = "select * from online">
rs.open sqlstr,db,1,1
while not rs.eof and not rs.bof
Response.Write rs("ip")
wend
set rs = nothing
db.Close
set db = nothing
%>
Microsoft Acess 2002 的数据库:
yang_yang.mdb
表名是:online
字段:id ------ `自动编号
ip ------ 文本(40位)
time ---- 日期/时间
建立ODBC数据源(如MyDSN)
.........
conn.open "MyDSN"
rs.open "select * from table where Field like '%Condition%'",conn,1,3
if rs.eof then
reponse.write("没有找到符合条件的记录!")
else
response.write("<table>")
do while not rs.eof
response.write("<tr>")
for i=0 to rs.recordcount-1
response.write("<td>&rs(i)&</td>")
next
response.write("</tr>")
rs.movenext
loop
response.write("</tabel>")
end if