Question

您好，我出现了“Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数: 'Left'”

MicrosoftVBScript 运行时错误 错误 '800a0005'

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

--------./function/upload.asp，行 124
'取得文件名(去掉Path)
Function GetFileName(FullPath)
IfFullPath <> "" Then
FullPath = StrReverse(FullPath)
FullPath = Left(FullPath, InStr(1, FullPath, "\") - 1) ------124行
GetFileName = StrReverse(FullPath)
Else
GetFileName = ""
End If
End Function
是给网站上传图片时出现的问题

Answer 1

文件路径分隔符不一定是\，也可能是/，遇到这种情况，InStr(1, FullPath, "\")的结果就为0，再减1就变为-1，这样Left函数就会出错了。

可改成：
Function GetFileName(FullPath)
If FullPath <> "" Then
s = Split(Replace(FullPath, "/", "\"), "\")
GetFileName = s(UBound(s))
Else
GetFileName = ""
End If
End Function

或者利用FSO直接获得路径中的文件名：
Set Fso = CreateObject("Scripting.FileSystemObject")
wjm = Fso.GetFileName(FullPath)
Set Fso = Nothing

Answer 2

set outfile=fs.OpenTextFile("c:\a.txt",2,true)
'ForWriting这个在这里是变量，是没有值的
可以这样定义
const ForWriting=2
set outfile=fs.OpenTextFile("c:\a.txt",ForWriting,true)

这样写可能会出现权限问题，前提c:目录允许everybody修改操作
不然你改成2后，这个也可能会出现权限问题，一般都会改网站目录下面的文件

追问

我不太明白，你上面说的这些在我这儿那块改呀？