Microsoft VBScript runtime error '800a000d' 请高手看一下什么原因？
Microsoft VBScript runtime error '800a000d'Type mismatch: 'ConnectionDatabase'
/top.asp, line 74
top.asp错误页面：
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="top">
<tr>
<td><table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="280"><iframe style="width:280px; height:36px" src="/loginzt.asp" frameBorder="0" scrolling="no"></iframe></td>
<td width="478">
<div align="center"> 最新更新 地址：{$WebSiteUrl} </div></td>
<td width="202" align="right"><a onClick="this.style.behavior='url(#default#homepage)';this.setHomePage(document.location.href);" href="#">设为首页</a> | <a href="javascript:void(0);" onClick="window.external.AddFavorite(document.location.href,document.title)">加入收藏</a> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="top2">
<tr>
<td valign="top"><table width="950" border="0" align="center" cellpadding="0" cellspacing="0" class="top22">
<tr>
<td height="100" colspan="2" align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" align="center"><p><a href="/users/index.asp"><img src="images/hyzx.gif" width="115" height="27" border="0" /></a></p>
<p><a href="/users/index.asp?action=add"><img src="images/fbxx.gif" width="115" height="27" border="0" /></a></p></td>
<td align="center"><a href="/"><img src="/images/logo.gif" border="0" /></a></td>
<td width="200"> </td>
</tr>
</table></td>
</tr>
<tr>
<td width="726"><table border="0" align="right" cellpadding="0" cellspacing="0" class="search_and_addtask">
<tr>
<td class="search_box"><form style="margin:0px;" method="get" action="/search.asp" onSubmit="if(this.key.value==''||this.key.value=='请输入搜索的关键词！'){alert('请输入关键词!');return false;}">
<select name="cat" id="v4_search_select">
<option value="title" selected="true">标题</option>
<option value="xiangmu">服务项目</option>
<option value="content">详细内容</option>
</select>
<input type="text" class="v4_search_key" name="key" maxlength="40" value="请输入搜索的关键词！" onClick="if(this.value=='请输入搜索的关键词！'){this.value='';}" style="padding-left:4px;" />
<input type="submit" value="" class="v4_search_button" />
<input name="f" type="hidden" value="0" />
</form>
<script type="text/javascript">
jQuery("#v4_search_select").LeeSelect();
</script></td>
</tr>
</table></td>
<td width="224" align="right"><!--<a href="http://www. target="_blank"><img src="/images/xxq.gif" width="153" height="42" border="0" /></a>--> </td>
</tr>
<tr>
<td colspan="2" valign="middle"><img src="/images/fg.gif" width="1" height="5" /></td>
</tr>
<tr>
<td height="20" colspan="2" valign="middle"><MARQUEE scrollDelay=150 width=950 height=20 border="0" onmouseover=this.stop() onmouseout=this.start()><font color="#FF6600"><b>狼来*** 客户办理VIP成功请查收； Vxok*** 客户办理VIP成功请查收； 天堂*** 客户办理VIP成功请查收； LOV*** 客户办理VIP成功请查收； kkt*** 客户办理VIP成功请查收； yui*** 客户办理VIP成功请查收； 爱上小*** 客户办理VIP成功请查收； PKLL*** 客户办理VIP成功请查收； 无色*** 客户办理VIP成功请查收；</b></font>
</MARQUEE></td>
</tr>
<tr>
<td height="30" colspan="2" background="/images/yqts.gif">
<div class="shell">
<div id="YQ1">
<dd><font color="#FF0000">先交保</font></dd>
<dd><font color="#FF00FF">先交保</font></dd>
<dd><font color="#0033FF">先交保</font></dd>
</div>
</div> </td>
</tr>
</table></td>
</tr>
</table>
<%
Dim Rs,SQL
Dim typeid,areaid,url,typeurl
areaid = request("areaid")
typeid = request("typeid")
typeurl = "typeid=" & typeid & "&"
If Not IsObject(Conn) Then ConnectionDatabase 《--此为74行代码--》
SQL = "select * from [NC_Sort] order by px asc "
Set Rs = Conn.execute(SQL)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="960" height="50" border="0" align="center" cellpadding="0" cellspacing="0" class="dhbg">
<tr>
<td width="10" valign="bottom"><img src="/images/nav_l_bg.gif" width="9" height="48" /></td>
<td valign="top"><table border="0" align="center" cellpadding="0" cellspacing="0" class="dhdjw">
<tr>
<td align="center" id="s999" class="dhdj"><a href="/">首 页</a></td>
<%
Do While rs.eof = False
%>
<td align="center" valign="bottom"><img src="/images/dhfg.gif" width="4" height="32" /></td>
<td align="center" id="s<%=rs("id")%>" class="dhdj"><a href="/class.asp?typeid=<%=rs("id")%>&areaid=<%=areaid%>"><%=rs("classname")%></a></td>
<%
rs.movenext
loop
%>
</tr>
</table></td>
<td width="9" valign="bottom"><img src="/images/nav_r_bg.gif" width="9" height="48" /></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="950" border="0" align="center" cellpadding="0" cellspacing="0" class="dq1">
<tr>
<td colspan="4" class="dq2"> <font color="#0066FF">热门城市入口：</font>
<a href="/class.asp?<%=typeurl%>areaid=1"><font color="#FF6600">北京</font></a>
<a href="/class.asp?<%=typeurl%>areaid=2"><font color="#FF6600">上海市</font></a>
<a href="/class.asp?<%=typeurl%>areaid=290"><font color="#FF6600">广州</font></a>
<a href="/class.asp?<%=typeurl%>areaid=301"><font color="#FF6600">深圳</font></a>
<a href="/class.asp?<%=typeurl%>areaid=227"><font color="#FF6600">武汉</font></a>
<a href="/class.asp?<%=typeurl%>areaid=172"><font color="#FF6600">南京</font></a>
<a href="/class.asp?<%=typeurl%>areaid=4"><font color="#FF6600">天津</font></a>
<a href="/class.asp?<%=typeurl%>areaid=186"><font color="#FF6600">杭州</font></a></td>
<td align="right" class="dq2"><a href="/"><font color="#0066FF">更多地区</font></a> </td>
</tr>
<tr>
<td align="center" class="dq3">东北华北</td>
<td align="center" class="dq3">华中华东</td>
<td align="center" class="dq3">华南</td>
<td align="center" class="dq3">西北西南</td>
<td align="center" class="dq4">港澳台海外</td>
</tr>
<tr>
<td valign="top" class="dq5"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=1">北京</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=4">天津</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=5">山东</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=6">河北</a></td>
</tr>
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=7">山西</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=8">内蒙古</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=9">辽宁省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=10">黑龙江</a></td>
</tr>
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=11">吉林省</a></td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
</table></td>
<td valign="top" class="dq5"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=2">上海市</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=12">江苏省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=13">浙江省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=14">福建省</a></td>
</tr>
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=15">河南省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=16">湖北省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=17">安徽省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=18">湖南省</a></td>
</tr>
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=19">江西省</a></td>
<td align="center"> </td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
</table></td>
<td valign="top" class="dq5"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=20">广东省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=21">广西自治区</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=31">海南省</a></td>
<td align="center"> </td>
</tr>
</table></td>
<td valign="top" class="dq5"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=3">重庆市</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=22">四川省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=23">云南省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=24">贵州省</a></td>
</tr>
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=25">陕西省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=26">甘肃省</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=27">新疆</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=28">宁夏</a></td>
</tr>
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=29">青海</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=30">西藏</a></td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
</table></td>
<td valign="top" class="dq6"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center"><a href="/class.asp?<%=typeurl%>areaid=446">香港</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=447">澳门</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=448">台湾</a></td>
<td align="center"><a href="/class.asp?<%=typeurl%>areaid=449">海外</a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
Rs.Close:Set Rs = Nothing
%>
<script type="text/javascript">
<!--
var typeid = '<%=typeid%>';
if (typeid=='')
{
document.getElementById('s999').className='dhdjok';
}
else
{
document.getElementById('s'+typeid).className='dhdjok';
}
//-->
</script>
<!---顶部分割线----------------------------------------------------------------------------------------------------->
