小编Elm*_*ett的帖子

我创建了一个经典的asp页面,其功能如下:

<%@ 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
%>

我试图在表达式中调用该函数但是当它给我以下错误时:

Microsoft VBScript运行时错误"800a01f4"

变量未定义:'Lettergade'

有没有人有想法？