得到 VBSCRIPT 错误：“800a03f4”答案

【问题标题】：Getting VBSCRIPT Error: "800a03f4"得到 VBSCRIPT 错误：“800a03f4”
【发布时间】：2012-12-02 15:27:05
【问题描述】：

我有以下功能：

Function getNext10(num)
    pageLen = len(num)
    If pageLen = 1 Then
        next10 = 10
    ElseIf pageLen>1 Then
        pageRem = 10
        pageTen = right(num, 1)
        next10 = num + pageRem - pageTen
    End If
    getNext10 = next10
End Function

如果我使用该功能，我会收到以下错误：

Microsoft VBScript 编译"800a03f4'

'如果'预期

/display/paging.asp，第 27 行

结束函数
------^

这个函数有什么问题？

【问题讨论】：

它工作得很好。问题在别处。你怎么调用这个函数？
这是我调用函数的方式：next10 = getNext10(CurrPage)
我已经这样做了，我还声明了变量。我不知道问题来自哪里。也许我应该发布整个代码？
是的，尝试发布更多代码，我们会看到的。
感谢帮助向导，但我自己发现了错误... -.-。在我的原始版本中，我有 Else If 而不是 Elseif，它修复了错误

标签： asp-classic vbscript

【解决方案1】：

试试这个：

Function getNext10(num)
    pageLen = len(num)
    If pageLen = 1 Then
        next10 = 10
    End If
    If pageLen>1 Then
        pageRem = 10
        pageTen = right(num, 1)
        next10 = num + pageRem - pageTen
    End If
    getNext10 = next10
End Function

【讨论】：