Классический ASP: я получаю ошибку несоответствия типа, когда я не должен

Question

У меня есть функция для преобразования HTML-кодированного текста обратно в HTML. Он отлично работает нормально, но по какой-то причине, я пытаюсь использовать его на какой-нибудь текст сегодня, и получить следующее сообщение об ошибке:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'UnChkString' 

/manage/solutions_delete.asp, line 22 

линия Я использую эту функцию на это:

<%= UnChkString(solution_desc) %> 

переменная solution_desc является:

<p>Here is a description of what this solution is all about.</p> 

поля базы данных тянут solution_desc от текстового поля.

Моя UnChkString функция:

Function UnChkString(string) 
    UnChkString = Replace(string,"[%]","%") 
    UnChkString = HTMLDecode(UnChkString) 
End Function 

Функция HTMLDecode является:

Function HTMLDecode(sText) 
    Dim I 
    sText = Replace(sText, "&" , Chr(38)) 
    sText = Replace(sText, "&" , "&") 
    sText = Replace(sText, """, Chr(34)) 
    sText = Replace(sText, "’", Chr(39)) 
    sText = Replace(sText, "<" , Chr(60)) 
    sText = Replace(sText, ">" , Chr(62)) 
    sText = Replace(sText, " ", Chr(32)) 
    For I = 1 to 255 
     sText = Replace(sText, "&#" & I & ";", Chr(I)) 
    Next 
    HTMLDecode = sText 
End Function 

EDIT

Я даже пробовал:

<%= UnChkString(CStr(solution_desc)) %> 

не повезло.

Answer 1

Иногда его лучше очень осторожно, чтобы просто перечитать ошибку. Рассмотрим этот кусок VBS:

DoStuff("Hello World") 

Поскольку DoStuff не определен ни там Option Explicit я получаю:

Error: Type mismatch: 'DoStuff'

Ваша ошибка: Type mismatch: 'UnChkString'. Он не жаловался на то, что параметр передал его жалобу около UnChkString. Я предполагаю, что вы взяли на себя основную программу программирования VBScript, у вас нет Option Explicit в верхней части кода. Это необходимо.

По причинам нечеткой формы код, который вы отправили до настоящего времени, код в точке, в которой выполняется <%= UnChkString(solution_desc) %>, движок сценария не имеет функции UnChkString, следовательно, вы видите ошибку. Я подозреваю, что включение Option Explicit покажет проблему (а также заставит вас Dim всех ваших переменных).

Answer 2

Замените string на vStr и немного изменили.

Попробуйте так: -

Function UnChkString(vStr) 
    vStr = Replace(vStr,"[%]","%") 
    UnChkString = HTMLDecode(vStr) 
End Function 

Answer 3

Для того, чтобы исправить это, вы должны сначала проверить, если строка имеет символ в ней, сделать это ..

Function HTMLDecode(byVal sText) 
    HTMLDecode = sText 
    If Instr(HTMLDecode,"&") Then HTMLDecode = Replace(HTMLDecode, "&" , Chr(38)) 
    If Instr(HTMLDecode,"&") Then HTMLDecode = Replace(HTMLDecode, "&" , "&") 
    If Instr(HTMLDecode,""") Then HTMLDecode = Replace(HTMLDecode, """, Chr(34)) 
    If Instr(HTMLDecode,"’") Then HTMLDecode = Replace(HTMLDecode, "’", Chr(39)) 
    If Instr(HTMLDecode,"<") Then HTMLDecode = Replace(HTMLDecode, "<" , Chr(60)) 
    If Instr(HTMLDecode,">") Then HTMLDecode = Replace(HTMLDecode, ">" , Chr(62)) 
    If Instr(HTMLDecode," ") Then HTMLDecode = Replace(HTMLDecode, " ", Chr(32)) 

    For I = 1 to 255 
     If Instr(HTMLDecode, "&#" & I & ";") Then HTMLDecode = Replace(HTMLDecode, "&#" & I & ";", Chr(I)) 
    Next 
End Function 

И ..

Function UnChkString(vStr) 
    UnChkString = vStr 
    If Instr(vStr,"[%]") Then vStr = Replace(vStr,"[%]","%") 
End Function 

Это должно исправить Type Mismatch вопрос. Не спрашивайте меня, почему это работает.

Answer 4

Я согласен с мнением Энтони, что вы должны использовать Option Explicit в верхней части страниц ASP.

Я подозреваю, что причиной является отсутствие или неправильный формат включает файл

Я могу повторить это с кодом ниже, где я либо удалить

<!--#include file="include-functions.asp"--> 

или malform вызов путем изменения его

<!-#include file="include-functions.asp"--> 


include-functions.asp 
<% 
Function UnChkString(string)  
UnChkString = Replace(string,"[%]","%")  
UnChkString = HTMLDecode(UnChkString) 
End Function 
%> 


index.asp 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<title></title> 
</head> 
<body> 
    <!--#include file="include-functions.asp"--> 
<% 

Dim solution_desc 
solution_desc = "&lt;p&gt;Here is a description of what this solution is all  about.&lt;/p&gt;" 


Function HTMLDecode(sText)  
Dim I  
sText = Replace(sText, "&amp;" , Chr(38))  
sText = Replace(sText, "&amp;" , "&")  
sText = Replace(sText, "&quot;", Chr(34))  
sText = Replace(sText, "&rsquo;", Chr(39))  
sText = Replace(sText, "&lt;" , Chr(60))  
sText = Replace(sText, "&gt;" , Chr(62))  
sText = Replace(sText, "&nbsp;", Chr(32))  
For I = 1 to 255   
sText = Replace(sText, "&#" & I & ";", Chr(I))  
Next  
HTMLDecode = sText 
End Function 

%> 
<%= UnChkString(solution_desc) %> 
</body> 
</html>