Javascript里 数组如何取数据库里的记录

Question

你用
do while not rst1a.eof
没看到loop,可能在javascript的后面，没有写！
如果有多条记录是，你声明的m = new Array()将会多次，并且是全局变量，后面的数据可能覆盖以前的值！你查看你的前台源代码，看是否吧imgpath读出来！

Answer 1

是的！
我的loop 是在 Javascript 后面
就是这个
<%
 rst1a.movenext
 loop
 rst1a.close
set conn1a=nothing
 %>
但我想改用数组Imgpath（）存取到的值，这样的话就可以把Loop放在Javascript前了 像这样
<%
 set rst1=server.createobject("adodb.recordset")
 sql="select top 5 * from chanshu  where tj=true order by time desc"
 rst1a.open sql,conn1a,3,3
 do while not rst1a.eof sql="select * from img where type='car' and of_id="&rst1a("id")
 rst1.open sql,conn1a,3,3
 dim imgpath(5)
 for i=0 to 4
 if not rst1.eof then
 imgpath[i]=rst1("img")
 else
 imgpath[i]=""
 end if
 rst1.close rst1a.movenext
 loop
next
 rst1a.close
set conn1a=nothing
 %><script language="JavaScript">
m = new Array()
【Red】
m[0] = "<img src='images/imgpath(1)'>"
m[1] = "<img src='managenews/up_img/imgpath(2)' width='140' border=0'>"  《——这样不对
m[2] = "<img src='images/imgpath(3)'>"
m[3]="<a href='http://www.www.com'>『』</a>欢迎你的光临！"
m[4]="<img src='images/car_111_375.jpg'>"
m[5] ="<img src='images/car_111_376.jpg'>"
m[6] = "<img src='images/car_112_142.jpg'>"
【Red】
怎么样才能使得imgpath（i）的值传递给Javasript里的语句呢？

Answer 2

不好意思上面写错了！
取数据库记录时脚本应该如下<%
strpath=server.mappath("managenews/database/car.mdb")
strpath="dbq="&strpath&";defaultdir=;driver={microsoft access driver (*.mdb)};" 
set conn1a=server.createobject("adodb.connection")
conn1a.open strpath
set rst1a=server.createobject("adodb.recordset")pathstr="http://"&request.servervariables("server_name")&request.servervariables("path_info")&"?"&request.servervariables("query_string")
%>
<%
 set rst1=server.createobject("adodb.recordset")
 sql="select top 5 * from chanshu  where tj=true order by time desc"
 rst1a.open sql,conn1a,3,3
 dim imgpath(5)
 do while not rst1a.eof sql="select * from img where type='car' and of_id="&rst1a("id")
 rst1.open sql,conn1a,3,3
    if not rst1.eof then
       imgpath(i)=rst1("img")
    else
       imgpath(i)=""
   end if
 rst1.close
 rst1a.movenext
 i=i+1
 loop
 
 rst1a.close
set conn1a=nothing
 %>

Answer 3

呵呵自己搞定了！
原来是可以的！
源码如下希望对有用到特效的同志有用 <%
strpath=server.mappath("managenews/database/car.mdb")
strpath="dbq="&strpath&";defaultdir=;driver={microsoft access driver (*.mdb)};" 
set conn1a=server.createobject("adodb.connection")
conn1a.open strpath
set rst1a=server.createobject("adodb.recordset")pathstr="http://"&request.servervariables("server_name")&request.servervariables("path_info")&"?"&request.servervariables("query_string")
%>
<%
 set rst1=server.createobject("adodb.recordset")
 sql="select top 5 * from chanshu  where tj=true order by time desc"
 rst1a.open sql,conn1a,3,3
 dim imgpath(5)
 do while not rst1a.eof
 sql="select * from img where type='car' and of_id="&rst1a("id")
 rst1.open sql,conn1a,3,3
    if not rst1.eof then
       imgpath(i)=rst1("img")
    else
       imgpath(i)=""
   end if
 rst1.close
 rst1a.movenext
 i=i+1
 loop
 rst1a.close
set conn1a=nothing
 %>
 
 <table border="1" width="100%">
<tr>
<td><img src="managenews/up_img/<%=imgpath(2)%>"></td>
</tr>
</table>

<script language="JavaScript">
m = new Array()
m[0] = "<img src='managenews/up_img/<%=imgpath(0)%>' width='140' border=0'>"
m[1] = "<img src='managenews/up_img/<%=imgpath(1)%>' width='140' border=0'>"
m[2] = "<img src='managenews/up_img/<%=imgpath(2)%>' width='140' border=0'>"
m[3]="<a href='http://www.www.com'>『』</a>欢迎你的光临！"
m[4]="<img src='managenews/up_img/<%=imgpath(3)%>' width='140' border=0'>"
m[5] ="<img src='managenews/up_img/<%=imgpath(1)%>' width='140' border=0'>"
m[6] = "<img src='managenews/up_img/<%=imgpath(0)%>' width='140' border=0'>"bagcolor = new Array()
bagcolor[0] = "#CCCCCC"
bagcolor[1] = "#FFFF66"
bagcolor[2] = "#CCFFFF"
bagcolor[3] = "#AAEEFF"
bagcolor[4] = "#CCFF88"
bagcolor[5] = "#FF9933"
bagcolor[6] = "#99AAFF"
bagcolor[7] = "#6699FF"
var i=0;function Ran(R) {
return Math.floor((R+1)*Math.random())
}function play_rt()
{
rt1.style.filter="revealTrans(Duration=1.5,Transition=" + Ran(22) + ")";
    rt1.filters.revealTrans.apply();
rt1.style.background=bagcolor[Ran(7)];
rt1.innerHTML=m[Ran(6)];
    rt1.filters.revealTrans.play();
    timer = setTimeout("play_rt()",3000)   
}
</script>
<meta content="Microsoft FrontPage 6.0" name="GENERATOR">
</head><body bgColor="#ffffff" leftMargin="0" link="#6699FF" onload="play_rt()" topMargin="0"
vLink="#6699CC" background="../images/bg.gif">
<center>
<table cellPadding="0" cellSpacing="0" width="283">
<TBODY>
  <tr vAlign="top">
    <td width="352"></td>
  </tr>
  <tr>
    <td vAlign="top" width="352">
    <table cellPadding="0" cellSpacing="0" width="29">
<TBODY>
      <tr>
        <td  height="1" vAlign="top" width="3"><img height="100%"
        src="../DHtml动态html/CSS滤镜用revealTrans产生效果2.files/line1.gif" width="1"></td>
        <td vAlign="top" width="11"></td>
        <td height="22" vAlign="top" width="487">
        <table width="299" height="184">
<TBODY>
          <tr align="middle">
          </tr>
          <tr>
            <td height="102" colspan="2" width="327"><table border="6" height="87" width="327" bordercolorlight="#FF00FF" bordercolordark="#FF0000">
<TBODY>
              <tr align="middle">
                <td height="82" id="rt1">
                  <p align="center"></td>
              </tr>
</TBODY>
            </table>
            <p><br>
              </p>
            </td>
          </tr>
</TBODY>
        </table>
        </td>
      </tr>
</TBODY>
    </table>
    </td>
  </tr>
  <tr align="right">
    <td width="352">
    <p>　</td>
  </tr>
</table>
</center>