文本分页（待修改）

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