本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 1025C).. 先来段开场白：为了外出携带方便，到淘.. Acronis True Image 使用说明 　　一款可以在Windows下使用全部功.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost进行系..     文 章 阅 读 排 行 Microsoft SQL Server 2000 Perso.. 　　对于第一次安装 Microsoft SQL Se.. MD5 算法的ASP实现代码 　　MD5的全称是Message-Digest Algor.. BIOS 设置不能修改等问答5则 　　问：电脑配置为：微星865PE主板、P4.. Windows 系统修改默认文件类型图标 Windows 系统文件类型图标，通常由默.. 夸克网盘新用户注册如何获得1T空间 夸克网盘，新用户注册如何获得1T空间？ .. VMware Workstation：新添加的硬.. VMware Workstation 新添加的硬盘不.. CMD：Windows 系统 CMD 命令添加.. 查看全部用户账号： net user 查.. Microsoft Internet Information .. 　　简称：IIS，版本：5.0，运行环境：Wind.. 关于使用 CSS 来控制 table 标签.. 　　在 HTML 语言中，table 标签的 cel.. 使XHTML Strict 支持 target 标签 XHTML 1.0 Strict 之后就不支持 targe..

文 章 信 息 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 c>255 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 c<0 then c=c+65536 If c>255 then t=t+2 Else t=t+1 End If If t>n Then exit for TStr=TStr&(mid(str,i,1)) next LeftTrue = TStr End If End Function 文章作者：未知  更新日期：2009-07-07 〖文章浏览：〗〖发送文章〗〖打印文章〗