ASP网站打开很慢 rs,conn都关闭清空了 别的还要怎么检测影响速度的原因呢
http://job.这个是写了一点点的简易招聘网站
页面里的rs,conn我全都关闭清空了
查询时，也只是查询用到的字段已经用到的数量，可是刚上传到空间测试时，打开速度却是很慢。。
应该怎样检测打开缓慢的原因呢，哪位朋友指点下谢谢
附：首页代码
程序代码：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 木业人才网｜木业人才交流中心</TITLE>
<META NAME="Author" CONTENT="QQ:626549">
<META NAME="Keywords" CONTENT="人才网、木业人才、木业招聘、职场资讯">
<META NAME="Description" CONTENT="最新的木业人才、木业招聘信息、便捷的HR助手资料、丰富实用的职场资讯... job.密度人才网，你值得关注..">
<meta name="google-site-verification" content="rjkS1-SytMgFbzVU2xQdIBWfxJd39ddeNo_Ri_TmvCc" />
<link rel="stylesheet" type="text/css" href="css/index.css" />
<link rel="stylesheet" type="text/css" href="css/a.css" />
</HEAD>
<BODY>
<div id="container">
<div id="masthead"><img src="images/log.gif" /></div>
<div id="top">
<div class="left">
<h6 style="background:url(images/bg_greens.gif) repeat-x;">会 员 登 陆</h6><!-- style=";" -->
<div>
<form name="form" method="post" action="ck_login.asp" />
<p>用户名：<input type="text" name="user" size="16"/></p>
密  码：<input type="password" name="pwd" size="16" />
<p><input type="radio" name="radio" checked value="1"/>个人会员    <input type="radio" name="radio" value="2"/>企业会员</p>
</form>
<img src="images/landing.gif" onclick="bt_sub()" />   <img src="images/register.gif" onclick="bt_reg()"/>
</div></div>
<div class="right">
<h1>
<a href="">首页</a> | <a href="">木业人才</a> | <a href="">木业招聘</a> | <a href="">招聘会</a> | <a href="">人才市场</a> | <a href="news/">职场资讯</a> | <a href="">HR助手</a> | <a href="">联系我们</a>
</h1>
<div>
<!-- #include file="mdbbates/conn.asp" -->
全国各地:<select name="city">
<%
Dim rs,sql,str_city
Set rs=server.CreateObject("adodb.recordset")
sql="select city from city"
rs.open sql,conn,1,1
rs.movefirst
While not rs.eof
%>
<option><%=rs("city")%></option>
<%
str_city=str_city&"<a href="""""">"&rs("city")&"</a> | "&vbcrlf
rs.movenext
Wend
%>
</select>
  <input type="text" name="rsearch" >
<input type="radio" checked name="radio2" />求职 <input type="radio" name="radio2" />招聘  
<input type="submit" name="bt_sub2" value=" 搜 索 " />
<div style="width:22px;float:left;height:60px;">地区招聘</div>
<div style="width:520px;line-height:60px;line-height:18px;">
<%
response.write str_city
rs.close
Set rs=nothing
%>
</div>
<div style="clear:both;padding:0;"></div>
</div></div>
<div class="ad">
<img src="ad/mdb.gif" /> <img src="ad/mcxh.gif" /> <img src="ad/gjlyj.gif" /> <img src="ad/gjmcjy.gif" /> <img src="ad/lky.gif" /> <img src="ad/mylt.gif" /> <img src="ad/592home.gif" /> <img src="ad/jix.gif" /> <img src="ad/dgmy.gif" /> <img src="ad/mdb.gif" /> <img src="ad/mcxh.gif" /> <img src="ad/gjlyj.gif" /> <img src="ad/gjmcjy.gif" /> <img src="ad/lky.gif" /> <img src="ad/mylt.gif" /> <img src="ad/592home.gif" />
</div>
</div>
<div id="sidebar">
<h6>企业推荐</h6>
<div>
<ul>
<%
Set rs_co_li=conn.execute("select top 6 co,co_id from co_info order by id desc")
rs_co_li.movefirst
Do Until rs_co_li.eof
%>
<li><a href="co/co_side.asp?id=<%=rs_co_li("co_id")%>" title="<%=rs_co_li("co")%>"><%=rs_co_li("co")%></a></li>
<%
rs_co_li.movenext
Loop
rs_co_li.close
Set rs_co_li=Nothing
%>
</ul>
<span class="bt_more"><a href="#">更多</a></span>
</div>
<h6>人才推荐</h6>
<div></div>
<h6>职场资讯</h6>
<div>
<ul>
<!-- #include file="mdbbates/news.asp" -->
<%
Dim rs2,sql2
Set rs2=server.CreateObject("adodb.recordset")
sql2="select top 6 id,tit from news where state=true and type='职场资讯' order by time desc"
rs2.open sql2,conn2,1,1
Do Until rs2.eof
%>
<li><a href="news/?id=<%=rs2("id")%>" title="<%=rs2("tit")%>"><%=rs2("tit")%></a></li>
<%
rs2.movenext
Loop
rs2.close
Set rs2=Nothing
%>
</ul>
<span class="bt_more"><a href="#">更多</a></span>
</div>
<h6>面试指南</h6>
<div>
<ul>
<%
Dim rs3,sql3
Set rs3=server.CreateObject("adodb.recordset")
sql3="select top 6 id,tit from news where state=true and type='面试指南' order by time desc"
rs3.open sql3,conn2,1,1
rs3.movefirst
Do Until rs3.eof
%>
<li><a href="news/?id=<%=rs3("id")%>" title="<%=rs3("tit")%>"><%=rs3("tit")%></a></li>
<%
rs3.movenext
Loop
rs3.close
Set rs3=Nothing
%>
</ul>
<span class="bt_more"><a href="#">更多</a></span>
</div>
</div>
<div id="content">
<h3>木业招聘</h3>
<div>
<table>
<tr>
<th>公 司 名 称</th>
<th>招 聘 职 位</th>
<th>城 市</th>
<th>日 期</th>
</tr>
<%
Dim rs_co,sql_co
Set rs_co=server.CreateObject("adodb.recordset")
sql_co="select co_info.co,co_recruit.job,co_recruit.city,co_recruit.times,co_info.co_id from co,co_info,co_recruit where co.id=co_info.co_id and co.id=co_recruit.co_id order by co_recruit.id desc;"
rs_co.open sql_co,conn,1,1
rs_co.movefirst
Do Until rs_co.eof
%>
<tr>
<td><a href="co/co_side.asp?id=<%=rs_co("co_id")%>" title="<%=rs_co("co")%>"><%=rs_co("co")%></a></td>
<td><%=rs_co("job")%></td>
<td><%=rs_co("city")%></td>
<td><%=FormatDateTime(rs_co("times"),1)%></td>
</tr>
<%
rs_co.movenext
Loop
rs_co.close
Set rs_co=Nothing
%>
</table>
</div>
<h3>木业人才</h3>
<div>
<table>
<tr>
<th>姓名</th>
<th>性别</th>
<th>学历</th>
<th>专业</th>
<th>所在地</th>
<th>日期</th>
</tr>
<tr>
<td>1</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td>2</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td>3</td>
</tr>
</table>
</div>
</div>
<div id="footer">
<h5>[ 会员服务 ] - [ 支付方式 ] - [ 你问我答 ] - [ 联系方式 ] - [ 诚聘英才 ] - [ 友情链接 ] - [ 在线论坛 ]</h5>
Copyright©2008-2011 rc. job. Inc. All Rights Reserved<br />
服务热线：021-66026219 66026219(传真) 13501964719<br />
版权所有：中国密度板门户
</div>
</div>
</BODY>
<%
conn.close
Set conn=Nothing
%>
</HTML>
<script type="text/javascript" language="javascript" src="css/index.js"></script>[ 本帖最后由 mgmt_asp 于 2009-11-23 17:27 编辑 ]
