- '==================================================
- '函数名:GetPaing
- '作 用:获取分页
- '==================================================
- Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
- If ConStr="$False$" or ConStr="" Or StartStr="" Or OverStr="" or IsNull(ConStr)=True or IsNull(StartStr)=True Or IsNull(OverStr)=True Then
- GetPaing="$False$"
- Exit Function
- End If
- Dim Start,Over,ConTemp,TempStr
- TempStr=LCase(ConStr)
- StartStr=LCase(StartStr)
- OverStr=LCase(OverStr)
- Over=Instr(1,TempStr,OverStr)
- If Over<=0 Then
- GetPaing="$False$"
- Exit Function
- Else
- If IncluR=True Then
- Over=Over+Len(OverStr)
- End If
- End If
- TempStr=Mid(TempStr,1,Over)
- Start=InstrRev(TempStr,StartStr)
- If IncluL=False Then
- Start=Start+Len(StartStr)
- End If
- If Start<=0 Or Start>=Over Then
- GetPaing="$False$"
- Exit Function
- End If
- ConTemp=Mid(ConStr,Start,Over-Start)
- ConTemp=Trim(ConTemp)
- ConTemp=Replace(ConTemp," ","")
- ConTemp=Replace(ConTemp,",","")
- ConTemp=Replace(ConTemp,"'","")
- ConTemp=Replace(ConTemp,"""","")
- ConTemp=Replace(ConTemp,">","")
- ConTemp=Replace(ConTemp,"<","")
- ConTemp=Replace(ConTemp," ","")
- GetPaing=ConTemp
- End Function
GetPaing 函数之asp采集函数中用到的获取分页的代码
2019-10-09 14:17asp代码网 ASP教程
GetPaing 函数之asp采集函数中用到的获取分页的代码
延伸 · 阅读
- 2022-03-08SpringBoot+Mybatis分页插件PageHelper实现分页效果
- 2022-02-28解析iReport自定义行数分页的操作方法
- 2022-02-23Android RecyclerView的刷新分页的实现
- 2022-02-23Django前端BootCSS实现分页的方法
- 2022-02-20vue项目实现分页效果
- 2022-02-13SQL实现分页查询方法总结
- ASP教程
ASP.NET 简介
本节对 ASP.NET 进行概括,介绍了 ASP.NET 的服务器技术、开发工具以及文件扩展名。 经典 ASP Active Server Pages(动态服务器页面) ASP ,全称 Active Server Pages(...
- ASP教程
一种理论上最快的Web数据库分页方法
出了一种理论上最佳的分页方法,本篇我们就来详细说说这种最佳的分页方法。 一:构思。 在设计Web数据库时,如果我们要编历每一条纪录,那么只有采取...
- ASP教程
asp中通过fso读取和生成UTF-8编码的txt
利用fso.OpenTextFil读取UTF-8文件或者用FSO.save生成UTF-8文件时乱码解决办法生成静态页使用的方法是读取asp页面的html代码,保存为html文件,这种方法...
- ASP教程
一份ASP内存的释放的实验报告
实验目的:验证主动释放内存变量是否有价值. 实验原始代码: script language=vbscript runat=server Dim temp1,temp2 temp1 = space(1024*1024*50) 50MB for i = 0 to 5000000 延迟 next t...
- ASP教程
ASP所有的Session变量获取实现代码
在程序调试中,有时候需要知道有多少Session变量在使用,她们的值如何?由于Session对象提供一个称为Contents的集合(Collection),我们可以通过For...Each循环来...
- ASP教程
NAV导致IIS调用FSO失败的解决方法
症状: 当你浏览调用FileSystemObject的ASP页面时, 对页面的请求处于停止状态并最终导致页面在浏览器中的超时。 原因: 这种问题是因为 Norton Antivirus 软件...
- ASP教程
asp实现后台添加wma视频文件前台显示
想用asp来实现后台添加wma视频文件,前台显示所添加的这个视频文件,本文提供实现代码...
- ASP教程
asp 中文乱码问题解决方法
不管什么语言乱码问题都存在,asp也不例外,本文将介绍asp中解决乱码方法,需要的朋友可以参考下...