注册 登录
编程论坛 ASP技术论坛

请大家看看能不能帮这个程序改变一下。

小丁丁 发布于 2008-06-09 10:14, 567 次点击
这个是图片变换的效果,但是变换时只有一种效果。能不能让他多几种效果.

[size=5]<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<% dim sqlguanggao,rsguanggao
sqlguanggao="select * from adv"
Set rsguanggao= Server.CreateObject("ADODB.Recordset")
rsguanggao.open sqlguanggao,conn,1,1
pic1=rsguanggao("pic1")
pic2=rsguanggao("pic2")
pic3=rsguanggao("pic3")
pic4=rsguanggao("pic4")
pic1_lnk=rsguanggao("pic1_lnk")
pic2_lnk=rsguanggao("pic2_lnk")
pic3_lnk=rsguanggao("pic3_lnk")
pic4_lnk=rsguanggao("pic4_lnk")
tit1=rsguanggao("tit1")
tit2=rsguanggao("tit2")
tit3=rsguanggao("tit3")
tit4=rsguanggao("tit4")%>
<style type=text/css>
#divScroller1 {
    WIDTH: 554px;
    HEIGHT: 122px;
    OVERFLOW: hidden;
    POSITION: absolute;
    visbility: visible;
    
}
.dynPage {POSITION: absolute; TOP: 0px; VISIBILITY: hidden;}
</style>
<script language="JavaScript1.1">
<!--
var slidespeed=3000
var slideimages=new Array("<%=pic1%>","<%=pic2%>","<%=pic3%>","<%=pic4%>")
var slidelinks=new Array("<%=pic1_lnk%>","<%=pic2_lnk%>","<%=pic3_lnk%>","<%=pic4_lnk%>")

var imageholder=new Array()
var ie55=window.createPopup
for (i=0;i<slideimages.length;i++){
imageholder[i]=new Image()
imageholder[i].src=slideimages[i]
}

function gotoshow(){
window.location=slidelinks[whichlink]
}
//-->
</script>
<a href="javascript:gotoshow()"><img src="/img/200406301.jpg" title='华鼎科技' name="slide" border=0 style="filter:progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)"></a>
<script language="JavaScript1.1">
<!--
var whichlink=0
var whichimage=0
var pixeldelay=(ie55)? document.images.slide.filters[0].duration*1000 : 0
function slideit(){
if (!document.images) return
if (ie55) document.images.slide.filters[0].apply()
document.images.slide.src=imageholder[whichimage].src
if (ie55) document.images.slide.filters[0].play()
whichlink=whichimage
whichimage=(whichimage<slideimages.length-1)? whichimage+1 : 0
setTimeout("slideit()",slidespeed+pixeldelay)
}
slideit()
//-->
</script>
</table>
[/size]
5 回复
#2
multiple19022008-06-09 10:16
<img src="/img/200406301.jpg" title='华鼎科技' name="slide" border=0 style="filter:progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)">

关键就是这里了,自己查查IE的滤镜吧
#3
小丁丁2008-06-09 10:34
恩好的,我找找看谢谢.......
#4
abc009982008-06-09 10:50
www. 是个不错的视频教程。建议去看一下
#5
小丁丁2008-06-09 10:55
filter:progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)">
这里是换IE滤境效果,能不能多加几种效果呢?
#6
小丁丁2008-06-09 10:56
回复 4# abc00998 的帖子
谢谢,学习.....
1