类型不匹配: 'GoError'Microsoft VBScript 运行时错误 (0x800A000D)

来源:百度知道 编辑:UC知道 时间:2024/07/04 19:21:55
<!--#include file = "../admin/Startup.asp"-->
<%
Dim CoolSiteID
CoolSiteID=Trim(Request("CoolSiteID"))
If IsNumeric(CoolSiteID) = False Then
GoError "酷站ID参数错误,请不要试图破坏此系统。"
End If

Set oRs=oConn.Execute("Select C_ID From CoolSiteData Where C_ID="&CoolSiteID)
If oRs.Eof Then
GoError "无此酷站或已删除!"
End If

这里的 GoError 应该是你的一个自定义函数吧?看一下你的头文件<!--#include file = "../admin/Startup.asp"--> 是不是已经定义了此函数,如果没有或不会写或根本就用不到,那就改成:

Dim CoolSiteID
CoolSiteID=Trim(Request("CoolSiteID"))
If IsNumeric(CoolSiteID) = False Then
Response.Write("酷站ID参数错误,请不要试图破坏此系统。")
Response.End
End If

Set oRs=oConn.Execute("Select C_ID From CoolSiteData Where C_ID="&CoolSiteID)
If oRs.Eof Then
Response.Write("无此酷站或已删除!")
Response.End
End If