Question

Microsoft VBScript编译错误＆＃39; 800a03ea＆＃39;
  语法错误
  /decal/sslpdecal_inc/login.asp，第26行   功能DealerDecrypt（ByVal cString）
  ^

我的完全解密funticon是

<%
    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并且运行良好但是当在pagename login.asp中放入相同的函数时，我收到此错误。

这2页的唯一区别是Getsample.asp我有head，body标签，在Login.asp页面我只有body标签。

Answer 1

我能够通过在函数定义的开头放置一个无效字符来重现它，可能是你有一个不可见的字符而不是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页面上，代码编写如下，调用不同的页面。

template<class Class>
        explicit Button(void (Class::*func)(), Class* const T) {
            m_PressFunction = [T, func]() {(T->*func)(); };
        }

并且在内部就像调用login.asp页面一样。

所以把功能放在父页面上就可以了。

Answer 3

我遇到了同样的问题，并将include语句放在文件的开头为我工作

关于放置函数获取Microsoft VBScript编译错误＆＃39; 800a03ea＆＃39;语法错误

3 个答案: