<% sql = "select * from jiaodian order by id desc" Set Conn=Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../system/database/new.mdb") rs.Open sql, conn %> <% if not rs.eof then for iPage = 1 To 6 a = rs.fields("biaoti") a = left(a,35) a = a dd = rs.fields("timer") %> " target="_blank" class="unnamed3"><%=a%>((<%=dd%>)
<% rs.movenext if rs.eof then exit for next end if %>