asp文章分页代码

'****************************************************
'函数名:StrLen
'作  用:取得字符串长度(汉字为2)
'参  数:str ----字符串内容
'返回值:字符串长度
'****************************************************

Function StrLen(Str)
    Set rep = New regexp
    rep.Global = True
    rep.IgnoreCase = True
    rep.Pattern = "[^\x00-\xff]"
    StrLen = Len(Str) + rep.Execute(Str).Count
    Set Rep = Nothing
End Function

'****************************************************
'函数名:StrLeft
'作  用:从左面取指定数量字符串(汉字为2)
'参  数:L ----字符个数
'返回值:字符串
'****************************************************

Function Strleft(Str, L)
    Dim I, Test_Str, lens, tStr, nStr, tL
    tStr = Left(Str, - Int( - (L / 2)))
    nStr = Right(Str, Len(Str) - Len(tStr))
    If Len(nStr)>0 Then tL = L - StrLen(tStr)
    If Asc(Left(tStr, 1))<0 And Len(tStr) = 1 And L<2 Then tStr = ""
    If tL>= 1 Then
        Strleft = tStr&Strleft(nStr, tL)
    Else
        Strleft = tStr
    End If
End Function

'****************************************************
'函数名:StrRight
'作  用:从右面取指定数量字符串(汉字为2)
'参  数:L ----字符个数
'返回值:字符串
'****************************************************

Function StrRight(Str, L)
    Dim I, Test_Str, lens, tStr, nStr, tL
    tStr = Right(Str, - Int( - (L / 2)))
    nStr = Left(Str, Len(Str) - Len(tStr))
    If Len(nStr)>0 Then tL = L - StrLen(tStr)
    If Asc(Left(tStr, 1))<0 And Len(tStr) = 1 And L<2 Then tStr = ""
    If tL>= 1 Then
        StrRight = StrRight(nStr, tL)&tStr
    Else
        StrRight = tStr
    End If
End Function

'****************************************************
'函数名:StrMid
'作  用:指定开始位置取指定数量字符串(汉字为2)
'参  数:S----开始字符串为第几个,L ----字符个数
'返回值:字符串
'****************************************************

Function StrMid(Str, S, L)
    StrMid = strleft(Right(Str,Str Len(Str) - Len(strleft(Str, s)) + 1), L)
End Function

时间: 2024-09-26 04:11:31

asp文章分页代码的相关文章

asp长文章分页代码

上段时间我写了一个php的长文章分页代码用到的explode来进行分割实现的,今天我们就来讲讲asp文章分页代码以及长文章分页和asp长文章分页方法.  Function c2u(myText) Dim i c2u = "" For i = 1 to Len(myText) c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" Next End Functio

加亮显示ASP文章原代码(转)

加亮显示ASP文章原代码 加入时间:2000年10月29日 来源网站:中华技术网 <%@ LANGUAGE="VBSCRIPT" %><% Option Explicit %><%'File: CodeBrws.asp'Overview: This formats and writes the text of the selected page for' the View Script Button 'This file is provided as pa

net文章分页代码

   net文章分页代码,分页功能在任一个WEB开发项目中都会用到,所以今天我们就来看看net分页代码的实现方法  private PagedDataSource pds()     {         string connstring = ConfigurationManager.ConnectionStrings["Pubs"].ConnectionString;         //声明一个字符串,后面随时可以用         SqlConnection con = new

jQuery+FCK编辑器+PHP实现文章分页代码

在fck中插入分页符如下图 文章分页代码-jquery 长文章分页"> 分页代码   function pagebreak($content) { $content = $content; $pattern = "/<div style="page-break-after: always"><span style="display: none"> </span></div>/"; $

asp 文章分页类

asp 文章分页类 <% Class Cls_Page  '**************************************************  '函数名:ShowPage  '作  用:显示分页  '参  数:如下  'strFileName : ?后面的文件,如xxx.asp?page=  'xTotalNum  : 总数  'xPageCount     : 总页数     'xMaxPerPage : 每页显示数量  'xCurrentPage : 当前页数  'xPa

PHP 文本文章分页代码 按标记或长度(不涉及数据库)_php实例

实例代码: 复制代码 代码如下: <?php /** * ********************************************************** * Read Me * 文章分页 * * 分页方式,可以按字数分页,按换行分页,按特殊标记分页等 * 其实实现思路是一样的,只是将其按一定规律放入一个数组 * 然后根据 url 传入的参数取得某个片段即可 * 大家完全可以写一个功能强大的函数保存起来以备不时之需 * * 题外话:很多编辑器都有插入分页按钮,利用插入的代码可

ASP实例代码:搞个长文章分页代码

以下为引用的内容: <%Class aspxsky_page Private Sub class_initialize End Sub  Public Function Alert(message,gourl)    message = replace(message,"'","\'")    If gourl="-1" then        Response.Write ("<script language=javasc

asp 简单分页代码_应用技巧

复制代码 代码如下: <% set rs=server.createobject("adodb.recordset") exce="sql" 'sql 查询语句 rs.open exce,conn,1,1 %> 然后是分页属性的设置 <% rs.PageSize=3 '设置页码 pagecount=rs.PageCount '获取总页码 page=int(request("page")) '接收页码 if page<=0

asp 存储过程分页代码第1/2页

存储过程采用的是select top 加 not in的方式完成,速度也算是相当快了 我测试过了百万级数据量一般查询在1秒一下,贴出来大家交流下,看有没有什么好的建议. 简单几句话就可以实现分页功能,请看代码: 最简单使用方法(适用于任何数据表): test.asp 复制代码 代码如下: <!--#include file="conn.asp"--> <!--#include file="Page.asp"--> <% Set My =