Microsoft VBScript 运行时错误 错误 ✀800a01a8✀ 网站打开的时候显示

缺少对象: ✀Newasp✀ 缺少对象: ✀Newasp✀/admin/check.asp,行 15Dim AdminName, AdminPass, AdminID, ErrorStrDim SQLAdmin, RsAdmin, AdminRandomCodeErrorStr = "<li>确认身份失败!您没有使用当前功能的权限。<⼀li><li>如果有什么问题,请联系管理员。<⼀li>"If InStr(Newasp.ScriptName, "editor") > 0 Or InStr(Newasp.ScriptName, "admin_label") > 0 Or InStr(Newasp.ScriptName, "admin_collect") > 0 Then AdminPage = True✀If Newasp.CheckPost = False And AdminPage = False Then ✀ErrMsg = "<br><li><font color=red>您提交的数据不合法,为了系统安全,不允许直接输入地址访问本系统的后台管理页面。<⼀font><⼀li><li>因为你执行了非法操作,<a href=logout.asp target=_top class=showmeun>请您退出本系统!<⼀a><⼀li>" ✀Response.Redirect("showerr.asp?action=error&message=" & server.URLEncode(errmsg) & "") ✀Response.End
2026年09月23日 17:21
有1个网友回答
网友(1):

Dim AdminName, AdminPass, AdminID, ErrorStr
Dim SQLAdmin, RsAdmin, AdminRandomCode
--------------------------------------------------------------
你这里哪有定义过Newasp?如果是函数的话,要包含进来