asp自定义输出字符串可控长度函数

2009-08-10 03:47:49 172 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASP.NET Core 自定义 Cookie 认证：剥离 Identity 的底层实现指南 Cookie 认证是 ASP.NET Core 中最基础、最常用的 Web 身份验证机制，其核心在于 ClaimsPrincipal 的构造与流转、AuthenticationScheme 的统一标识、以及 CookieAuthenticationMiddleware 的执行时机。理解这三者如何协同工作，是摆脱 Identity 框架‘黑盒依赖’、实现与遗留系统对接、定制密码策略或排查 401/403 问题的关键前提。本文聚焦于不依赖 Microsoft.AspNetCore.Identity 的轻量级实现阅读详情



<%

dim str

str = "中文是2个字符"

response.write show(str, 7)  ' 这里显示的应该是“中文是2”



function show(s, l)

  ' 这里怎么写啊？

end function

%>

...全文

ASP.NET HttpHandler URL映射全流程解析 HttpHandler 是 ASP.NET 中最贴近原始 HTTP 语义的请求处理单元，其核心价值在于绕过 MVC/中间件的冗余开销，实现极致轻量与高性能。原理上，它通过 IIS 扩展注册、web.config 的声明式匹配（最长路径前缀优先）、内置工厂回退及自定义 IHttpHandlerFactory 四层机制，将 URL 精准路由至 ProcessRequest 执行点。该机制广泛应用于高并发接口（如心跳上报、状态检测）、遗留系统维护及需细粒度控制请求生命周期的场景。本阅读详情

a550759049

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

showoter 2009-08-10

打赏
举报

[Quote=引用 6 楼 number123456 的回复:]
引用 3 楼 a550759049 的回复:
汗，number123456试试代码再贴啊，你那代码不好使，我要输入2的时候显示1个汉字。

我给你发的函数是按照字节截取的，如果你只想按字符截取，你用得着写函数吗？ASP自带的LEFT不是现成的吗？
[/Quote]
按字节截取用leftb，按字符截取left,挺好用的，试试。。。

number123456 2009-08-10

打赏
举报

[Quote=引用 3 楼 a550759049 的回复:]
汗，number123456试试代码再贴啊，你那代码不好使，我要输入2的时候显示1个汉字。
[/Quote]

我给你发的函数是按照字节截取的，如果你只想按字符截取，你用得着写函数吗？ASP自带的LEFT不是现成的吗？

showoter 2009-08-10

打赏
举报

一定要用函数吗？其实可以一句代码搞定，你试试：
<%
dim str,str1
str = "中文是2个字符"
str1 = leftb(str,7)
response.Write(str1) ' 这里显示的应该是“中文是2”
%>
测试过，可以达到你的要求。。。

a550759049 2009-08-10

打赏
举报

[Quote=引用 2 楼 hookee 的回复:]
内容[/Quote]这个代码也不好使

a550759049 2009-08-10

打赏
举报

汗，number123456试试代码再贴啊，你那代码不好使，我要输入2的时候显示1个汉字。

hookee 2009-08-10

打赏
举报



dim str

str = "中文是2个字符"

response.write show(str, 7)  ' 这里显示的应该是“中文是2”



Function show(s, l)

  Dim c, n, i, a, t

  n = 0

  t = ""

  For i= 1 To Len(s)

    c = Mid(s,i,1)

    a = Asc(c) 

    If a>=0 And a<=255 Then

      n = n + 1

    Else

      n = n + 2

    End If

    If n > l Then

      show = t

      Exit Function

    Else

      t = t & c

    End If

  Next

  show = t

end Function

number123456 2009-08-10

打赏
举报



'**************************************************

'函数名：substr

'作  用：截字符串，汉字一个算两个字符，英文算一个字符

'参  数：str   ----原字符串

'       strlen ----截取长度

'返回值：截取后的字符串

'**************************************************

Function substr(ByVal str, ByVal strlen)

    If str = "" or isnull(str) Then

        substr = ""

        Exit Function

    End If

    Dim l, t, c, i, strTemp

    str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<")

    l = Len(str)

    t = 0

    strTemp = str

    strlen = CLng(strlen)

    For i = 1 To l

        c = Abs(Asc(Mid(str, i, 1)))

        If c > 255 Then

            t = t + 2

        Else

            t = t + 1

        End If

        If t >= strlen Then

            strTemp = Left(str, i)

            Exit For

        End If

    Next

    If strTemp <> str Then

        strTemp = strTemp & "…"

    End If

    substr = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<")

End Function

asp自定义输出字符串可控长度函数

相关推荐