调用数据库图片 JS 显示问题

现在循环显示6个图片 我现在没有限制 为什么显示6个？？



<script language="JavaScript">
<!--
function objSP_Article() {this.ImgUrl=""; this.LinkUrl=""; this.Title="";}
function SlidePic_Article(_id) {this.ID=_id; this.Width=0;this.Height=0; this.TimeOut=5000; this.Effect=23; this.TitleLen=0; this.PicNum=-1; this.Img=null; this.Url=null; this.Title=null; this.AllPic=new Array(); this.Add=SlidePic_Article_Add; this.Show=SlidePic_Article_Show; this.LoopShow=SlidePic_Article_LoopShow;}
function SlidePic_Article_Add(_SP) {this.AllPic[this.AllPic.length] = _SP;}
function SlidePic_Article_Show() {
if(this.AllPic[0] == null) return false;
document.write("<div align='left'><a id='Url_" + this.ID + "' target='_blank' href='' ><img id='Img_" + this.ID + "' style='width:" + this.Width + "; height:" + this.Height + "; filter: revealTrans(duration=2,transition=23);' src='javascript:null' border='0'></a>");
if(this.TitleLen != 0) document.write("<br><span id='Title_" + this.ID + "'></span></div>");
this.Img = document.getElementById("Img_" + this.ID);
this.Url = document.getElementById("Url_" + this.ID);
this.Title = document.getElementById("Title_" + this.ID);
this.LoopShow();
}
function SlidePic_Article_LoopShow() {
if(this.PicNum<this.AllPic.length-1) this.PicNum++ ;
else this.PicNum=0;
this.Img.filters.revealTrans.Transition=this.Effect;
this.Img.filters.revealTrans.apply();
this.Img.src=this.AllPic[this.PicNum].ImgUrl;
this.Img.filters.revealTrans.play();
this.Url.href=this.AllPic[this.PicNum].LinkUrl;
if(this.Title) this.Title.innerHTML="<a href="+this.AllPic[this.PicNum].LinkUrl+" target=_blank>"+this.AllPic[this.PicNum].Title+"</a>";
this.Img.timer=setTimeout(this.ID+".LoopShow()",this.TimeOut);
}
//-->
</script>
<script language=JavaScript>
var SlidePic_990 = new SlidePic_Article("SlidePic_990");
SlidePic_990.Width = 305;
SlidePic_990.Height = 220;
SlidePic_990.TimeOut = 5000;
SlidePic_990.Effect = 23;
SlidePic_990.TitleLen = 30;
</script>
<a href="3" target="_blank">
<%
sql1= "select * from new_pic where type='flash图片' and xs='1' "'这里自己写 下面的自己换下就行了
set rs1 =server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn
%>
<%


bb=0
do while not rs1.eof
if len(rs1("content"))>120 then
biaot= "<br>" & left(rs1("content"),120)&"…"
else
biaot=rs1("head")
end if'if len(rs("head"))>17 then


%>



<%
a="<script language=JavaScript>"& chr(10) &_
"var oSP = new objSP_Article();" & chr(10) &_
"oSP.ImgUrl = """&"newsimage/" & rs1("pic")&""";" & chr(10) &_
"oSP.LinkUrl = ""pic_big.asp?id="&rs1("gbookid")&"""; target=""_blank""" & chr(10) &_
"oSP.Title = """&biaot&"""" & chr(10) &_
"SlidePic_990.Add(oSP); " & chr(10) &_


"</script> "
%>

<span class="style1"><%=a%></span>
<%
rs1.movenext
bb=bb+1
loop
rs1.close
set rs1=nothing

%>
<script language=JavaScript>
SlidePic_990.Show();
//-->
</script>