编写asp代码截取字符串!

编写asp代码截取字符串!

　　’函数名：SubstZFC
　　’作用：截字符串，汉字一个算两个字符，英文算一个字符
　　’参数：str----原字符串
　　’strlen----截取长度
　　’返回值：截取后的字符串
　　’适用：标题截取指定字符，如果用LEFT截取，当有英文时就会出现取出来的标题明显太短。
　　’**************************************************
　　PublicFunctionSubstZFC(ByValstr,ByValstrlen)
　　Ifstr=""Then
　　SubstZFC=""
　　ExitFunction
　　EndIf
　　Diml,t,c,i,strTemp
　　str=Replace(Replace(Replace(Replace(str,"",""),""",Chr(34)),">",">"),"<","<")
　　l=Len(str)
　　t=0
　　strTemp=str
　　strlen=CLng(strlen)
　　Fori=1Tol
　　c=Abs(Asc(Mid(str,i,1)))
　　Ifc>255Then
　　t=t+2
　　Else
　　t=t+1
　　EndIf
　　Ift>=strlenThen
　　strTemp=Left(str,i)
　　ExitFor
　　EndIf
　　Next
　　SubstZFC=Replace(Replace(Replace(Replace(strTemp,"",""),Chr(34),"""),">",">"),"<","<")
　　EndFunction