上一篇
函数名 | 功能描述 | 示例代码(带🌰) |
---|---|---|
Len() |
计算字符串长度(中英文均计1) | Len("ASP开发") → 4 📏 |
Mid() |
截取中间子串 | Mid("HelloWorld",3,5) → "lloWo" 🔍 |
InStr() |
查找子串位置(支持大小写敏感) | InStr(1,"ASP.NET","NET",1) → 5 🔍 |
Replace() |
替换指定子串 | Replace("C#","#","++") → "C++" ♻️ |
Split() |
按分隔符拆分字符串 | Split("a,b,c",",") → Array("a","b","c") 🔢 |
<% Dim str str = "经典ASP开发指南" ' 🌰 截取前3个字符 Response.Write Left(str,3) & "<br>" ' 输出:经典A ' 🌰 从第4位截取5个字符 Response.Write Mid(str,4,5) & "<br>" ' 输出:SP开发 ' 🌰 截取最后2个字符 Response.Write Right(str,2) ' 输出:指南 %>
<% Dim username username = "JohnDoe" ' 🌰 首字母大写(需结合Mid) Response.Write UCase(Left(username,1)) & LCase(Mid(username,2)) ' 输出:Johndoe %>
<% Dim content content = "<b>ASP</b> is <i>Awesome</i>!" ' 🌰 过滤HTML标签 content = Replace(Replace(content,"<","<"),">",">") Response.Write content ' 输出:<b>ASP</b> is ... %>
<% Dim price price = 1234.56 ' 🌰 千位分隔+保留两位小数 Response.Write FormatNumber(price,2,True,True,True) ' 输出:1,234.56 %>
Function StrLen(str) Dim i, len len = 0 For i = 1 To Len(str) If Asc(Mid(str,i,1)) < 0 Then len = len + 2 Else len = len + 1 Next StrLen = len End Function
Function GenPassword(length) Dim chars, i, rand, result chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" Randomize For i = 1 To length rand = Int(Rnd * Len(chars)) + 1 result = result & Mid(chars, rand, 1) Next GenPassword = result End Function
Mid("ABC",1,1)
返回 "A"InStr
默认二进制比较,文本比较需设 compare=1
Trim()
前建议检查 If str <> "" Then
💬 互动提问:
你在ASP字符串处理中遇到过哪些奇葩问题?欢迎在评论区分享你的"踩坑"经历!
本文由 业务大全 于2025-08-24发表在【云服务器提供商】,文中图片由(业务大全)上传,本平台仅提供信息存储服务;作者观点、意见不代表本站立场,如有侵权,请联系我们删除;若有图片侵权,请您准备原始证明材料和公证书后联系我方删除!
本文链接:https://cloud.7tqx.com/wenda/710958.html
发表评论