VBScript不能使用strconv函数,怎么处理文本里的汉字啊？

[yfbaozi]

各位大侠,我写了一段代码用来从文本里读数据到我的数据库里，但VBScript不能使用strconv函数,我怎么处理文本里的汉字啊？我查了一下以前的帖子，好象没人给出答复啊!

[leo963258]

处理什么汉字啊
你代码？

[yfbaozi]

比如下面是我所要取的文本中的一行，各个字段之间是无分隔符的，但是每个字段都是定长的，因此我一行行的读出来，用mid函数分成各个字段后写进库里，但问题是一个汉字占两个字符位，这样取出来的长度就不定了，我想知道怎么解决这个问题，在VB里我可以用strconv这个函数，但ASP里没有啊！

赵晓妹 5472630200405011800004466887华山路168号 44678302山东省
李平 5472630200405011800004466887泰山路45号甲 44678302山东省

[yfbaozi]

我用mid取的时候，如果取前20位（姓名字段占20位），因为汉字的关系，取出来的数据是错误的，比如每一行的len是17，而第二行是18。

[是是非非]

用带B的函数

[是是非非]

错了，呵呵

[yfbaozi]

带B的也不行，只是长度增加一倍而已！

[是是非非]

<script language="VBScript">
Dim s1 : s1="赵晓妹 5472630200405011800004466887华山路168号 44678302山东省"
Dim s2 : s2="李平 5472630200405011800004466887泰山路45号甲 44678302山东省"
Public Function LeftNBytes(str,nLen)
Dim iCnt,sOut,cTmp,iLen
sOut=""
iCnt=1
iLen=0
cTmp=""
While iLen<=nLen
cTmp=Mid(str,iCnt,1)
If Asc(cTmp)<0 Then
iLen=iLen+2
Else
iLen=iLen+1
End If
sOut=sOut & cTmp
iCnt=iCnt+1
Wend
LeftNBytes=sOut
End Function
Dim o1,o2
o1=LeftNBytes(s1,20)
o2=LeftNBytes(s2,20)
Dim p1,p2
p1=Left(s1,20)
p2=Left(s2,20)
MsgBox "字符串一：[" & o1 & "] 长度：" & Len(o1) & " Unicode占用长度：" & LenB(o1) & vbCrLf & _
"字符串二：[" & o2 & "] 长度：" & Len(o2) & " Unicode占用长度：" & LenB(o2)
MsgBox "字符串一：[" & p1 & "] 长度：" & Len(p1) & " Unicode占用长度：" & LenB(p1) & vbCrLf & _
"字符串二：[" & p2 & "] 长度：" & Len(p2) & " Unicode占用长度：" & LenB(p2)
</script>

[yfbaozi]

谢谢楼上的，我知道可以自己写一个函数来判断，我想知道是不是没有直接可以用的函数啊！