<% On Error Resume Next Set Conn=Server.CreateObject("Adodb.Connection") strConn="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("../../Designac_Data/@!#designac%~.asa") Conn.Open strConn sql="select * from exoter order by id desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,1 if not rs.eof then rs.PageSize =12 '每页记录条数 result_num=rs.RecordCount '记录总数 maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page else result_num=0 maxpage=0 page=0 end if formPath="upload" %> <% if rs.eof and rs.bof then else i=1 dim ii ii=0 for i=1 to rs.PageSize if i>2 then response.Write "" ii=ii+1 i=1 end if %> <%rs.movenext:if rs.EOF or ii*2+i=rs.PageSize then Exit For next if i<>1 then for j=1 to 2-i response.Write("") next end if end if rs.close set rs=nothing %>

" width="120" height="90" alt="<%=rs("webjs")%>"> 网站名称：" target="_blank" class="English-11-18-333333"><%=rs("webname")%> 网站简介：<%=rs("webjs")%> 网站地址：" target="_blank" class="English-10-18-333333"><%=rs("weburl")%> 加入时间：<%=rs("time")%>

<% call LastNextPage(maxpage,page,result_num)%>