龙山文化时期的陶器:Microsoft VBScript 运行时错误 错误 '800a000d'??

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 18:15:31
运行页面时出现以下错误，本人不太懂ASP，请专家指点下，10分奉送，3Q！

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'SafeStr'

/support/DocList.asp，行 4

代码如下：

<%
MyId=SafeStr(Request("Id")) 《——这就是第4行
if MyId="" or (not IsNumeric(MyId)) then
Conn.Close
Set Conn = Nothing
response.Write(GetAlert("文章读取出错,请稍后再试!"))
response.Write(GetDir("/Support"))
Response.end
end if
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open "select * from CustomerCenter Where MyId=" & MyId & " and Stat='1'",Conn,1,1
if Not(Rs.eof and Rs.bof) then
affichetop=Rs("affichetop")
affiche=Rs("affiche")
DocNum=Rs("DocNum")
STime=Rs("STime")
Rs.Close
else
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Write(GetAlert("文章读取出错,请稍后再试!"))
Response.Write(GetDir("/Support"))
Response.end
end if
%>

SafeStr这个子函数代码没加进来吧

SafeStr是子函数，找到此代码段

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)