我曾经做过从数据库里面随即取得10条名人名言,作为数据输出到前端的 <script language="JavaScript"></script>里面。然后用函数在前端动态的轮流显示数组里面的内容。 就是: <script language="JavaScript"> var array_0=new Array(); <% 建立数据连接, 读取数据库所需内容到 rs 中 for i=0 to 9 response.Write("array_0["&i&"]='"&rs("所需字段")&"';") next %> // //之后的前端js代码就可以使用 你在vb中后台填充内容后的数组了</script> ------------------ 原具体代码如下: 看你有没有帮助 <script language="JavaScript"> //随机选择10条名言,生成10个数组,每条名言最多有3行 <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from logion where class="&l_class rs.Open rs.Source,conn,3,1 for i=0 to 9 Randomize rnd_no=int(rnd()*rs.recordcount) rs.move rnd_no,1 response.Write("var array"&i&"=new Array();") response.Write("array"&i&"[0]='"&rs("source")&"';") for ii=2 to 4 if (not isnull(rs(ii)) )and rs(ii)<>"" then response.Write("array"&i&"["&ii-1&"]='"&rs(ii)&"';") end if next next set rs =nothing set conn =nothing %> </script>
<script language="JavaScript"></script>里面。然后用函数在前端动态的轮流显示数组里面的内容。
就是:
<script language="JavaScript">
var array_0=new Array();
<%
建立数据连接,
读取数据库所需内容到 rs 中
for i=0 to 9
response.Write("array_0["&i&"]='"&rs("所需字段")&"';")
next
%>
//
//之后的前端js代码就可以使用 你在vb中后台填充内容后的数组了</script>
------------------
原具体代码如下:
看你有没有帮助
<script language="JavaScript">
//随机选择10条名言,生成10个数组,每条名言最多有3行
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from logion where class="&l_class
rs.Open rs.Source,conn,3,1
for i=0 to 9
Randomize
rnd_no=int(rnd()*rs.recordcount)
rs.move rnd_no,1
response.Write("var array"&i&"=new Array();")
response.Write("array"&i&"[0]='"&rs("source")&"';")
for ii=2 to 4
if (not isnull(rs(ii)) )and rs(ii)<>"" then
response.Write("array"&i&"["&ii-1&"]='"&rs(ii)&"';")
end if
next
next
set rs =nothing
set conn =nothing
%>
</script>