獲取VBSCRIPT錯誤： 「800a03f4」

Question

我有以下功能：

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 compilation "800a03f4'

'If' expected

/display/paging.asp, row 27

End Function
------^

什麼是錯的功能？

Answer 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