建立数据库连接
<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0:Data Source="&Server.MapPath("dbname.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr
%>
打开数据库
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from dbtable",bb,1,1
%>
打开表
<%
If rs.EOF and rs.BOF then
Response.write("None File")
else
Do Until rs.EOF <- for i=1 to 3 ->
Response.write("No."&rs("column1")
Response.write("No."&rs("column2")
Response.write("No."&rs("column3")
Response.write("No."&rs("column4")
Response.write("<hr>") <- 横线->
rs.MoveNext
Loop <- next ->
endif
%>
<%
rs.Close
set bb = Nothing
%>
