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

　　推荐阅读

　　asp 验证输入网址是否有效并可以访问 与正则验证输入网址

验证输入网址是否有效并可以访问<% '****************************** '函数：UrlOK(strURL) '参数：strURL,待验证的网址 '作者：阿里西西 '日期：2007/7/13 '描述：验证输入网址是否有效并可以访问 '示例：<%=UrlO>>>详细阅读

本文标题：asp 字符串截取函数

地址：http://www.17bianji.com/kaifa2/ASP/32513.html

 1/2    1