一个仿flash的，但为什么只能调用一次 - ASP技术论坛

dangdang_198

等　级：新手上路
帖　子：85
专家分：0
注　册：2006-4-17

楼主

问题点数：0 回复次数：5

一个仿flash的，但为什么只能调用一次

其实是个仿flash的。就是一张一张的图片循环出现，一般大家都是用flash做的，下面是俺的代码，他的效果是把第一张图片可以显示出来，但就不动了

<%
sql="select * from table1 order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,3
rs.movefirst
i=0
%>
<script language="javascript">
function play()
{
<%
i=i+1
if i=6 then
i=0
rs.movefirst
end if
pic=rs("pic")
url=rs("url")
alt=rs("alt")
rs.movenext
%>
}
</script>

<body onLoad="javascript:return setInterval('play()',1000);">
<table width="100%" border="5" align="center" cellpadding=0 cellspacing=0 bordercolorlight="#73B300" bordercolordark="#C5FF59" bgcolor="#73B300">
<tr>
<td align=middle
height=191> <table cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<td height="191" align="center" bgcolor="#000000"><a href="<%=url%>"><img src=<%=pic%> alt=<%=alt%> name=imgInit width=240 height=190 border=0 style="FILTER: revealTrans(duration=2,transition=120);border-color:white;color:#ffffff"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#666666" align="center"></td>
</tr>
<tr>
<td height=30 align="center" bgcolor="#609300"><a href="goUrl()">
<strong><font color="#FFFFFF">
<div id="myou" align="center"></div>
</font></strong> </a></td>
</tr>
</table>
</body>

搜索更多相关主题的帖子: flash　

2006-06-28 17:12

dangdang_198

等　级：新手上路
帖　子：85
专家分：0
注　册：2006-4-17

第 3 楼

得分:0

楼上说的很有道理，但小弟我不知道怎么改了，快晕死了，其实上面的这个，俺也是从网上找的，但做了一些改动，他原来的也不行啊！谁能帮我看看啊。下面的原来的代码：
<%sub pic(id)
sql="select * from tv where pdao="&id
rs.open sql,conn,1,1
num=rs.recordcount
dim pic(5,2)
for i=0 to num-1
pic(i,0)=rs("img")
pic(i,1)=rs("link")
pic(i,2)=rs("title")
rs.movenext
next
rs.close%>
<script language=JavaScript>
<!--
var imgUrl=new Array();
var imgLink=new Array();
var tex=new Array();
var adNum=0;
<%for i=1 to num%>
imgUrl[<%=i%>]="<%=pic(i-1,0)%>";
imgLink[<%=i%>]="<%=pic(i-1,1)%>";
tex[<%=i%>]="<%=pic(i-1,2)%>";
<%next%>
var imgPre=new Array();
var j=0;
for (i=1;i<=<%=num%>;i++) {
if( (imgUrl[i]!="") && (imgLink[i]!="") ) {
j++;
} else {
break;
}
}

function playTran(){
if (document.all){
document.imgInit.filters[0].play();
}
}

function nextAd(){
if(adNum<j)adNum++ ;
else adNum=1;

if (document.all){
document.imgInit.filters[0].Transition=26;
document.imgInit.filters[0].apply();
}
document.images.imgInit.src=imgUrl[adNum];
imgInit.title=(tex[adNum]);
myou.innerHTML=(tex[adNum]);
playTran();
theTimer=setTimeout("nextAd()", 6000);
}

function goUrl(){
jumpUrl=imgLink[adNum];
jumpTarget='_blank';
if (jumpUrl != ''){
if (jumpTarget != '')
window.open(jumpUrl,jumpTarget);
else
location.href=jumpUrl;
}
} -->
</script>
<%end sub%>
调用
<table width="100%" border="5" align="center" cellpadding=0 cellspacing=0 bordercolorlight="#73B300" bordercolordark="#C5FF59" bgcolor="#73B300">
<tr>
<td align=middle
height=191> <table cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<td height="191" align="center" bgcolor="#000000"><a href="javascript:goUrl()"><img src="javascript:nextAd()" alt=盖州特产 name=imgInit width=240 height=190 border=0 style="FILTER: revealTrans(duration=2,transition=120);border-color:white;color:#ffffff"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#666666" align="center"></td>
</tr>
<tr>
<td height=30 align="center" bgcolor="#609300"><a href="goUrl()">
<strong><font color="#FFFFFF">
<div id="myou" align="center"></div>
</font></strong> </a></td>
</tr>
</table>

欢迎加入技术群5725994

2006-06-29 09:48

dangdang_198

等　级：新手上路
帖　子：85
专家分：0
注　册：2006-4-17

第 5 楼

得分:0

自己顶到前面去！

欢迎加入技术群5725994

2006-06-30 15:24