Erreur "variable non définie" lorsque l'appel d'une fonction

J'ai créé un classique de la page asp avec une fonction comme suit:

<%@ Language=VBScript %>
<% Option Explicit %>

<%
      <!--#INCLUDE file='ADOVBS.inc'-->
       Response.Buffer = True

%>
<%
      Function Lettergrade(lg)

             Dim lgs
             if lg>50 then
            set    lgs="P"
                else
            set    lgs="F"
             end if
           set Lettergrade= lgs
       End Function
  %>
<%
set strlettergrade=Lettergade(strgrade)
... other code goes here
%>

Je vais essayer d'appeler la fonction dans une expression, mais quand il me donne l'erreur suivante:

Erreur d'exécution Microsoft VBScript '800a01f4'

Variable n'est pas définie: 'Lettergade'

Quelqu'un a une idée?

InformationsquelleAutor Elmer Tillett | 2012-04-18
  1. 5
    1. Option Explicit signifie que vous devez DIM variables avant de pouvoir être utilisés.
    2. <!--#Include file='ADOVBS.inc " --> n'est pas vbscript afin de ne pas les inclure entre le <% %> script balises de séparateur.
    3. Vous devez DIM strgrade
    4. vous devez DIM strlettergrade avant de l'utiliser
    5. Corriger la faute de frappe de Lettergade(strgrade) 
    
<%@ Language=VBScript %> 
<% Option Explicit %>  
<% Response.Buffer = True %>

<!--#INCLUDE file='ADOVBS.inc'-->

<%
Dim strlettergrade
Dim strgrade

%>

<%
Function Lettergrade(lg)

if lg > 50 then
  Lettergrade ="P" 
else 
  Lettergrade ="F" 

End Function
%>

<%
strgrade = 75
strlettergrade=Lettergrade(strgrade)
... other code goes here 
%>
    InformationsquelleAutor Michael Riley - AKA Gunny
  2. 2

    Essayer de se débarrasser de la Set à l'intérieur de l'appel de fonction et seulement affecter Lettergrade = lgs.

    • Je l'ai essayé et encore, je reçois le message d'erreur..
    InformationsquelleAutor mord'Sith
  3. 1

    Variable is undefined: 'Lettergade'

    Fonction s'appelle Lettergrade pas Lettergade - peut-être juste une faute de frappe question

    Essayez de changer:

    strlettergrade=Lettergade(strgrade)

    à

    strlettergrade=Lettergrade(strgrade)

    • Qui est à droite. Je vous remercie beaucoup. Été avec cette erreur de la nuit dernière.
    • Après la modification de cette votre code travaillé? Wow, vous assurez-vous inséré un lot de leurre erreurs dans vos questions, alors ;).
    InformationsquelleAutor Chris
  4. 1

    Il y a plusieurs problèmes avec ce script, dont certains sont déjà souligné par Chris et Ryan.

    1. Vous avez seulement besoin Set lorsque vous affecter un objet à une variable. Les chaînes ne sont pas des objets en VBScript. Se débarrasser de tous les Set's dans votre script.

    2. L'évidence de la faute de frappe que Chris mentionné. Changement Lettergade à Lettergrade.

    3. Vous ne semblez pas déclarer la strlettergrade ou strGrade variable. Avec Option Explicit activée (ce qui est une bonne pratique), il est obligatoire de déclarer tous variables. Utilisation Dim pour cela (comme celle à l'intérieur de votre fonction).

    4. Vous semblez utiliser une chaîne de caractères comme paramètre pour votre Lettergrade fonction. Depuis le nom de la variable est strgrade. Au sein de la fonction vous êtes en comparant avec un integer. Cette pourrait causer des problèmes. Convertir votre chaîne à un nombre entier d'abord à l'aide de la cInt fonction.

    5. Comprend le besoin d'aller à l'extérieur de la <% %> balises. Déplacer <!--#INCLUDE file='ADOVBS.inc'--> à la ligne en dessous Option Explicit

    De suivre ces étapes, ou de copier coller le script de @Cape Cod de Jute. Après cela, votre script doit fonctionner comme prévu ;). Sauf pour le point 4, vous avez encore besoin de corriger cela.

    InformationsquelleAutor Guido Gautier
  5. 0

    Que vous avez mal orthographié Lettergrade lors de l'appel de la fonction. La Variable n'est pas définie: 'Lettergade " Aussi je prendrais SLaks des conseils. Ensemble ne doit pas être utilisé sur les cordes.

    InformationsquelleAutor deusxmach1na