分享
 
 
 

js和asp 显示数据库中图片

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

<table width="100%" border="0" align="center" cellspacing="0" cellpadding="0" style="TABLE-LAYOUT: fixed">

<%

sql="select top 4 * from Ad where checked=true "

rs.Open sql,conn,1,1

if not rs.eof then

n=0

while not rs.EOF

n=n+1

%>

<%=rs("AdSitePic")%>

<%

rs.MoveNext

wend

%>

<td width="100%" height="220">

<script language="JavaScript1.2">

var slideshow_width='200px' //SET SLIDESHOW WIDTH (set to largest image's width if multiple dimensions exist)

var slideshow_height='200px' //SET SLIDESHOW HEIGHT (set to largest image's height if multiple dimensions exist)

var pause=3000 //SET PAUSE BETWEEN SLIDE (2000=2 seconds)

var slidebgcolor="white"

var dropimages=new Array()

dropimages[0]="<img src="<%=rs("AdSitePic")%>" width="128" height="128">"

dropimages[1]="<img src="<%=rs("AdSitePic")%>" width="128" height="128">"

dropimages[2]="<img src="<%=rs("AdSitePic")%>" width="128" height="128">"

var droplinks=new Array()

droplinks[0]=www.airsend.com

droplinks[1]=www.sina.com

droplinks[2]=www.baidu.com

var preloadedimages=new Array()

for (p=0;p<dropimages.length;p++){

preloadedimages[p]=new Image()

preloadedimages[p].src=dropimages[p]

}

var ie4=document.all

var dom=document.getElementById

if (ie4||dom)

document.write('<div style="position:relative;width:'+slideshow_width+';height:'+slideshow_height+';overflow:hidden"><div id="canvas0" style="position:absolute;width:'+slideshow_width+';height:'+slideshow_height+';background-color:'+slidebgcolor+';left:-'+slideshow_width+'"></div><div id="canvas1" style="position:absolute;width:'+slideshow_width+';height:'+slideshow_height+';background-color:'+slidebgcolor+';left:-'+slideshow_width+'"></div></div>')

else

document.write('<a href="javascript:rotatelink()"><img name="defaultslide" src="'+dropimages[0]+'" border=0></a>')

var curpos=parseInt(slideshow_width)*(-1)

var degree=10

var curcanvas="canvas0"

var curimageindex=linkindex=0

var nextimageindex=1

||||||function movepic(){

if (curpos<0){

curpos=Math.min(curpos+degree,0)

tempobj.style.left=curpos+"px"

}

else{

clearInterval(dropslide)

nextcanvas=(curcanvas=="canvas0")? "canvas0" : "canvas1"

tempobj=ie4? eval("document.all."+nextcanvas) : document.getElementById(nextcanvas)

var slideimage='<img src="'+dropimages[curimageindex]+'" border=0>'

tempobj.innerHTML=(droplinks[curimageindex]!="")? '<a href="'+droplinks[curimageindex]+'">'+slideimage+'</a>' : slideimage

nextimageindex=(nextimageindex<dropimages.length-1)? nextimageindex+1 : 0

setTimeout("rotateimage()",pause)

}

}

function rotateimage(){

if (ie4||dom){

resetit(curcanvas)

var crossobj=tempobj=ie4? eval("document.all."+curcanvas) : document.getElementById(curcanvas)

crossobj.style.zIndex++

var temp='setInterval("movepic()",50)'

dropslide=eval(temp)

curcanvas=(curcanvas=="canvas0")? "canvas1" : "canvas0"

}

else

document.images.defaultslide.src=dropimages[curimageindex]

linkindex=curimageindex

curimageindex=(curimageindex<dropimages.length-1)? curimageindex+1 : 0

}

function rotatelink(){

if (droplinks[linkindex]!="")

window.location=droplinks[linkindex]

}

function resetit(what){

curpos=parseInt(slideshow_width)*(-1)

var crossobj=ie4? eval("document.all."+what) : document.getElementById(what)

crossobj.style.left=curpos+"px"

}

function startit(){

var crossobj=ie4? eval("document.all."+curcanvas) : document.getElementById(curcanvas)

crossobj.innerHTML='<a href="'+droplinks[curimageindex]+'"><img src="'+dropimages[curimageindex]+'" border=0></a>'

rotateimage()

}

if (ie4||dom)

window.onload=startit

else

setInterval("rotateimage()",pause)

</script>

</td>

<%

else

Response.Write "<tr><td><center><b>还没有内容</b></center></td></tr>"

end if

rs.close

set rs1=nothing

%>

</table>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有