flash五屏幻灯片

[segocnzhudan]

id=1下面有6张图片分别是pic2.....pic7,怎么让图片在imgUrl<%=i%>=" ";循环啊。哪位知道告诉下

[kaifadi]

<%
for i=2 to 7
"pic"&i '将获得pic2~pic7
next

[毛飞扬___It跑路男]

改改数据(sql语句)就可以了

<script language="JavaScript">
function flash(){
var interval_time=5 ;
var focus_width=203
var focus_height=145
var text_height=0
var text_mtop = 2;
var text_lm = 10;
var textmargin = text_mtop+"|"+text_lm;
var textcolor = "#2E5DB5|0xFF0000";
var text_align= 'left'; 
var swf_height = focus_height+text_height+text_mtop; 
var text_size = 14;
var borderStyle="1|0x000000|0";
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
 document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/hot_new.swf"> <param name="quality" value="high"><param name="Wmode" value="transparent">');
 document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
 document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'&textmargin='+textmargin+'&textcolor='+textcolor+'&borderstyle='+borderStyle+'&text_align='+text_align+'&interval_time='+interval_time+'&textsize='+text_size+'">');
 document.write('<embed src="images/hot_new.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'&textmargin='+textmargin+'&textcolor='+textcolor+'&borderstyle='+borderStyle+'&text_align='+text_align+'&interval_time='+interval_time+'&textsize='+text_size+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); 
 document.write('</object>');
 }

<% 

'幻灯片图片
SqlFlash="select Top 5 ID,Title,shoupic,showpic,lei from [tan_news] where   shoupic<>''and showpic='1' ORDER BY id desc"
Set RsFlash=Server.Createobject("Adodb.Recordset")
RsFlash.open SqlFlash,conn,1,1

if RsFlash.recordcount<>0 or err then 

 for i=1 to RsFlash.recordcount

%>
  imgUrl<%=i%>="<%=RsFlash("shoupic")%>";
  imgtext<%=i%>="<%if len(RsFlash("title"))>8 then 
  response.write left(RsFlash("title"),8)&"..."
   else response.write RsFlash("title") 
   end if%>";
  imgLink<%=i%>=escape("ShowArticle.asp?ID=<%=RsFlash("ID")%>&lei=<%=RsFlash("lei")%>");
<%

  RsFlash.movenext
 if RsFlash.eof or err then exit for
 next
 end if
%>
<%
select case  RsFlash.recordcount 

 case  1 
%>

 var pics=imgUrl1
  var links=imgLink1
 
   var texts=imgtext1
   <%
case  2 
%>
var pics=imgUrl1+"|"+imgUrl2

var links=imgLink1+"|"+imgLink2
 var texts=imgtext1+"|"+imgtext2
 <%
  case  3 
  %>
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3
 <%
  case  4 
  %> var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4
 <%case else %>
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4+"|"+imgtext5
<% end select %>
flash()
</script>
   <%   RsFlash.close
                       set RsFlash=nothing %>

[segocnzhudan]

<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open"select * from CompanyTbl where IsSh='0' and ComId =61",conn,1,1
if not rs1.eof then
k=1
Num_total=rs1.recordcount
for i=1 to 6
%>
imgUrl<%=i%>="<%=rs1("ComPic"&i+1)%>";
imgtext<%=i%>="<%if len(rs1("Companyname"))>=18 then response.write left(rs1("Companyname"),18)&"..." else response.write rs1("Companyname")%>"
imgLink<%=i%>=escape("");
<%
rs1.movenext
k=k+1
next
else
response.write "暂时没有数据！"
end if
%>
我就是这样写的啊，可是只循环到ComPic2就不往下循环了。不知道这是怎么回事