图片自动切换的方式怎么改？

[aarongame]

我想问下，我用下面的代码做的图片自动切换效果，然后它来回切换的形式有很多种，就是切换的时候的效果，有时候是一下就闪过去了，有时候是慢慢拉过去的。
下面的代码中哪些是控制这个切换方式的？能改吗？我只想要那些切换速度快的，因为图片大，慢了太耽误时间了。还有里面的图片链接用的是link，能改成<a href></a>这样的不？
<div align="center">
<script type=text/javascript>
var pic_width=919; //图片宽度
var pic_height=188; //图片高度
var button_pos=4; //按扭位置 1左 2右 3上 4下
var stop_time=6000; //图片停留时间(1000为1秒钟)
var show_text=0; //是否显示文字标签 1显示 0不显示
var txtcolor="000000"; //文字色
var bgcolor="DDDDDD"; //背景色
var imag=new Array();
var link=new Array();
var text=new Array();
imag[1]="images/001.jpg";
link[1]="http://www.hongyechem.com/";
text[1]="标题 1";
imag[2]="images/002.jpg";
link[2]="http://www.hongyechem.com/";
text[2]="标题 2";
imag[3]="images/003.jpg";
link[3]="http://www.hongyechem.com/";
text[3]="标题 3";
//可编辑内容结束
var swf_height=show_text==1?pic_height+20:pic_height;
var pics="", links="", texts="";
for(var i=1; i<imag.length; i++){
pics=pics+("|"+imag[i]);
links=links+("|"+link[i]);
texts=texts+("|"+text[i]);
}
pics=pics.substring(1);
links=links.substring(1);
texts=texts.substring(1);
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cabversion=6,0,0,0" width="'+ pic_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="flash/focus.swf">');
document.write('<param name="quality" value="high"><param name="wmode" value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&pic_width='+pic_width+'&pic_height='+pic_height+'&show_text='+show_text+'&txtcolor='+txtcolor+'&bgcolor='+bgcolor+'&button_pos='+button_pos+'&stop_time='+stop_time+'">');
document.write('<embed src="flash/focus.swf" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&pic_width='+pic_width+'&pic_height='+pic_height+'&show_text='+show_text+'&txtcolor='+txtcolor+'&bgcolor='+bgcolor+'&button_pos='+button_pos+'&stop_time='+stop_time+'" quality="high" width="'+ pic_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
</script>
<br><br>
</div>

[sayfree]

发过一次了，再重发一次，。

<div>
 <%
 dim toppicrs,toppicsql
 dim p,ll,t
 set toppicrs=server.CreateObject("adodb.recordset")
 toppicsql="select top 6 id,title,D_picture from zj_message where  D_picture<>'' order by id desc"
 toppicrs.open toppicsql,conn,1,3
 do while not toppicrs.eof
 if p="" then
 p=toppicrs("D_picture")
 ll="../market/articles.asp?id="&toppicrs("id")
 t=toppicrs("title")
 else
 p=p&"|"&toppicrs("D_picture")
 ll=ll&"|"&"../market/articles.asp?id="&toppicrs("id")
 t=t&"|"&toppicrs("title") 
 end if
 toppicrs.movenext
 loop
 toppicrs.close
 set toppicrs=nothing
 %>
 
 <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="505" height="210"> 
 <param name="allowScriptAccess" value="sameDomain">
 <param name="movie" value="pixviewer.swf">
 <param name="quality" value="high">
 <param name="bgcolor" value="#ffffff">
 <param name="menu" value="false"><param name=wmode value="opaque">
 <param name="FlashVars" value="pics=<%=p%>&links=<%=ll%>&texts=<%=t%>&borderwidth=505&borderheight=210&textheight=0">
 <embed src="pixviewer.swf" wmode="opaque" FlashVars="pics=<%=p%>&links=<%=ll%>&texts=<%=t%>&borderwidth=505&borderheight=210&textheight=0" menu="true" bgcolor="#FBFBFB" quality="high" width="505" height="210" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />    
</object>
  </div>   <!--连动图片结束-->

[aarongame]

你说的好像和我问的没有啥关系吧？
你想让我换成用你的方法？

[mm91gg007]

<div>
<%
dim toppicrs,toppicsql
dim p,ll,t
set toppicrs=server.CreateObject("adodb.recordset")
toppicsql="select top 6 id,title,D_picture from zj_message where D_picture<>'' order by id desc"
toppicrs.open toppicsql,conn,1,3
do while not toppicrs.eof
if p="" then
p=toppicrs("D_picture")
ll="../market/articles.asp?id="&toppicrs("id")
t=toppicrs("title")
else
p=p&"|"&toppicrs("D_picture")
ll=ll&"|"&"../market/articles.asp?id="&toppicrs("id")
t=t&"|"&toppicrs("title")
end if
toppicrs.movenext
loop
toppicrs.close
set toppicrs=nothing
%>

<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="505" height="210">
<param name="allowScriptAccess" value="sameDomain">
<param name="movie" value="pixviewer.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#ffffff">
<param name="menu" value="false"><param name=wmode value="opaque">
<param name="FlashVars" value="pics=<%=p%>&links=<%=ll%>&texts=<%=t%>&borderwidth=505&borderheight=210&textheight=0">
<embed src="pixviewer.swf" wmode="opaque" FlashVars="pics=<%=p%>&links=<%=ll%>&texts=<%=t%>&borderwidth=505&borderheight=210&textheight=0" menu="true" bgcolor="#FBFBFB" quality="high" width="505" height="210" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
</div> <!--连动图片结束-->