<% dim te sub fy2 (page,name,rs) response.write "" response.write "" response.write "" response.write "
" Response.Write ""&request("chanpinname")&" 相关信息有"&rs.recordcount&"条" If Page > 1 Then Response.Write "[第一页] " Response.Write "[上一页] " End If if page="" and rs.pageCount<>0 then Response.Write "[下一页] " Response.Write "[最后一页]" End If If Page < cint(rs.pageCount) Then Response.Write "[下一页] " Response.Write "[最后一页]" End If response.write "　"&"[第"&page&"页]/[共"&rs.pagecount&"页]" if rs.pageCount<>0 then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" end if end sub %>
<% if request("page")<>""then page=cint(request("page")) else page=1 end if set rs=server.CreateObject("adodb.recordset") sql="select * from article" sql=sql&" order by dateandtime desc" rs.Open sql,conn,1,4 if not rs.EOF then rs.pagesize=15 rs.absolutepage=page if request("chanpinname")<>"" then q=1 %> <% ' 用循环输出当前页的 10 条数据 For absRecordNum = 1 to rs.PageSize %> <% rs.MoveNext if rs.eof then exit for next %>
· "><%=rs("title")%> (<%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%>)
<%else %>

没有找到相关记录




<%end if %>