ASP文件 Microsoft VBScript 编译器错误 错误 '800a03f2'

来源：百度知道 编辑：UC知道 时间：2024/06/05 12:50:28
Microsoft VBScript 编译器错误 错误 '800a03f2'

缺少标识符

/inc/conn.asp，行 86

sub ()
----^

源码如下：

<%@ LANGUAGE = VBScript.Encode %>
<%
'检测是否有效的数字-----------------
Function IsInteger(Para)
IsInteger=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
IsInteger=True
End If
End Function
'检查无效字符----------------------
Function CheckStr(byVal ChkStr)
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\r\n){3,}"
Str=re.Replace(Str,"$1$1$1")
Set re=Nothing
Str = Replace(Str,"'","''")
Str = Replace(Str, "!!!", "!")
Str = Replace(Str, "★★★

sub 写一个名字 () 和Function 一样
conn.close
set rs=nothing
set conn=nothing
end sub

sub ()
你这里想定义什么啊，起个名字啊。

sub 是不能做函数名 的 ,他是用来说明函数的返回类型..换句话就是 你忘记了写 函数名 如 sub XXX()