文本分页(待修改)

原创 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    
%
>    

EasyUI 之 DataGrid分页组件中文显示的两种方法(语言的切换)

在过去的这一段时间参与了高校云平台的评教系统,在系统的前端要求用MVC+Easyui,从今天开始就来给大家讲讲MVC+EasyUI的前端应用。         JQueryEasyUI:一组...
  • zhongqing_fzq
  • zhongqing_fzq
  • 2016年06月27日 19:35
  • 3263

AJAX入门 之 使用 AJAX 修改页面文本内容(四)

function loadXMLDoc() { var xmlhttp; if (window.XMLHttpRequest) {// code for IE7+, Firefox, Chrome...
  • u013630349
  • u013630349
  • 2016年07月07日 11:21
  • 1801

支(zi)持(ci)修改的莫队算法

Preface相信大家对O(n32)\mathrm O(n^{\frac{3}{2}})离线解决序列问题莫队算法都不陌生,在这里我要介绍一下能够兹瓷修改操作的莫队算法。Algorithm分块大小SS为...
  • a_crazy_czy
  • a_crazy_czy
  • 2016年06月01日 12:51
  • 2455

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

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

Boostrap Table分页 行内编辑 切换按钮 日期插件 数据导出 头像裁剪 富文本编辑

  • 2016年09月14日 19:35
  • 15MB
  • 下载

js 特效 html 特效 分页的文本显示

  • 2011年06月14日 20:53
  • 50KB
  • 下载

如何实现最为简单的文本分页!!

  • 2007年08月30日 12:45
  • 6KB
  • 下载

打印文本,图片及分页打印(vb.net)

  • 2013年08月25日 17:38
  • 16KB
  • 下载

struts2,CRUD,分页,富文本

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

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

在GridView的显示过程中常常会出现行中文本过长,导致GridView整体上看去时长时短的问题。那么就需要在GridView的行显示上截取文本的长度。 第一种方法是在GridView中加入O...
  • MTTTM
  • MTTTM
  • 2012年07月31日 11:44
  • 1140
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:文本分页(待修改)
举报原因:
原因补充:

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