Microsoft VBScript 运行时错误 错误 '800a0005'

无效的过程调用或参数: 'chr'

/service/upload.inc，行 75


upload.inc代码：66——82
Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
  if upfile_5xSoft_Stream.EOS then Exit for
  c=ascB(upfile_5xSoft_Stream.Read(1))
  If c > 127 Then
    if upfile_5xSoft_Stream.EOS then Exit for
    stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
    i=i+1
  else
    stemp=stemp&Chr(c)
  End If
Next
subString=stemp
End function

这个代码在一台服务器上测试正常，在另一台服务器上就出现这个提示

[ 本帖最后由 红色雄鹰 于 2007-8-22 19:20 编辑 ]

设置问题......找空间商吧

引用:

原帖由 商业VIP源码 于 2007-8-14 12:33 发表
设置问题......找空间商吧

自己的服务器，该怎么解决

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Chr'

/admin/inc/UPLOAD.INC, line 75



出现如此错误可能是服务器用的是英文版本，因为

Chr 函数返回 String，其中包含有与指定的字符代码相关的字符 。

相关语法：Chr(charcode)

必要的 charcode 参数是一个用来识别某字符的 Long。

说明：0 到 31 之间的数字与标准的非打印 ASCII 代码相同。例如，Chr(10) 可以返回换行字符。charcode 的正常范围为 0 – 255。然而，在 DBCS 系统，charcode 的实际范围为 -32768 到 65535。

注意：   ChrB 函数作用于包含在 String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW 函数返回包含 Unicode 的 String，若在不支持 Unicode 的平台上，则其功能与 Chr 函数相同。

所以把出错的line75行代码：stemp=stemp&chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))

中的chr换成chrw就可以啦！


试试看这个

早就试过了，不行

加上这句
<!-- must be fist line in ASP -->
<% @LCID=4100 %>
也试过了，不行
PS：什么给站所在文件价everyone可读可写权限也试过了