请大家帮我看看这段错误,帮帮忙!!!!特急!!!!!!!!

[pjp2001]

我在程序中调用这段函数

Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
skipflag=0
ccc = ""
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
bin2str = ccc
End Function


发生错误错误如下：
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'chr'

/adm_famous.asp, line 303

也就是这一句出错：
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))

不知道原因，请高手帮帮忙啊！

[aspnetxp]

我这里也可以...

[lbd8848]

是不是该为chrb ??

[pjp2001]

好想不对啊！改为chrb的话：
Microsoft VBScript runtime error '800a0006'

Overflow: 'AscW(...)'

错误

[xiwanghope]

你把 Chr(AscW(MidB(binstr,i+1,1) & clow))付给一个变量，然后在连接变量

zzz = Chr(AscW(MidB(binstr,i+1,1) & clow))
ccc = ccc & zzz

[tianjy]

这个函数网上很多例子，复制一个

[qwater]

试了你的代码，我这里没问题

[pjp2001]

本地没问题，上传到空间就有问题，xiwanghope的方法不对,这个问题出现在汉字和数字同时输入的时候

[pjp2001]

up