ASP有东西不会,请大家来看看!
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'Advert'
/index_top.asp，行 37
添加文章后出现这个错误是为什么呢？
还望指教！
代码如下:
<script type="text/JavaScript" language="JavaScript" src="DT_inc/simp_trad.js"></script>
<script type="text/JavaScript" language="JavaScript">
function DT_Simp_Trad(){
document.body.innerHTML=document.body.innerHTML.s2t();
}
function DT_Trad_Simp(){
document.body.innerHTML=document.body.innerHTML.t2s();
}
</script>
<%
Dim RsChannelTop
Dim RsChannelTop_numRows
Set RsChannelTop = Server.CreateObject("ADODB.Recordset")
RsChannelTop.ActiveConnection = MM_connDB_STRING
RsChannelTop.Source = "SELECT * FROM tChannelTop ORDER BY fOrderID ASC"
RsChannelTop.CursorType = 0
RsChannelTop.CursorLocation = 2
RsChannelTop.LockType = 1
RsChannelTop.Open()
RsChannelTop_numRows = 0
%>
<%
Dim Repeat1__numRows 'FriendSite.asp 注释掉
Dim Repeat1__index 'FriendSite.asp 注释掉
Repeat1__numRows = -1
Repeat1__index = 0
RsChannelTop_numRows = RsChannelTop_numRows + Repeat1__numRows
%>
<TABLE width=765 border=0 align=center cellPadding=0 cellSpacing=0 background="images/dx1.gif">
<TR>
<TD width="200" height=80> <a href="<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>"><img src="<%=(RsSiteConfig.Fields.Item("fLogoUrl").Value)%>" width="180" height="60" border="0" title="<%=(RsSiteConfig.Fields.Item("fSiteTitle").Value)%>"></a></TD>
<TD><%Call Advert ("首页顶部Banner")%> 就是这里!
</TD>
参考答案:<%Call Advert ("首页顶部Banner")%>的意思是调用一个叫Advert（）的函数，看来你没有定义这个函数，所以出错。