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>
  <div>

  <form name="form" method="post" action="ck_login.asp" />
  <p>用户名：<input type="text" name="user" size="16"/></p>
  密&nbsp&nbsp码：<input type="password" name="pwd" size="16" />
  <p><input type="radio" name="radio" checked value="1"/>个人会员&nbsp&nbsp&nbsp&nbsp<input type="radio" name="radio" value="2"/>企业会员</p>

  </form>
  <img src="images/landing.gif" onclick="bt_sub()" />&nbsp&nbsp&nbsp<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>
  
  全国各地:<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>
  &nbsp&nbsp<input type="text" name="rsearch" >
  <input type="radio" checked name="radio2" />求职   <input type="radio" name="radio2" />招聘&nbsp&nbsp
  <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>

<%
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&copy2008-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 编辑 ]

ASP网站打开很慢 rs,conn都关闭清空了 别的还要怎么检测影响速度的原因呢