文本分页(待修改)

原创 2007年09月24日 23:31:00
<%    
 
dim totaltext,templinenum,pnum    
 
dim a,b,c    
 
dim w,h,pagecounter    
   
function pagetext(str)    
 w 
= 43    
 h 
= 17    
 totaltext 
= split(str,"<br>")    
 templinenum 
= 0    
 pagecounter 
= 1    
 
if cint(request("pcounter"))<=0 or len(request("pcounter"))=0 or isnull(request("pcounter")) or isempty(request("pcounter")) then     
  pnum
=1    
 
else    
  pnum
=cint(trim(request("pcounter")))    
 
end if    
     
 
for a = 0 to ubound(totaltext)    
  
if (len(totaltext(a)) mod w) <> 0 or len(totaltext(a)) = 0 then    
   templinenum 
= templinenum + len(totaltext(a))w+1    
  
else    
   templinenum 
= templinenum + len(totaltext(a))w    
  
end if    
      
  
if pnum = pagecounter then    
   
'response.write "<font color=red>"&pagecounter&"_"&templinenum&"</font>"    
   response.write totaltext(a) & "<br>"   
  
end if    
      
  
if templinenum > h then     
   templinenum 
= 0    
   
if a < ubound(totaltext) then pagecounter = pagecounter + 1    
  
end if    
      
 
next    
 
if pnum <= 0 or pnum > pagecounter then response.write "您所查询的信息超出范围,请谨慎操作!"   
 pagetext
=""   
end function    
   
%
>    
   
   
<%    
sql
="select * from news where id="&cint(request("id"))    
rs.open sql,conn,
3,3    
   
if rs.eof then    
response.write 
"您所查询的新闻不存在!"   
else    
%
>    
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">    
  
<tr>    
    
<td height="21" align="center" background="images/xuxian2.gif" class="zhengwen">    
    
<span class="darkred_bold"><%=rs("title")%></span>    
    
</td>    
  
</tr>    
  
<tr>    
    
<td background="images/xuxian2.gif" class="zhengwen">    
      
<%    
      sql
="select * from newspic where parent="&cint(request("id"))" order by orders,id desc"   
      rs2.open sql,conn,
1,1    
      
if rs2.eof then    
        pagetext(rs(
"text"))    
      
else 'news with pictures    
        response.write "<img src="&rs2("pic")" width=250 height=165 border=0>"   
        pagetext(rs(
"text"))    
      
end if    
      rs2.close    
      %
>    
    
</td>    
  
</tr>    
</table>    
   
<if pagecounter>1 then %>    
  
<table width="98%"  border="0" cellspacing="0" cellpadding="0">    
    
<tr>    
      
<td width="50%" height="25" align="left">    
        
<%    
 
if pnum=1 then     
 response.write 
"<span class='arrow'>7 3</span> "   
 
else    
 response.write 
"<a href=news.asp?id="&request("id")"&pcounter=1 class='black'><span class='arrow' title='第1页'>7</span></a> <a href=news.asp?id="&request("id")"&pcounter="&cint(pnum-1)" class='black' title='第"&cint(pnum-1)"页'><span class='arrow'>3</span></a> "   
 
end if    
 
if pnum=pagecounter then     
 response.write 
"<span class='arrow'>4 8</span>"   
 
else    
 response.write 
"<a href=news.asp?id="&request("id")"&pcounter="&cint(pnum+1)" class='black' title='第"&cint(pnum+1)"页'><span class='arrow'>4</span></a> <a href=news.asp?id="&request("id")"&pcounter="&pagecounter" class='black' title='第"&pagecounter"页'><span class='arrow'>8</span></a>"   
 
end if    
 %
>    
      
</td>    
      
<form name="form1" method="post" action="news.asp?id=<%=request("id")%>">    
      
<td width="50%" height="25" align="right">    
 转到第 
<input name="pcounter" type="text" size="1" style="border:1px solid #cccccc;margin=0px"> 页    
      
</td>    
      
</form>    
    
</tr>    
    
<tr>    
      
<td height="25" colspan="2">    
        第 
<%=pnum %> 页,共 <%=pagecounter %> 页    
      
</td>    
    
</tr>    
  
</table>    
<end if %>    
   
<%    
end if    
rs.close    
%
>    

相关文章推荐

【原】关于GridView文本过长显示的问题和GridView中带有标签模版的分页问题

在GridView的显示过程中常常会出现行中文本过长,导致GridView整体上看去时长时短的问题。那么就需要在GridView的行显示上截取文本的长度。 第一种方法是在GridView中加入O...
  • MTTTM
  • MTTTM
  • 2012年07月31日 11:44
  • 1114

c++文本自动分栏分页程序

  • 2010年05月06日 00:31
  • 2KB
  • 下载

EXT PagingToolbar分页中,修改start,limit默认参数名

最近在搞ext分页,但是我后台封装了前台传递的参数,如下图。 后台: DayPassOrgiTransDTO封装模型: Page分页类: 前台: 如上图所示,我们都知...
  • cwlacxm
  • cwlacxm
  • 2015年12月25日 16:28
  • 1990

struts2,CRUD,分页,富文本

  • 2014年07月02日 10:54
  • 9.23MB
  • 下载

修改nutch分页功能

发现nutch的分页功能做的实在是粗糙,最主要的是没有上一页,而且一出场默认显示两条记录来,再来个showAllhits,多余!这是个问题,今天早上花了一个小时再去修改它的分页。修改后的效果如下: ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:文本分页(待修改)
举报原因:
原因补充:

(最多只允许输入30个字)