程序博客网 > 淘宝金酷娃玩具洒水车

内容自动分页函数调用

来源：互联网 发布：淘宝金酷娃玩具洒水车 编辑：程序博客网 时间：2024/06/05 10:00

'**************************************************
'函 数 名：AutoShowContentPage(requestid,requestcontent,filename)
'作    用：内容自动分页函数调用
'参数说明：filename-当前显示页面文件名称
'*************************************************
Function AutoShowContentPage(requestid,requestcontent,filename)
 dim NewsID,strContent,CurrentPage,str2
 dim ContentLen,MaxPerPage,pages,i,lngBound
 dim BeginPoint,EndPoint,MaxPerPage_Content,ShowContentByPage
 ShowContentByPage="Yes"        '新闻内容是否分页显示
 MaxPerPage_Content=2500        '每页显示大约字符数
 NewsID=requestid
 strContent=requestcontent
 ContentLen=len(strContent)
 CurrentPage=trim(request.querystring("showpage"))
 if ShowContentByPage="No" or ContentLen<=MaxPerPage_Content then
  str2=strContent
  if ShowContentByPage="Yes" then
   str2=str2+""
  end if
 else
  if CurrentPage="" then
   CurrentPage=1
  else
   CurrentPage=Cint(CurrentPage)
  end if
  pages=ContentLen/MaxPerPage_Content
  if MaxPerPage_Content*pages<ContentLen then
   pages=pages+1
  end if
  lngBound=MaxPerPage_Content          '最大误差范围
  if CurrentPage<1 then CurrentPage=1
  if CurrentPage>pages then CurrentPage=pages
  dim lngTemp
  dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1
  dim lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
  dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
  dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
  dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
  dim lngTemp5,lngTemp5_1,lngTemp5_2
  dim lngTemp6,lngTemp6_1,lngTemp6_2
  if CurrentPage=1 then
   BeginPoint=1
  else
   BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
   lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
   lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
   lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
   if lngTemp1_1_1>0 then
    lngTemp1_1=lngTemp1_1_1
   elseif lngTemp1_1_2>0 then
    lngTemp1_1=lngTemp1_1_2
   elseif lngTemp1_1_3>0 then
    lngTemp1_1=lngTemp1_1_3
   else
    lngTemp1_1=0
   end if
   lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
   lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
   lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
   if lngTemp1_2_1>0 then
    lngTemp1_2=lngTemp1_2_1
   elseif lngTemp1_2_2>0 then
    lngTemp1_2=lngTemp1_2_2
   elseif lngTemp1_2_3>0 then
    lngTemp1_2=lngTemp1_2_3
   else
    lngTemp1_2=0
   end if
   if lngTemp1_1=0 and lngTemp1_2=0 then
    lngTemp1=BeginPoint
   else
    if lngTemp1_1>lngTemp1_2 then
     lngtemp1=lngTemp1_2
    else
     lngTemp1=lngTemp1_1+8
    end if
   end if
   lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
   lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
   if lngTemp2_1_1>0 then
    lngTemp2_1=lngTemp2_1_1
   elseif lngTemp2_1_2>0 then
    lngTemp2_1=lngTemp2_1_2
   else
    lngTemp2_1=0
   end if
   lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
   lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
   if lngTemp2_2_1>0 then
    lngTemp2_2=lngTemp2_2_1
   elseif lngTemp2_2_2>0 then
    lngTemp2_2=lngTemp2_2_2
   else
    lngTemp2_2=0
   end if
   if lngTemp2_1=0 and lngTemp2_2=0 then
    lngTemp2=BeginPoint
   else
    if lngTemp2_1>lngTemp2_2 then
     lngtemp2=lngTemp2_2
    else
    lngTemp2=lngTemp2_1+4
    end if
   end if
   lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
   lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
   if lngTemp3_1_1>0 then
    lngTemp3_1=lngTemp3_1_1
   elseif lngTemp3_1_2>0 then
    lngTemp3_1=lngTemp3_1_2
   else
    lngTemp3_1=0
   end if
   lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
   lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
   if lngTemp3_2_1>0 then
    lngTemp3_2=lngTemp3_2_1
   elseif lngTemp3_2_2>0 then
    lngTemp3_2=lngTemp3_2_2
   else
    lngTemp3_2=0
   end if
   if lngTemp3_1=0 and lngTemp3_2=0 then
    lngTemp3=BeginPoint
   else
    if lngTemp3_1>lngTemp3_2 then
     lngtemp3=lngTemp3_2
    else
     lngTemp3=lngTemp3_1+5
    end if
   end if
   if lngTemp1<lngTemp2 then
    lngTemp=lngTemp2
   else
    lngTemp=lngTemp1
   end if
   if lngTemp<lngTemp3 then
    lngTemp=lngTemp3
   end if
   if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
    BeginPoint=lngTemp
   else
    lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
    lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
    if lngTemp4_1_1>0 then
     lngTemp4_1=lngTemp4_1_1
    elseif lngTemp4_1_2>0 then
     lngTemp4_1=lngTemp4_1_2
    else
     lngTemp4_1=0
    end if
    lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
    lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
    if lngTemp4_2_1>0 then
     lngTemp4_2=lngTemp4_2_1
    elseif lngTemp4_2_2>0 then
     lngTemp4_2=lngTemp4_2_2
    else
     lngTemp4_2=0
    end if
    if lngTemp4_1=0 and lngTemp4_2=0 then
     lngTemp4=BeginPoint
    else
     if lngTemp4_1>lngTemp4_2 then
      lngtemp4=lngTemp4_2
     else
      lngTemp4=lngTemp4_1+5
     end if
    end if
    if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
     BeginPoint=lngTemp4
    else
     lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
     lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
     if lngTemp5_1>0 then
      lngTemp5=lngTemp5_1
     elseif lngTemp5_2>0 then
      lngTemp5=lngTemp5_2
     else
      lngTemp5=BeginPoint
     end if
     if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
      BeginPoint=lngTemp5
     else
      lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
      lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
      if lngTemp6_1>0 then
       lngTemp6=lngTemp6_1
      elseif lngTemp6_2>0 then
       lngTemp6=lngTemp6_2
      else
       lngTemp6=0
      end if
      if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
       BeginPoint=lngTemp6+4
      end if
     end if
    end if
   end if
  end if
  if CurrentPage=pages then
   EndPoint=ContentLen
  else
   EndPoint=MaxPerPage_Content*CurrentPage
   if EndPoint>=ContentLen then
    EndPoint=ContentLen
   else
    lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
    lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
    lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
    if lngTemp1_1_1>0 then
     lngTemp1_1=lngTemp1_1_1
    elseif lngTemp1_1_2>0 then
     lngTemp1_1=lngTemp1_1_2
    elseif lngTemp1_1_3>0 then
     lngTemp1_1=lngTemp1_1_3
    else
     lngTemp1_1=0
    end if
    lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
    lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
    lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
    if lngTemp1_2_1>0 then
     lngTemp1_2=lngTemp1_2_1
    elseif lngTemp1_2_2>0 then
     lngTemp1_2=lngTemp1_2_2
    elseif lngTemp1_2_3>0 then
     lngTemp1_2=lngTemp1_2_3
    else
     lngTemp1_2=0
    end if
    if lngTemp1_1=0 and lngTemp1_2=0 then
     lngTemp1=EndPoint
    else
     if lngTemp1_1>lngTemp1_2 then
      lngtemp1=lngTemp1_2-1
     else
      lngTemp1=lngTemp1_1+7
     end if
    end if
    lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
    lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
    if lngTemp2_1_1>0 then
     lngTemp2_1=lngTemp2_1_1
    elseif lngTemp2_1_2>0 then
     lngTemp2_1=lngTemp2_1_2
    else
     lngTemp2_1=0
    end if
    lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
    lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
    if lngTemp2_2_1>0 then
     lngTemp2_2=lngTemp2_2_1
    elseif lngTemp2_2_2>0 then
     lngTemp2_2=lngTemp2_2_2
    else
     lngTemp2_2=0
    end if
    if lngTemp2_1=0 and lngTemp2_2=0 then
     lngTemp2=EndPoint
    else
     if lngTemp2_1>lngTemp2_2 then
      lngTemp2=lngTemp2_2-1
     else
      lngTemp2=lngTemp2_1+3
     end if
    end if
    lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
    lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
    if lngTemp3_1_1>0 then
     lngTemp3_1=lngTemp3_1_1
    elseif lngTemp3_1_2>0 then
     lngTemp3_1=lngTemp3_1_2
    else
     lngTemp3_1=0
    end if
    lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
    lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
    if lngTemp3_2_1>0 then
     lngTemp3_2=lngTemp3_2_1
    elseif lngTemp3_2_2>0 then
     lngTemp3_2=lngTemp3_2_2
    else
     lngTemp3_2=0
    end if
    if lngTemp3_1=0 and lngTemp3_2=0 then
     lngTemp3=EndPoint
    else
     if lngTemp3_1>lngTemp3_2 then
      lngtemp3=lngTemp3_2-1
     else
      lngTemp3=lngTemp3_1+4
     end if
    end if
    if lngTemp1<lngTemp2 then
     lngTemp=lngTemp2
    else
     lngTemp=lngTemp1
    end if
    if lngTemp<lngTemp3 then
     lngTemp=lngTemp3
    end if
    if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
     EndPoint=lngTemp
    else
     lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
     lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
     if lngTemp4_1_1>0 then
      lngTemp4_1=lngTemp4_1_1
     elseif lngTemp4_1_2>0 then
      lngTemp4_1=lngTemp4_1_2
     else
      lngTemp4_1=0
     end if
     lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
     lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
     if lngTemp4_2_1>0 then
      lngTemp4_2=lngTemp4_2_1
     elseif lngTemp4_2_2>0 then
      lngTemp4_2=lngTemp4_2_2
     else
      lngTemp4_2=0
     end if
     if lngTemp4_1=0 and lngTemp4_2=0 then
      lngTemp4=EndPoint
     else
      if lngTemp4_1>lngTemp4_2 then
       lngtemp4=lngTemp4_2-1
      else
       lngTemp4=lngTemp4_1+4
      end if
     end if
     if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
      EndPoint=lngTemp4
     else
      lngTemp5_1=instr(EndPoint,strContent,"<img",1)
      lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
      if lngTemp5_1>0 then
       lngTemp5=lngTemp5_1-1
      elseif lngTemp5_2>0 then
       lngTemp5=lngTemp5_2-1
      else
       lngTemp5=EndPoint
      end if
      if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
       EndPoint=lngTemp5
      else
       lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
       lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
       if lngTemp6_1>0 then
        lngTemp6=lngTemp6_1+3
       elseif lngTemp6_2>0 then
        lngTemp6=lngTemp6_2+3
       else
        lngTemp6=EndPoint
       end if
       if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
        EndPoint=lngTemp6
       end if
      end if
     end if
    end if
   end if
  end if
  str2= mid(strContent,BeginPoint,EndPoint-BeginPoint)
  str2=str2+ "</p><p align='center'>"
  if CurrentPage>1 then
   str2=str2+  "<a href='"&filename&".asp?id="&NewsID&"&showpage="&CurrentPage-1&"'>上一页</a>&nbsp;&nbsp;"
  end if
  for i=1 to pages
   if i=CurrentPage then
    str2=str2+  "<span class='key_font'>["&cstr(i)&"]</span>&nbsp;"
   else
    str2=str2+  "<a href='"&filename&".asp?id="&NewsID&"&showpage="&i&"'>["&i&"]</a>&nbsp;"
   end if
  next
  if CurrentPage<pages then
   str2=str2+  "&nbsp;<a href='"&filename&".asp?id="&NewsID&"&showpage="&CurrentPage+1&"'>下一页</a>"
  end if
  str2=str2+  "</p>"
 end if
 AutoShowContentPage=str2
