經典ASP CStr的工作不

Question

我需要Error 800A000D - Type mismatch我在子波紋管我接受幫助：

<!-- #include file="Regex.asp" --> 
<% 
Call moverzipado() 

Sub moverzipado() 
    dim nomeArquivoZip, nomeArquivo 
    nomeArquivo = request("nomeArquivo") 
    nomeArquivoZip = NomeArquivo(trim(CStr(nomeArquivo)))&".zip" 'here is the problem 
End Sub 

這是我的查詢字符串：?nomeArquivo=arquivo.zip

這是Regex.asp包括。這是工作。

<% 
Function RegExResults(strTarget, strPattern) 

    Set regEx = New RegExp 
    regEx.Pattern = strPattern 
    regEx.Global = true 
    Set RegExResults = regEx.Execute(strTarget) 
    Set regEx = Nothing 

End Function 

Function NomeArquivo(arquivo) 
    Set arrResults = RegExResults(arquivo, "(.*)\..*") 

    For each result in arrResults 
     NomeArquivo = result.Submatches(0) 
    Next 

    Set arrResults = Nothing 
End function 

'Response.Write(NomeArquivo("file.exe")) prints "file" here it works. 
%> 

有人知道發生了什麼嗎？

Answer 1

vbScript不區分大小寫。看起來你有一個變量和一個具有相同名稱的函數。嘗試改變你的函數或變量的名稱。