從後臺上傳軟體時出現這個報警，麻煩幫忙解決一下！報警內容：Microsoft VBScript 執行時錯誤 '800a0005' 無效的過程呼叫或引數: 'Instr' /upload.asp, line 656程式碼：if Instr(intTemp,strItem,"filename=""")<>0 thenif not objForm.Exists(strInam&"_From") then strFileItem=strFileItem&strSplit&strInam if binItem.Size<>0 then intTemp=intTemp+13 strFtyp=Mid(strItem,Instr(intTemp,strItem,"Content-Type: ")+14) strTemp=Mid(strItem,intTemp,Instr(intTemp,strItem,"""")-intTemp) intTemp=InstrRev(strTemp,"/") strFnam=Mid(strTemp,intTemp+1) objForm.Add strInam&"_Type",strFtyp objForm.Add strInam&"_Name",strFnam objForm.Add strInam&"_Path",Left(strTemp,intTemp) objForm.Add strInam&"_Size",lngFsiz if Instr(intTemp,strTemp,".")<>0 then //這裡是656行 strFext=Mid(strTemp,InstrRev(strTemp,".")+1) else strFext="" end if

問題補充：

這個解決了：把 if Instr(intTemp,strTemp,".")<>0 then 改成 if Instr(intTemp,strTemp)<>0 then就可以了，只是現在只能傳jpg不能傳rar,程式碼如下：uploadtype="jpg/rar/swf/"size=Uprequest.Form("file_size")showsize=size & " Byte" if size>1024 then size=(size/1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if response.write "<script language=""javascript"">parent.form1.size.value='"&showsize&"';" response.write "</script>" response.write "<div style=""padding-top:5px;padding-bottom:5px;""> <font color=red>檔案上傳成功</font> [<a href='javascript:history.go(-1)'>重新上傳</a>]</div>" end if

提問者：

最佳答案

if Instr(intTemp,strItem,"filename=""")<>0 then這句中間的最後兩個引號去掉，看看InStr 函式的用法返回某字串在另一字串中第一次出現的位置。InStr([start, ]string1, string2[, compare])引數start可選項。數值表示式，用於設定每次搜尋的開始位置。如果省略，將從第一個字元的位置開始搜尋。如果 start 包含 Null，則會出現錯誤。如果已指定 compare，則必須要有 start 引數。string1必選項。接受搜尋的字串表示式。string2必選項。要搜尋的字串表示式。compare可選項。指示在計運算元字串時使用的比較型別的數值。有關數值，請參閱“設定”部分。如果省略，將執行二進位制比較。設定compare 引數可以有以下值：常數 值 描述 vbBinaryCompare 0 執行二進位制比較。 vbTextCompare 1 執行文字比較。

這個應該是你上傳的檔案包含路徑的問題！

你沒有說清楚後面的錯誤程式碼，你試下在IE（如果你是IE7及以上版本）的選項裡面

安全裡面的自定義級別，裡面有一個包含上傳檔案 路徑，這個是禁用的，你啟用就好了