查看完整版本: ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文

ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文

ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文"Pu `XA

]T?6Y&z V2N1kRQ 　　对中文识别为两个字符，ASCII码为一个,可用此函数代替Len,Left,Right函数Jt'EBsu

8K&i o(SW;Q 　　示例：LenX("中国ren") => "7" ce:x'r-v9z9w!U
OR8^b)A2d G3{|HS
　　LeftX("中国ren",4) => "中国"5y/v]'tex
!R;aWw!k,EY
　　RightX("中国ren",5) => "国ren"
*Kg,n|v)@ f(t7sjK Qk7_(p [L
      参数：　String 字符串　Length 长度
6z*D"y
\%b4ovz9k
#@7y`SWNRS~       返回：字符串长度，字符串，字符串[code]Public Function LenX(ByVal sString) K&Ff/Vx&X^)D1Z'A
Dim reslult, lngStringLen, strCharString, i *|%DbFKS
lngStringLen = Len(sString) [t.d4l%z
strCharString = "" -`![d.i@bu8HQ
for i = 1 to lngStringLen (as:b@nK'S
strCharString = Mid(sString, i, 1)
"ZO7rL[/F/C if Asc(strCharString) > 0 then reslult= reslult+ 1 else reslult= reslult+ 2
eZ4@
[Y&\[9|.` ~ next
-e-p_.u;XyM%MUf LenX= reslult
'q0i^-y7Q.C@.Ceb End Function  
'xc,x:oS;_b Public Function strLeft(ByVal sString, ByVal lLength)
GL3lRQ6y^ @ if isBlank(sString) or lLength < 1 then Exit Function %B+?L8}&~?4q
Dim result, lngStringLength, strCharString, lngCounter ,i I0G2uh }1eE
lngStringLength = Len(sString)
[SA.{Rf{ result = "" ){K+E&g~d%L4F
for i = 1 to lngStringLength G/X3Ov:v~4h p
strCharString = Mid(sString, i, 1)
B$x&vhmk.d result = result & strCharString
Z4}d3??7IHK if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2
t2Z9@P/z2U if lngCounter >= lLength then Exit For
vFl WCk{3F$S next
G"RVu7?,PXpT^ strLeft = result ZXv-ErrS
End Function :Z;INT+fa(o:[;_
Public Function strRight(ByVal sString, ByVal lLength)
]P3{PL t |8nO if isBlank(sString) or lLength < 1 then Exit Function
:mi*]_6Jc{A Dim result, lngStringLength, strCharString, lngCounter, i YOD;}G"|on
lngStringLength = Len(sString)
ai%i7E"gb result = "" nI r4@ Pz
for i = lngStringLength to 1 step -1
:hjD'CS[t strCharString = Mid(sString, i, 1)
|#|$z.[!g-` result = strCharString & result _v_"k1Bx|.[Wuh
if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2  
5EJb-xX4Q_ if lngCounter >= lLength then Exit For
[ ~L3@
Qt}[,v z next 2o&ynR$zJ*y2k)Q
strRight = result z/UPv3T#b3R
End Function [/code]