轮显图片[动态读取图片数据]代码

来源：互联网发布：苹果远程不了windows 编辑：程序博客网时间：2024/05/22 05:54

因为项目需要，所以去找了下轮显图片的代码。网上很多，简单的修改了下，恩可以显示图片。但是问题来了，当没有数据的时候会出现页面显示出现问题。后来才发现是我对数据库有没有数据进行判断的时候出现了问题。居然连最基本的顺序执行都给忘记了。所以后来只要改动下代码的位置就OK了。贴出来代码积累点经验。学习asp还是有很长的路要走的。

代码段1. js+flash搞定。

pathlevel="../"

<% -----------------数据库连接

'幻灯片新闻

sql="select top 5 * from [图表专区] where 属于=5 and 类别=1 order by 编号 desc"

set rs=server.createobject("adodb.recordset")

rs.open sql,cn,1,1

if not rs.eof then -------------------读取数据库内容

-----------------下面是对读取的内容进行处理

k=1

Num_total=rs.recordcount

for i=1 to 5

if i>Num_total then exit for

if i=1 then

imgUrl11=rs("图片")

if len(rs("标题"))>=18 then

imgtext11= left(rs("标题"),18)&"..."

else

imgtext11=rs("标题")

end if

imgLink11=rs("图片")

end if

if i=2 then

imgUrl22=rs("图片")

if len(rs("标题"))>=18 then

imgtext22= left(rs("标题"),18)&"..."

else

imgtext22=rs("标题")

end if

imgLink22=rs("图片")

end if

if i=3 then

imgUrl33=rs("图片")

if len(rs("标题"))>=18 then

imgtext33= left(rs("标题"),18)&"..."

else

imgtext33=rs("标题")

end if

imgLink33=rs("图片")

end if

if i=4 then

imgUrl44=rs("图片")

if len(rs("标题"))>=18 then

imgtext44= left(rs("标题"),18)&"..."

else

imgtext44=rs("标题")

end if

imgLink44=rs("图片")

end if

if i=5 then

imgUrl55=rs("图片")

if len(rs("标题"))>=18 then

imgtext55= left(rs("标题"),18)&"..."

else

imgtext55=rs("标题")

end if

imgLink55=rs("图片")

end if

rs.movenext

k=k+1

----------------有数据的时候调用flash显示图片

imgUrl1="<%=imgUrl11%>";

imgtext1="<%=imgtext11%>"

imgLink1=escape("<%=imgLink11%>");

imgUrl2="<%=imgUrl22%>";

imgtext2="<%=imgtext22%>"

imgLink2=escape("<%=imgLink22%>");

imgUrl3="<%=imgUrl33%>";

imgtext3="<%=imgtext33%>"

imgLink3=escape("<%=imgLink33%>");

imgUrl4="<%=imgUrl44%>";

imgtext4="<%=imgtext44%>"

imgLink4=escape("<%=imgLink44%>");

imgUrl5="<%=imgUrl55%>";

imgtext5="<%=imgtext55%>"

imgLink5=escape("<%=imgLink55%>");

var focus_width=246

var focus_height=142

var text_height=15

var swf_height = focus_height+text_height

<%if Num_total=1 then%>

var pics=imgUrl1

var links=imgLink1

var texts=imgtext1

<%elseif Num_total=2 then%>

var pics=imgUrl1+"|"+imgUrl2

var links=imgLink1+"|"+imgLink2

var texts=imgtext1+"|"+imgtext2

<%elseif Num_total=3 then%>

var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3

var links=imgLink1+"|"+imgLink2+"|"+imgLink3

var texts=imgtext1+"|"+imgtext2+"|"+imgtext3

<%elseif Num_total=4 then%>

var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4

var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4

var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4

<%elseif Num_total=5 then%>

var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5

var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5

var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4+"|"+imgtext5

<%end if%>

document.write('<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="'+ focus_width +'" height="'+ swf_height +'">');

document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');

document.write('<param name="menu" value="false"><param name=wmode value="opaque">');

document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');

document.write('<embed src="pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');

</script>

</span>

</a>

----------------------没有数据直接输出

else

response.Write "暂时没有数据！"

end if

把上面的文件保存在一个文件show.asp内在需要的地方直接调用就可以了。。

这样就不会出现页面显示混乱的问题了。。。需要一个显示图片的flash。

下面贴一个js+div 显示的。

pathlevel="../"

<!--

function SlidePic(ID) {

this.ID=ID;

this.Width=0;

this.Height=0;

this.TimeOut=5000;

this.Effect=23;

this.TitleLen=0;

this.PicNum=-1;

this.Img=null;

this.Url=null;

this.Title=null;

this.AllPic=new Array();

this.Add=AddSlidePic;

this.Show=ShowSlidePic;

this.LoopShow=LoopShowSlidePic;

}

function NewSlide() {

this.ImgUrl="";

this.LinkUrl="";

this.Title="";

}

function AddSlidePic(SP) {

this.AllPic[this.AllPic.length] = SP;

}

function ShowSlidePic() {

if(this.AllPic[0] == null) return false;

document.write('<div align="center"><a id="Url' + this.ID + '" href="" target=_blank><img id="Img' + this.ID + '" style="width:' + this.Width + '; height:' + this.Height + '; filter: revealTrans(duration=2,transition=23);" src="javascript:null" border="0"></a>');

if(this.TitleLen != 0) document.write("<br><Div id='Title" + this.ID + "'></Div></div>");

this.Img = document.getElementById("Img" + this.ID);

this.Url = document.getElementById("Url" + this.ID);

this.Title = document.getElementById("Title" + this.ID);

this.LoopShow();

}

function LoopShowSlidePic() {

if(this.PicNum<this.AllPic.length-1) this.PicNum++ ;

else this.PicNum=0;

this.Img.filters.revealTrans.Transition=this.Effect;

this.Img.filters.revealTrans.apply();

this.Img.src=this.AllPic[this.PicNum].ImgUrl;

this.Img.filters.revealTrans.play();

this.Url.href=this.AllPic[this.PicNum].LinkUrl;

if(this.Title) this.Title.innerHTML='<a href="'+this.AllPic[this.PicNum].LinkUrl+'" >'+this.AllPic[this.PicNum].Title+'</a>';

this.Img.timer=setTimeout(this.ID+".LoopShow()",this.TimeOut);

}

var SlidePic = new SlidePic("SlidePic");

SlidePic.Width = 150; //图片宽度

SlidePic.Height = 120; //图片高度

SlidePic.TimeOut = 5000; //延迟时间

SlidePic.Effect = 23;

SlidePic.TitleLen = 1;

'幻灯片新闻

sql="select top 3 * from 图表专区 where 属于=16 and 类别=2 order by 编号 desc" //数据库字段

set rs=server.createobject("adodb.recordset")

rs.open sql,cn,1,1

if not rs.eof then

k=1

Num_total=rs.recordcount

for i=1 to Num_total

var NewItem = new NewSlide();

NewItem.ImgUrl = '<%=rs("图片")%>'; //图片地址

NewItem.LinkUrl= '<%=rs("图片")%>'; //链接地址

NewItem.Title = '<span><%=rs("标题")%></span>'; //新闻标题

SlidePic.Add(NewItem);

rs.movenext

k=k+1

'loop

else

response.write "暂无图片新闻"

end if

SlidePic.Show();

//-->

</Script>

这个也是保存为一个文件，在需要的时候直接调用就OK啦。。。