本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 10.. 先来段开场白：为了外出携带方便.. Acronis True Image 使用.. 　　一款可以在Windows下使用.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost..     文 章 阅 读 排 行 世界各国所使用的国际域名.. 域名缩写 国家/地区 .. 关于 Firefox 在中国持续.. 亲爱的 Firefox 用户及 Firefox.. 全国各地、公共 DNS 服务器 排序 地区/公司名称 .. Microsoft SQL Server 2000.. 　　对于第一次安装 Microsoft .. Windows 系统安装或备份时 .. 【ISO 文件】 ISO 文件其实.. Windows PE 系统安装微软.. 如果电脑没有光驱，或者没有把.. ASP 网页编码 GB2312 转换.. 1、用记事本打开文件（如果整站.. 腾讯：难以承受之痛的背后.. 亲爱的网吧管理员： 　　在此，.. SATA 硬盘分区设置与安装.. 　　随着i865、i875、KT600等.. Windows XP 安装界面修改.. 安装装界面----也就是安装复制..

文 章 信 息 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 〖文章浏览：〗〖发送文章〗〖打印文章〗