關於將函數放入Microsoft VBScript編譯錯誤'800a03ea'語法錯誤

Question

Microsoft VBScript編譯錯誤'800a03ea'
語法錯誤
/decal/sslpdecal_inc/login.asp，第26行
函數DealerDecrypt（ByVal cString）
^

我的完整解密功能是

<%
    Function DealerDecrypt(ByVal cString)
        Dim cNewString
        Dim nOffset
        Dim nCharCode
        Dim cNewChar
        Dim i
        nOffset = -1
        For i = 1 To Len(cString)
            nCharCode = Asc(Mid(cString, i, 1))
            nCharCode = nCharCode + (nOffset)
            cNewChar = Chr(nCharCode)
            cNewString = cNewString & cNewChar
            nOffset = nOffset - 1
            If nOffset = -11 Then nOffset = -1
        Next
        DealerDecrypt = cNewString
    End Function 
%>

我已經使用此函數創建了一個名為Getsample.asp的示例名稱，並且在該示例中運行良好，但是當在頁面名稱login.asp中放置相同的功能時，出現此錯誤。

這兩個頁面之間的唯一區別是Getsample.asp，我有頭部和身體標簽，而在Login.asp頁面中，我只有身體標簽。

Answer 1

我可以通過在Function定義的開頭放置一個無效字符來重現它，這很可能是因為您擁有一個不可見的字符，而不是VBScript運行時不喜歡的空格或制表符。

<%
.   Function DealerDecrypt(ByVal cString)
        Dim cNewString
        Dim nOffset
        Dim nCharCode
        Dim cNewChar
        Dim i
        nOffset = -1
        For i = 1 To Len(cString)
            nCharCode = Asc(Mid(cString, i, 1))
            nCharCode = nCharCode + (nOffset)
            cNewChar = Chr(nCharCode)
            cNewString = cNewString & cNewChar
            nOffset = nOffset - 1
            If nOffset = -11 Then nOffset = -1
        Next
        DealerDecrypt = cNewString
    End Function 
%>

產生以下錯誤

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test16.asp, line 6

.    Function DealerDecrypt(ByVal cString)  
-----^

雖然您的字符沒有顯示特定字符​​，但請注意它是如何指向函數開頭的，這是導致錯誤的原因。 我會從Function的開頭清除所有字符，然后使用您喜歡的方法（空格/制表符）重新應用任何縮進。

Answer 2

嗨，問題解決了

login.asp是index.asp的子頁面。

在index.asp頁上，代碼編寫如下，它調用了不同的頁面。

<!-- #include file="xxxx/xxxx.asp" -->

並在內部這樣調用了login.asp頁面。

因此，將功能放在父頁面上就可以了。

Answer 3

我遇到了同樣的問題，將include語句放在文件的開頭對我有用