js和asp 显示数据库中图片

发表于:2007-06-30来源:作者:点击数: 标签:
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
<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>

小弟 想在网页中显示动态图片 随着图片的改变而改变起连接 adsitepic 为数据库ad中图片的url 连接数据库没有问题 可是一旦加上asp 到js 中 图片就不显示

<%=rs("AdSitePic")%> 显示正确的url

请问 各位高手 如何解决这个问题



原文转自:http://www.ltesting.net