服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - ASP教程 - GetPaing 函数之asp采集函数中用到的获取分页的代码

GetPaing 函数之asp采集函数中用到的获取分页的代码

2019-10-09 14:17asp代码网 ASP教程

GetPaing 函数之asp采集函数中用到的获取分页的代码

  1. '==================================================  
  2. '函数名:GetPaing  
  3. '作  用:获取分页  
  4. '==================================================  
  5. Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR)  
  6. If ConStr="$False$" or ConStr="" Or StartStr="" Or OverStr="" or IsNull(ConStr)=True or IsNull(StartStr)=True Or IsNull(OverStr)=True Then  
  7.    GetPaing="$False$"  
  8.    Exit Function  
  9. End If  
  10.  
  11. Dim Start,Over,ConTemp,TempStr  
  12. TempStr=LCase(ConStr)  
  13. StartStr=LCase(StartStr)  
  14. OverStr=LCase(OverStr)  
  15. Over=Instr(1,TempStr,OverStr)  
  16. If Over<=0 Then  
  17.    GetPaing="$False$"  
  18.    Exit Function  
  19. Else  
  20.    If IncluR=True Then  
  21.       Over=Over+Len(OverStr)  
  22.    End If  
  23. End If  
  24. TempStr=Mid(TempStr,1,Over)  
  25. Start=InstrRev(TempStr,StartStr)  
  26. If IncluL=False Then  
  27.    Start=Start+Len(StartStr)  
  28. End If  
  29.  
  30. If Start<=0 Or Start>=Over Then  
  31.    GetPaing="$False$"  
  32.    Exit Function  
  33. End If  
  34. ConTemp=Mid(ConStr,Start,Over-Start)  
  35.  
  36. ConTemp=Trim(ConTemp)  
  37. ConTemp=Replace(ConTemp," ","")  
  38. ConTemp=Replace(ConTemp,",","")  
  39. ConTemp=Replace(ConTemp,"'","")  
  40. ConTemp=Replace(ConTemp,"""","")  
  41. ConTemp=Replace(ConTemp,">","")  
  42. ConTemp=Replace(ConTemp,"<","")  
  43. ConTemp=Replace(ConTemp," ","")  
  44. GetPaing=ConTemp  
  45. End Function 

延伸 · 阅读

精彩推荐
  • ASP教程ASP.NET 简介

    ASP.NET 简介

    本节对 ASP.NET 进行概括,介绍了 ASP.NET 的服务器技术、开发工具以及文件扩展名。 经典 ASP Active Server Pages(动态服务器页面) ASP ,全称 Active Server Pages(...

    未知1392023-05-08
  • ASP教程一种理论上最快的Web数据库分页方法

    一种理论上最快的Web数据库分页方法

    出了一种理论上最佳的分页方法,本篇我们就来详细说说这种最佳的分页方法。 一:构思。 在设计Web数据库时,如果我们要编历每一条纪录,那么只有采取...

    asp教程网5642019-10-26
  • ASP教程asp中通过fso读取和生成UTF-8编码的txt

    asp中通过fso读取和生成UTF-8编码的txt

    利用fso.OpenTextFil读取UTF-8文件或者用FSO.save生成UTF-8文件时乱码解决办法生成静态页使用的方法是读取asp页面的html代码,保存为html文件,这种方法...

    ASP之家4712019-07-07
  • ASP教程一份ASP内存的释放的实验报告

    一份ASP内存的释放的实验报告

    实验目的:验证主动释放内存变量是否有价值. 实验原始代码: script language=vbscript runat=server Dim temp1,temp2 temp1 = space(1024*1024*50) 50MB for i = 0 to 5000000 延迟 next t...

    asp教程网5052019-10-30
  • ASP教程ASP所有的Session变量获取实现代码

    ASP所有的Session变量获取实现代码

    在程序调试中,有时候需要知道有多少Session变量在使用,她们的值如何?由于Session对象提供一个称为Contents的集合(Collection),我们可以通过For...Each循环来...

    asp教程网3532019-09-10
  • ASP教程NAV导致IIS调用FSO失败的解决方法

    NAV导致IIS调用FSO失败的解决方法

    症状: 当你浏览调用FileSystemObject的ASP页面时, 对页面的请求处于停止状态并最终导致页面在浏览器中的超时。 原因: 这种问题是因为 Norton Antivirus 软件...

    asp教程网5492019-11-01
  • ASP教程asp实现后台添加wma视频文件前台显示

    asp实现后台添加wma视频文件前台显示

    想用asp来实现后台添加wma视频文件,前台显示所添加的这个视频文件,本文提供实现代码...

    服务器之家3402019-07-10
  • ASP教程asp 中文乱码问题解决方法

    asp 中文乱码问题解决方法

    不管什么语言乱码问题都存在,asp也不例外,本文将介绍asp中解决乱码方法,需要的朋友可以参考下...

    ASP之家6472019-07-10