关于Array的问题.

Question

var slideimages=new Array(
<%
while(取出的图片不是最后一个){
   response.write (图片的路径&",")
}
%>);

Answer 1

<script language="JavaScript1.1">
<!--
var slidespeed=3000
var slidelinks=new Array("http://www.7wind.net","http://www.7wind.com","http://www.7wind.net")
var imageholder=new Array()
var ie55=window.createPopup
var index=0
alert("怎么回事呢?")
<%
connstr="dbq="+server.mappath("test.mdb")+";driver={microsoft access driver (*.mdb)};"
set conn=createobject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from test",conn,1,3
%>
var slideimages=new Array("<%
do while not rs.eof 
response.write(rs("Path"))
rs.movenext
Loop
%>")
<%
rs.close
set rs=nothing
%>
for (i=0;i<slideimages.length;i++){
imageholder[i]=new Image()
imageholder[i].src=slideimages[i]
}
function gotoshow(){
window.location=slidelinks[whichlink]
}
//-->
</script>
<a href="javascript:gotoshow()"><img src="001s.jpg" name="slide" border=0 style="filter:progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)"></a>
<script language="JavaScript1.1">
<!--
var whichlink=0
var whichimage=0
var pixeldelay=(ie55)? document.images.slide.filters[0].duration*1000 : 0
function slideit(){
if (!document.images) return
if (ie55) document.images.slide.filters[0].apply()
document.images.slide.src=imageholder[whichimage].src
if (ie55) document.images.slide.filters[0].play()
whichlink=whichimage
whichimage=(whichimage<slideimages.length-1)? whichimage+1 : 0
setTimeout("slideit()",slidespeed+pixeldelay)
}
slideit()
//-->
</script>
<%
connstr="dbq="+server.mappath("test.mdb")+";driver={microsoft access driver (*.mdb)};"
set conn=createobject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from test",conn,1,3
do while not rs.eof 
%>
<%
response.write rs("Path")&"<br>"
%>
<%
rs.movenext
Loop
rs.close
set rs=nothing
%>
<script>
document.write(imageholder[0]);
</script>

Answer 2

var slideimages=new Array(
<%
do while true 
response.write("'"&rs("Path")&"'")'不要忘记引号,这才是字符串
rs.movenext
if not rs.eof then  '这样写是因为最后一个不用添加逗号
  response.write ","
else
  break;
enf if
Loop
%>");'不咬忘记分号
<%
rs.close
set rs=nothing
%>

Answer 3

%>");'不咬忘记分号更改为:%>);'不咬忘记分号

Answer 4

var slideimages=new Array(
<%
if not rs.eof
    filenames=rs.getrows(,,"filename")        'filename是字段名
    file=Join(filenames,",")
end if
response.write file
%>);

Answer 5

<script language="JavaScript1.1">
<!--
var slidespeed=3000
var slideimages=new Array()
var slidelinks=new Array("http://www.7wind.net","http://www.7wind.com","http://www.7wind.net")
var imageholder=new Array()
var ie55=window.createPopup
var index=0
<%
connstr="dbq="+server.mappath("test.mdb")+";driver={microsoft access driver (*.mdb)};"
set conn=createobject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from test",conn,1,3
do while not rs.eof 
%>
slideimages[index]=<%=rs("Path")%>
index=index+1
<%
rs.movenext
Loop
rs.close
set rs=nothing
%>
for (i=0;i<slideimages.length;i++){
imageholder[i]=new Image()
imageholder[i].src=slideimages[i]
}function gotoshow(){
window.location=slidelinks[whichlink]
}
//-->
</script>
<a href="javascript:gotoshow()"><img src="001s.jpg" name="slide" border=0 style="filter:progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)"></a>
<script language="JavaScript1.1">
<!--
var whichlink=0
var whichimage=0
var pixeldelay=(ie55)? document.images.slide.filters[0].duration*1000 : 0
function slideit(){
if (!document.images) return
if (ie55) document.images.slide.filters[0].apply()
document.images.slide.src=imageholder[whichimage].src
if (ie55) document.images.slide.filters[0].play()
whichlink=whichimage
whichimage=(whichimage<slideimages.length-1)? whichimage+1 : 0
setTimeout("slideit()",slidespeed+pixeldelay)
}
slideit()
//-->
</script>
<%
connstr="dbq="+server.mappath("test.mdb")+";driver={microsoft access driver (*.mdb)};"
set conn=createobject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from test",conn,1,3
do while not rs.eof 
%>
<%
response.write rs("Path")&"<br>"
%>
<%
rs.movenext
Loop
rs.close
set rs=nothing
%>
<script>
document.write(imageholder[0]);
</script>

Answer 6

修正var slideimages=new Array(
<%
if not rs.eof
    response.write "'" &rs(0)& "'"
    rs.movenext
end if
while not rs.eof
    response.write ",'" &rs(0)& "'"
    rs.movenext
end if
%>);

Answer 7

rs.getrows("字段名")
这个方法也不对啊.

Answer 8

<%
  Dim strNote
  Dim arrayNew
  Dim i
  strNote = "test_imges/01.gif,test_imges/02.gif,test_imges/03.gif,test_imges/04.gif"
  arrayNew = split(strNote,",")
  For i = 0 To UBound(arrayNew)
    response.write arrayNew(i) & "<br>"
  Next
%>