图片中类似旁马灯的效果 我拿 flash可以做出来 但是要是真正用到网页中比较麻烦 因为不可能 每有个图片就在做个 flash 所以我想请教一下 如何作出 下面图片变换效果 而且 每次只要把图片上传网站 图片就能自动更新呢？  不知道我说的是否够明白 希望得到指教 为盼！！

你用flash也可以啊，用as调用一个目录下的图片就可以了！
平常的网页是用用javascript或者是vbscript来实现的

下面这段是中国教程网上的你参考一下

复制内容到剪贴板

代码:

<SCRIPT language="VBScript">
Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr
FileList = "http://www.jcwcn.com/Files01/BeyondPic/2006-6/8/1_IMGCZ1IMFijw.jpg,http://www.jcwcn.com/Files01/BeyondPic/2006-

6/8/1_vOFNyFwXCRYa.jpg,http://www.jcwcn.com/Files01/BeyondPic/2006-

6/8/1_lbJW15hSyZf6.jpg,http://www.jcwcn.com/Files01/BeyondPic/2006-

6/8/1_5A8YnJzZrk5H.jpg,http://www.jcwcn.com/Files01/BeyondPic/2006-

6/3/0652921562463493.jpg,http://www.jcwcn.com/Files01/BeyondPic/2006-6/3/0652921514183290.jpg"
LinkList =

"http://www.jcwcn.com/html/Coreldraw/14_03_02_20.htm,http://www.jcwcn.com/html/PhotoShopImageReady/11_38_05_624.htm,http://ww

w.jcwcn.com/html/PhotoShopImageReady/11_14_02_558.htm,http://www.jcwcn.com/html/PhotoShopImageReady/10_47_37_947.htm,http://w

ww.jcwcn.com/html/maya/09_27_38_757.htm,http://www.jcwcn.com/html/maya/09_27_38_342.htm"
TxtList = "<a  href=http://www.jcwcn.com/html/Coreldraw/14_03_02_20.htm  target=_blank>CorelDraw&nbsp;视频教程</a>,<a  

href=http://www.jcwcn.com/html/PhotoShopImageReady/11_38_05_624.htm  target=_blank>用两个水果做酷酷效果图</a>,<a  

href=http://www.jcwcn.com/html/PhotoShopImageReady/11_14_02_558.htm  target=_blank>photoshop快速打造极酷光效</a>,<a  

href=http://www.jcwcn.com/html/PhotoShopImageReady/10_47_37_947.htm  target=_blank>菜鸟学飞:打造转转风车动画</a>,<a  

href=http://www.jcwcn.com/html/maya/09_27_38_757.htm  target=_blank>用Maya&nbsp;进行NURBS快艇设计</a>,<a  

href=http://www.jcwcn.com/html/maya/09_27_38_342.htm  target=_blank>Maya制作《湖南新闻联播》片头</a>"
FileListArr = Split(FileList,",")
LinkArr = Split(LinkList,",")
TxtListArr = Split(TxtList,",")
Dim CanPlay
CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5
Dim FilterStr
FilterStr = "RevealTrans(duration=2,transition=23)"
FilterStr = FilterStr + ";BlendTrans(duration=2)"
If CanPlay Then
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)"
Else
Msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。",64
End If
Dim FilterArr
FilterArr = Split(FilterStr,";")
Dim PlayImg_M
PlayImg_M = 5 * 1000  
Dim I
I = 1
Sub ChangeImg
Do While FileListArr(I)=""
I = I + 1
If I>UBound(FileListArr) Then I = 0
Loop
Dim J
If I>UBound(FileListArr) Then I = 0
Randomize
J = Int(Rnd * (UBound(FilterArr)+1))
Img.style.filter = FilterArr(J)
Img.filters(0).Apply
Img.Src = FileListArr(I)
Img.filters(0).play
Link.Href = LinkArr(I)
I = I + 1
If I>UBound(FileListArr) Then I = 0
TempImg.Src = FileListArr(I)
TempLink.Href = LinkArr(I)
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
End Sub
</SCRIPT><TABLE WIDTH="100%" height="100%" BORDER="0" CELLSPACING="6" CELLPADDING="0"><TR ID="NoScript"><TD Align="Center"

Style="Color:White">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。

</TD></TR><TR Style="Display:none" ID="CanRunScript"><TD HEIGHT="100%" Align="Center" vAlign="Center"><a id="Link" "

target=_blank"><Img ID="Img"  Width="250" Height="168" Border="0" ></a></TD></TR><TR Style="Display:none"><TD><a id=TempLink

" target=_blank"><Img ID="TempImg" Border="0"></a></TD></TR></TABLE>
<Script Language="VBScript">
NoScript.Style.Display = "none"
CanRunScript.Style.Display = ""
Img.Src = FileListArr(0)
Link.Href = LinkArr(0)
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
</Script>

前面声明的两个变量FileList，LinkList一个是参入幻灯的图片路径一个是连接

寅生大哥就是牛啊

能不能想上面的图片一样　在下面出现　１　２　３　４　点上面的数字响应出现图片呢