asp上传文件包MicrosoftVBScript运行时错误'800a0005'无效的过程调用或参数:'Instr'

如果本身没有预览功能：

在 upload.asp 中查找 

if Instr(intTemp,strTemp,".")<>0 then

大概在657行

在该上面添加

'如果intTemp 为0 对intTemp重新赋值为1；如果不为0那就默认即可

if intTemp <> 0 Then
intTemp = intTemp
else
intTemp = 1
end if

该代码即可

报错原因是

'如果ie浏览器>6的话，安全默认级别 禁用了 文件上传到服务器中包含本地路径的

因此 intTemp=InstrRev(strTemp,"\") 该行代码的返回值是 0 

if Instr(intTemp,strTemp,".")<>0 then

Instr中的开始位置
'是从1开始的，如果为0 就会报错.为此我们在下面对intTemp做判断

如果代码带有 预览功能：

解决方法：

1、治标方式。
IE7以上版本其实把文件上传是否发送完整的本地路径做成一个选项，在IE的Internet选项中可以设置。如下图：

图一，点击浏览器的工具----》Internet安全选项
 

图二，完整路径选项设置----》设置为启动