如果标题过长,因为页面布局的限制,只能列表10个字符,这个函数会帮你实现的
代码如下:
‘截取字符串 strvalue(标题,字数)
function strvalue(str,lennum)
dim p_num
dim i
if strlen(str) lennum-2
x=x+1
if asc(mid(str,x,
代码如下:‘************************************ ‘截取文字长度函数,支持UTF-8 ‘输入参数: ‘ 1、文字内容 ‘ 2、文字最大长度 ‘************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k=0 d=StrLen(Title) iStr=”
ASP中Split函数的用法 分割截取字符串看几个例子就能理解了
代码如下:mystr=”1,2,3,4,5″ mystr=split(mystr,”,”) for i=0 to ubound(mystr) response.write mystr(i) next ‘返回值为123456
mystr=”xlei.net/http/student/x/index.asp” mystr=split(mystr,”/http/student”) for i=0 to ubound(mystr) r
代码如下: Function CutStrX(ByVal Str,ByVal StrLen) Dim l,t,c,i,r ‘过滤全部HTML标记 Set r=New RegExp r.Global=True r.MultiLine=True r.Pattern=”(]*>)” str=r.Replace(str,” “) Set r=Nothing l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c255 Then t=t+2 Els