<% sSql="Select * From ProvideData Where P_Recycle=False Order By P_ID Desc" %> <% oRs.Open sSql,oConn,1,1 Dim PicNum dim MaxPerPage dim totalPut dim CurrentPage dim TotalPages dim i MaxPerPage=35 if not ors.eof then ors.MoveFirst end if ors.pagesize=MaxPerPage If trim(Request("Page"))<>"" then If IsNumeric(trim(Request("Page"))) = False Then GoError "分页参数错误，请不要试图破坏此系统。" End If CurrentPage= CLng(request("Page")) If CurrentPage> ors.PageCount then CurrentPage = ors.PageCount End If Else CurrentPage= 1 End If totalPut=ors.recordcount if CurrentPage<>1 then if (currentPage-1)*MaxPerPage <% Do While Not oRs.Eof and i" For PicNum =0 to 0 %> <%oRs.movenext%> <%if not oRs.eof then%> <%else%> <%end if%> <% if not oRs.eof then oRs.MoveNext i=i+1 Next Loop %>

	/<%=oRs("P_id")%>.html" target="_blank" title="标　　题：<%=oRs("P_ProvideName")&vbcrlf%>添加时间：<%=oRs("P_AddTime")&vbcrlf%>"><%=gotTopic(oRs("P_ProvideName"),40)%>		/<%=oRs("P_id")%>.html" target="_blank" title="标　　题：<%=oRs("P_ProvideName")&vbcrlf%>添加时间：<%=oRs("P_AddTime")&vbcrlf%>"><%=gotTopic(oRs("P_ProvideName"),40)%>

<% Response.Write "共"&totalPut&"条供应信息 " k=currentPage if k<>1 then response.write "["+"首页] " response.write "["+"上一页] " else Response.Write "[首页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"尾页] " else Response.Write "[下一页] [尾页]" end if Response.Write " 页次："¤tpage&"/"&n&"页       " %> <% else response.Write "     内容添加中，请稍后访问...     " end if oRs.close() %>