数据库用的是ACCESS,保存了图片路径,做了一个类似于首页新闻循环播放的模块,图片从数据库里取出路径,然后把路径保存在一个长度为3的数组里,然后用src输出数组里的路径到网页,我下载了一个JS特效,三张图片循环出现,现在的问题是网页上只会出现一张图,就是数组里最后一个元素所保存的路径,JS特效没有了,成死的了。请大神们帮我弄一下,指导一下我。前面都是style,没什么问题,就是最后输出那里不对。
<%
Dim oRsd,sqld
sqld = "SELECT * FROM [学会活动]"
Set oRsd = Server.CreateObject("ADODB.RecordSet")
Dim j
%>
<script type="text/javascript" src="js/jquery.js"></script>
<script type="text/javascript" src="js/L_slide.js"></script>
<style type="text/css">
* {margin:0;padding:0;}
ul {list-style:none;}
.wrap {width:458px;height:200px;position:relative;overflow:hidden;float:left;}
.slidebox {width:670px;position:absolute;top:0;left:0;height:240px;}
.slidebox li {float:left;width:458px;height:200px;left:0;top:0;}
.slidebox li img {display:block;width:458px;height:200px;}
.dot {position:absolute;width:100%;height:18px;background:rgba(0,0,0,0.3);text-align:right;bottom:0;left:0; font-size:10px;}
.dot p {margin-right:10px;}
.dot b {width:12px;height:12px;border-radius:15px;color:#333;display:inline-block;border:1px solid #fff;background:#fff;text-align:center;line-height:17px;margin:0 3px;margin-top:3px;cursor:pointer;font-weight:normal;}
.dot .cur {background:#F63;color:#fff;border:1px solid #f63;}
</style>
<body>
<%
oRsd.Open sqld,oConn,1,1
Dim i
Dim B(2)
i = 0
Do While Not oRsd.EOF And i < 3
If oRsd("nPhoto")<>"" Then
B(i) = oRsd("nPhoto")
i = i + 1
End If
oRsd.MoveNext
Loop
i = i - 1
%>
<div class="wrap af4">
<ul class="slidebox">
<%For j = 0 To i %>
<li><a href="#"><img src="<%=B(i)%>" /></a></li>
<%Next %>
</ul>
</div>
<%
oRsd.Close
Set oRsd = Nothing
oConn.Close
Set oConn = Nothing
%>
</body>