<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%>

当前位置：首页 >>图文案例

图文案例

<% set rss=server.createobject("adodb.recordset") sqltext4="select * from news where BigClassName='图文案例' order by id desc" rss.open sqltext4,conn,1,1 %> <% if rss.eof and rss.bof then response.Write("") end if rss.pagesize=9'定义当前页面数 currentpage=Clng(request("page")) if currentpage<1 then currentpage=1 if currentpage>rss.pagecount then currentpage=rss.pagecount rss.absolutepage=currentpage %> <% Dim startrw,endrw,HLooper1__index,numberColumns,numrows startrw = 0 endrw = HLooper1__index numberColumns =3 numrows = -1 while((numrows <> 0) and (Not rss.eof) and (startrw <= rss.pagesize)) startrw = endrw + 1 endrw = endrw + numberColumns %>

对不起暂还没有添加该类信息

<% While ((startrw <= endrw) and (not rss.eof)) %> <% numrows=numrows-1 Wend %>

Img/nopic.gif<%else%><%=rss("FirstImageName")%><%end if%>>

"><%=rss("title")%>

<% startrw = startrw + 1 rss.MoveNext() Wend %>

总计:<%=rss.recordcount%>个显示：<%=rss.pagesize%>个/页页次：<%=currentpage%>/<%=rss.pagecount%>页　 <%if currentpage<2 then%> 首页上一页 <%else%> 首页上一页 <%end if%> <%if currentpage=rss.pagecount then%> 下一页尾页 <%else%> 下一页尾页 <%end if%> 第页