[会员中心]  [发布文章][发布软件]  [中文繁體]

文章·资料  电脑软件  手机软件  网站源码 电脑·手机·网络学习话题娱乐故事 文化·历史国学典籍法律法规 操作系统网络办公·文件音频视频图形图像 硬件·驱动程序行业教学学习编程游戏 安卓苹果鸿蒙 其他 ASPASP.NETJSPPHP HTML·CSS·JavaScript

本 站 搜 索 文章 软件 [选项] 文章类别： [全部]电脑·手机·网络话题故事文化·历史娱乐学习法律·法规国学典籍 搜索选项： 文章编号 文章标题 文章作者 文章来源 相关链接 关键字词 文章标签 文章内容 软件类别： [全部]操作系统网络办公·文件音频视频图形图像行业编程教学学习游戏硬件·驱动程序安卓系统苹果系统鸿蒙系统其他系统HTML·CSS·JavaScriptASPJSPPHPASP.NET 搜索选项： 软件编号 软件名称 软件作者 软件来源 相关链接 关键字词 软件标签 软件简介

发 送 文 章 ASP字符串截取函数 〖评论()〗〖留言〗〖收藏〗  收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 ASP 字符串截取函数 ’********************************************************* ’函数：cutStr[str(strlen)] ’参数：str，待处理的字符串,strlen，截取的长度 ’作者：木木 ’日期：2007/7/12 ’描述：截取指定长度的字符串 ’示例：%=cutStr(欢迎光临阿里西西,5)% ’********************************************************* function cutStr(str,strlen) If str = Then cutStr = cutStr函数异常：字符串为空 exit function End If ’------------来源长度检查 If strlen = Then cutStr = cutStr函数异常：长度未指定 exit function End If If CInt(strlen) = 0 Then cutStr = cutStr函数异常：长度为0 exit function End If ’----------检测来源字符长度 dim l,t,c,i l=len(str) t=0 ’----------循环截取字符 for i=1 to l c=Abs(Asc(Mid(str,i,1))) ’------判断是否汉字 if c255 then t=t+2 else t=t+1 end If ’------判断是否到达指定长度 if t=strlen then cutStr=left(str,i).. exit for else cutStr=str end if next cutStr=replace(cutStr,chr(10),) end function ’’********************************************************* ’函数：strlen[str] ’参数：str，待处理的字符串 ’作者：木木 ’日期：2007/7/12 ’描述：判断字符串长度，汉字长度为2 ’示例：%=strlen(欢迎光临阿里西西)% ’********************************************************* Function strlen(str) dim p_len p_len=0 strlen=0 if trim(str) then p_len=len(trim(str)) for xx=1 to p_len if asc(mid(str,xx,1))0 then strlen=int(strlen) + 2 else strlen=int(strlen) + 1 end if next end if End Function 截取左边的n个字符’********************************************************* ’函数：LeftTrue(str,n) ’参数：str，待处理的字符串，n，截取的长度 ’作者：木木 ’日期：2007/7/12 ’描述：显示左边的n个字符(自动识别汉字)函数 ’示例：%=LeftTrue(欢迎光临阿里西西,6)% ’********************************************************* Function LeftTrue(str,n) If len(str)=n/2 Then LeftTrue=str Else Dim TStr Dim l,t,c Dim i l=len(str) t=l TStr= t=0 for i=1 to l c=asc(mid(str,i,1)) If c0 then c=c+65536 If c255 then t=t+2 Else t=t+1 End If If tn Then exit for TStr=TStr(mid(str,i,1)) next LeftTrue = TStr End If End Function<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10002782" target="_blank">https://dangbai.cn/Article.asp?ID=10002782</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 发送协议 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网   本站使用【啊估文章软件站】网站系统    〖网站管理员留言簿〗