该页上的脚本造成internet explorer运行速度减慢，如果继续运行，您的计算机将变得更慢，是否取消该脚本

<!--#include file="conn.asp" -->
<div style="float:left;position:relative;left:730px;top:200px;height:40px;width:150px;">
        <table width="200" cellpadding="0" cellspacing="0" bordercolor="0" height="100" bgcolor="#FF9900">
          <tr>     
      <td height="20" align="center">抽号结果</td>
          </tr>
          <tr> 
            <td id='tdt' align="center" height="60" style="color:red;font-size:40px;"></td>
          </tr>
        </table>
</div>
<%
renshu=46
dim n(1000),p(1000),nhouse,nid
'response.write request("xyid")
if request("a")="o" then
set rs1=server.CreateObject("adodb.Recordset")SQL11 = "SELECT * FROM house where houseid='"&request("houseid")&"'"
rs1.Open SQL11,conn,1,3
'rs1("ok")="Yes"
set rs111=server.CreateObject("adodb.Recordset")if request.form("black")="Yes" then
SQL111 = "SELECT * FROM list where black='Yes' and done='No'"
else
SQL111 = "SELECT * FROM list where id="&request.form("xyid")
end if
Rs111.Open Sql111,conn,1,3
rs1("houseownerid")=rs111("id")
rs1("houseownername")=rs111("name")
rs1("ok")="Yes"
rs1("houseownerfrom")=rs111("from")
rs111("done")="Yes"
rs111.update
rs111.close
set rs111=nothing
%>
<script>
//document.all.xyid.value="<%=rs1("houseownerid")%>";
tdt.innerHTML="<%=rs1("housename")%><br><%=rs1("houseownername")%>";
</script>
<%
rs1.update
rs1.close
set rs1=nothing
end ifset rs1=server.CreateObject("adodb.Recordset")
SQL1 = "SELECT * FROM house where ok='No' order by floor asc"
Rs1.Open Sql1,conn,1,1
if not rs1.eof then
nhouse=rs1("housename")
nid=rs1("houseid")
else
nhouse="全部抽完"
nid="9999"
end if
rs1.close
set rs1=nothingset rs=server.CreateObject("adodb.Recordset")
SQL = "SELECT * FROM list where black='No' and done='No'"
Rs.Open Sql,conn,1,1
i=0
do while not rs.eof
n(i)=rs("name")
p(i)=rs("id")
rs.movenext
i=i+1
loop
rs.close
set rs=nothingfor jj=0 to renshu
if p(jj)="" then 
uboundp=jj-1
exit for
end if
next
%>
<script type="text/javascript">
var jsp=new Array();
<%
for j=0 to uboundp
%>
jsp[<%=j%>]='<%=p(j)%>';
<%
next
%>
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>有奖上机系统</title>
<link rel="stylesheet" type="text/css" href="css/style.css">
<SCRIPT LANGUAGE="JavaScript"> 
<!-- 
function CHECKKEY(){ 
//if (event.keyCode == 112 && event.ctrlKey) 
if (event.keyCode == 113) 
{ 
startrnd();
//F1-F8键值分别是112-119;
} 
if (event.keyCode == 115) 
{ 
document.cq.submit();
} 
if (event.keyCode == 117) 
{ 
document.all.black.value='Yes';
document.cq.submit();
} 
} 
//--> 
</SCRIPT>
<script language="JavaScript">
<!--var TempNumber=new Array();
var countid,oknumber,jsppp;countid=<%=uboundp%>rnd.today=new Date();
rnd.seed=rnd.today.getTime();
function rnd()
{
   rnd.seed = (rnd.seed*9301+49297) % 233280;
   return rnd.seed/(233280.0);
};
function rand(number)
{
   return Math.ceil(rnd()*number);
};
function init()
{
   var i;
   for (i=0;i<countid-1;i++)
   {
      TempNumber[i]=0;
   }
};
function startrnd()
{
document.getElementById( 's').disabled=true;
document.getElementById( 't').disabled=false;
//document.all.s.style.disabled=ture;
//document.all.t.style.display='block';
   var i,j,k;   j=rand(countid);
   k=0;   for (i=0;i<countid-1;i++)
   {
      if (TempNumber[i]==j)
      {
         k=1;
      }
   }   if (k==0)
   {
      oknumber=j;
   }
   jsppp=parseInt(rand(countid));
   document.forms[0].elements[0].value=jsp[jsppp];
   timer1=setTimeout("startrnd()",5);
};function stoprnd()
{
document.getElementById( 't').disabled=true;
document.getElementById( 's').disabled=false;
   var i;
   clearTimeout(timer1)   for (i=0;i<countid-1;i++)
   {
      if (TempNumber[i]==0)
      {
         TempNumber[i]=oknumber;
         break;
      }
   }
   //document.forms[0].elements[0].value=jsp[parseInt(oknumber)];
   //alert (document.all.xyid.value);
   document.cq.submit();
   //window.location.href="index.asp?a=o&houseid="+document.all.houseid.value+"&xyid="+document.all.xyid.value;
}
document.onkeydown=stoprnd
function click() {
if (event.button==2) {
document.all.black.value='Yes';
document.cq.submit();
 }}
