微软VBScript编译错误“800a03ea”语法错误的放置函数
微软VBScript编译错误“800a03ea”语法错误的放置函数
提问于 2017-05-12 18:10:07
微软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页面中时，我会得到这个错误。
这2页之间唯一的区别是Getsample.asp我有头，body标记和Login.asp页面中只有body标记。
Stack Overflow用户
发布于 2017-05-13 12:58:22
我能够通过在函数定义的开头放置一个无效字符来再现它，很可能您有一个不可见字符，而不是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开始清除所有字符，然后使用您喜欢的方法空格/制表符重新应用任何缩进。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43944043
复制相关文章
相似问题
腾讯云开发者
