----杭州吴山画室----

欢迎您联系我们的工作QQ：199359880、445335939；

<% typeid=request("typeid") if typeid="" then typeid=0 thesql=" where d_typeid=0" allrequest="&typeid=0" '-------------------------------------------------------------------统计总量----------------------- set rs=server.createobject("ADODB.Recordset") sql="select d_id from OurDescri"&thesql rs.open sql,conn,1,1 countval=rs.recordcount rs.close '-------------------------------------------------------------------显示--------------------------- if countval>0 then '如果大于0 '---------------------------------------------------------------- sethap=20 howpages=int(countval/sethap+0.9999) '有几页 if (countval/sethap)>howpages then howpages=howpages+1 '如果有另头，要再加一页，比方有25条记录，就有2另头 end if if topage="" then topage=1 elseif topage-howpages>0 then topage=topage-1 end if basestart=(topage-1)*sethap '---------------------------------------------------------------- set rs=server.createobject("ADODB.Recordset") sql="select * from OurDescri"&thesql&" order by d_id desc" rs.open sql,conn,3,1 %> <% '--------------------------------------- rs.move basestart ' 移到基数 counter=0 do while not rs.eof and counter <% '--------------------------------------- rs.movenext counter=counter+1 loop '--------------------------------------- %>

	"><%=trim(rs("d_topic"))%>

<% rs.close call pagedown("90%") else response.write "暂无！" end if %>