ASP classique: j'obtiens une erreur d'incompatibilité de type où je ne devrais pas

J'ai une fonction pour transformer le HTML du texte codé en arrière dans le HTML. Il fonctionne très bien normalement, mais pour une raison quelconque, j'essaie de l'utiliser sur du texte d'aujourd'hui, et obtenez l'erreur suivante:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UnChkString'

/manage/solutions_delete.asp, line 22

La ligne, je suis à l'aide de cette fonction est:

<%= UnChkString(solution_desc) %>

La solution_desc variable est:

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

Le champ de la base de données est en tirant le solution_desc de est un champ de texte.

Mon UnChkString fonction est:

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

La HTMLDecode fonction est:

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

MODIFIER

J'ai même essayé:

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

avec pas de chance.

La ligne est la ligne 22?
<%= UnChkString(solution_desc) %>
Peut-être que vous êtes l'obtention de NULL de la DB? L'erreur se produire avec l'exemple de la chaîne que vous avez posté?
La chaîne que j'ai posté est ce que je reçois de la base de données. Qu'est ce qui est écrit si je n'ai pas essayer de l'exécuter par le biais de la fonction.
Très étrange. Je peux le faire tourner normalement sur ma machine, pas d'erreurs!

OriginalL'auteur James | 2012-03-08

  1. 8

    Parfois de son mieux pour viens de re-lire l'erreur très soigneusement. Considérer ce morceau de VBS:

     DoStuff("Hello World")

    Depuis DoStuff n'est pas définie, ni est-il un Option Explicit j'obtiens:

    Erreur: incompatibilité de Type: 'DoStuff'

    Votre erreur est: Type mismatch: 'UnChkString'. Ses pas se plaindre du paramètre passé sa se plaindre UnChkString lui-même. Ma conjecture est que vous avez commis le plus de base de VBScript programmming fait une grosse bêtise, vous n'avez pas de Option Explicit en haut de votre code. C'est un must.

    Pour des raisons peu claires forme le code que vous avez posté jusqu'à présent, le code à l'endroit que <%= UnChkString(solution_desc) %> est exécuté par le moteur de script n'a pas une fonction UnChkString, d'où l'erreur que vous voyez. Je soupçonne que l'inclusion de Option Explicit révèle le problème (ainsi que de vous forcer à Dim toutes vos variables).

    J'ai commencé à répondre en disant que je souhaite c'était facile, mais que les fonctions de script est chargé automatiquement à chaque page, mais ensuite vérifié de toute façon. C'était la raison. Mes fonctions de script n'a pas été inclus dans cette page particulière. Je vous remercie.

    OriginalL'auteur AnthonyWJones

  2. 4

    Je suis d'accord avec Anthony est d'avis que vous devriez être en utilisant l'Option Explicit en haut de vos pages ASP.

    Je soupçonne que la cause est manquant ou incorrect d'inclure le fichier

    Je peux reproduire cela avec le code ci-dessous où j'ai supprimer 

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

    ou malform l'appel en le modifiant pour

    <!-#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>

    OriginalL'auteur Nicholas Murray

  3. 0

    Remplacer string à vStr et légèrement modifié.

    Essayer de cette façon:-

    Function UnChkString(vStr)
    vStr = Replace(vStr,"[%]","%")
    UnChkString = HTMLDecode(vStr)
End Function
    J'ai oublié de mentionner que je l'avais essayé déjà trop (variable différente, bien sûr) avec pas de chance. Il a essayé de nouveau de toute façon, mais toujours la même chose.
    Toujours le même msg d'erreur ou différents msg
    Même message d'erreur.

    OriginalL'auteur Siva Charan

  4. 0

    Afin de résoudre ce problème, Vous devez d'abord vérifier si la chaîne a le char, c'est..

    Function HTMLDecode(byVal sText)
    HTMLDecode = sText
    If Instr(HTMLDecode,"&amp;") Then HTMLDecode = Replace(HTMLDecode, "&amp;" , Chr(38))
    If Instr(HTMLDecode,"&amp;") Then HTMLDecode = Replace(HTMLDecode, "&amp;" , "&")
    If Instr(HTMLDecode,"&quot;") Then HTMLDecode = Replace(HTMLDecode, "&quot;", Chr(34))
    If Instr(HTMLDecode,"&rsquo;") Then HTMLDecode = Replace(HTMLDecode, "&rsquo;", Chr(39))
    If Instr(HTMLDecode,"&lt;") Then HTMLDecode = Replace(HTMLDecode, "&lt;"  , Chr(60))
    If Instr(HTMLDecode,"&gt;") Then HTMLDecode = Replace(HTMLDecode, "&gt;"  , Chr(62))
    If Instr(HTMLDecode,"&nbsp;") Then HTMLDecode = Replace(HTMLDecode, "&nbsp;", Chr(32))

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

    Et..

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

    Qui devrait résoudre votre Type Mismatch question. Ne me demandez pas pourquoi, ça fonctionne, tout simplement.

    OriginalL'auteur Control Freak