新微赢技术网

标题: 一个asp问题，急，急，急啊。 [打印本页]

作者: 林风 时间: 2008-12-20 11:00
标题: 一个asp问题，急，急，急啊。

<SCRIPT>var NowFrame = 1;var MaxFrame = 5;var bStart = 0;function fnToggle(){var next = NowFrame + 1;if(next == MaxFrame+1) {NowFrame = MaxFrame;next = 1;}if(bStart == 0){bStart = 1;setTimeout('fnToggle()', 2000);return;}else{oTransContainer.filters[0].Apply();document.all['oDIV'+next].style.display = "";document.all['oDIV'+NowFrame].style.display = "none";oTransContainer.filters[0].Play(duration=2);if(NowFrame == MaxFrame){NowFrame = 1;}else{NowFrame++;}} setTimeout('fnToggle()', 6000);}fnToggle();</SCRIPT>

<DIV id=oTransContainer style="FILTER: progidXImageTransform.Microsoft.Wipe(GradientSize=1.0,wipeStyle=0, motion='forward'); WIDTH: 300px; HEIGHT: 50px">
<%
set rs=server.CreateObject("ADODB.RecordSet"
sql="select Top 5 * from Article order by UpdateTime desc"
rs.Open sql,conn,1,1
%>
<%
do while not rs.eof
%>
<table width="300" height="50" border="0" cellpadding="0" cellspacing="0" id=oDIV<%=i%> style="" <% else %> style="DISPLAY: none" <% end if %>>
<tr>
<td><%if len(trim(rs("Title"))>24 then
response.write left(trim(rs("Title"),24)
else
response.write trim(rs("Title")
end if%></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
%>
</div>

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)