end function

淘宝金酷娃玩具洒水车 淘宝金酷娃玩具洒水车
原创粉丝点击
热门IT博客
如何撤销淘宝退款申请如何撤销淘宝退款申请
电子老鼠闯迷宫c语言电子老鼠闯迷宫c语言
java将xml转化为pdf
好玩的游戏 知乎
形容心里暗黑的网络语
海贼王 知乎
高达模型 淘宝
淘宝网店网址怎么看
mac虚拟机安装
计算机病毒预防和软件
js跳出each循环函数
易知北京投资有限公司
开淘宝店身份证照片
js ios 时间戳格式化
txt全本小说软件
3dmax2012数据错误
目标软件
爱淘宝红包怎么用
python读写xml文件
情侣星盘配对合盘 知乎
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 从化歌域商务酒店 从化逸海酒店 从化泡温泉价格 从化漂流一日游 从化森林公园 从化凯旋宫大酒店 从化天伦酒店 广州从化凯景酒店 从化江浦医院 从化游玩好去处 从化室内温泉 从化东方夏湾拿酒店 从化喜满堂酒店 从化锦庭酒店 从化碧水峡高山漂流 从化凯旋宫假日酒店 从化财富温泉酒店 从化汽车站网上订票 广州四会 广东惠东 竹溪 定语从句 宾语从句 状语从句 从句 同位语从句 名词性从句 表语从句 名词从句 从句类型 同位语从句和定语从句 从句是什么 英语从句 谓语从句 从句例句 从句引导词 that从句 非谓语从句 从句英语 关系从句 限制性定语从句

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里