document.onmousedown=click
//-->
</script>
</head>
<%%>
<body onLoad="init()" background="image/bg.jpg" ONKEYDOWN="CHECKKEY()" oncontextmenu="return false"> <table width="900" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="right" width="402"><img border="0" src="image/top.gif" width="300" height="70"></td>
    <td width="498">&nbsp;</td>
  </tr>
</table>
<form method="POST" name="cq" action="index.asp">
  <table width="900" border="0" cellspacing="0" cellpadding="0" height="114" align="center">
    <tr> 
      <td height="114" align="center">&nbsp; </td>
      <td width="502" height="114" align="center" valign="middle"> 
        <input id="xyid" name="xyid"  type=text style="border-style:dotted; border-width:1; background-color:#99CCCC;color:#FF0000; height:100;font-size:70pt; font-family:幼圆" value="<%if nhouse<>"全部抽完" then response.write "抽取"%><%=nhouse%>" size=11 maxlength=11>
        <input type=hidden name="houseid" value="<%=nid%>">
        <input type=hidden name="a" value="o"><input type=hidden name="black" value="No">
      </td>
      <td width="100" height="114" align="center"> 
        <input type=button id="s" value="<%if nhouse="全部抽完" then response.write "全部抽完" else response.write "开始抽号" end if%>" <%if nhouse="全部抽完" then response.write "disabled"%> onClick="startrnd()" style="color: #008080; border: 3px double #FFFF00" name="button">
        <br>
        <input type=button id="t" value="停止抽号" onClick="stoprnd()" disabled style="color: #008080; border: 3px double #00FF00" name="button">
<input type=button id="r" value="刷新页面" onClick="window.location.href='index.asp';" style="color: #008080; border: 3px double #00FF00" name="button">
      </td>
      <td width="502" height="114" align="center">
      </td>
    </tr>
  </table>
</form>  
<table width="98%" height="152" border="0" style="border:#ccc 1px dashed;width:98%" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr valign="middle"> 
    <td height="20" align="center" width="33%"><b><font size="6" color="#FF0000">抽号结果</font></b></td>
  </tr>
  <tr> 
    <td height="136" align="center" valign="top" width="33%"> 

<%
  set rs1=server.CreateObject("adodb.Recordset")
SQL1 = "SELECT * FROM house where houseownername<>'' and ok='yes' order by floor asc"
Rs1.Open Sql1,conn,1,1
do while not rs1.eof
  %>
<div style="width:310px;float:left;border:1px dashed #ccc;margin:5px;">楼号:<%=rs1("floor")%> 部门:<%=rs1("housename")%> 获奖姓名：<%=rs1("houseownername")%></div>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
  %>
    </td>
  </tr>
</table>
</body>
</html>
代码如上，麻烦哪位高手指点一下是不是出现死循环呀！！！！！！！！