<SCRIPT language=JavaScript>
<%
startime=timer()
dim conn
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("db.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
set rs=server.createobject("adodb.recordset")
rs.open "select * from table",conn,1,3
%>
<%
while not rs.eof
%>
document.write(<%=rs("id")%>)
<%
rs.movenext
wend
%>
<%
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</SCRIPT>
<%
startime=timer()
dim conn
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("db.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
set rs=server.createobject("adodb.recordset")
rs.open "select * from table",conn,1,3
%>
<%
while not rs.eof
%>
document.write(<%=rs("id")%>)
<%
rs.movenext
wend
%>
<%
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</SCRIPT>
<!--author:zangleo filename:test.asp-->
<html>
<head>
<title>范例</title>
</head>
<script language="javascript" src="test.js"></script>
<script language="javascript">
<%
''以下用一个循环模拟输出数据,实际使用时改为相应的输出记录集中的数据字段值即可
i=0
eof=false
while not eof
response.write "arrInfo[" & i & "]=" & i & ";"
i=i+1
if i>8 then eof=true
wend
%>
dispInfo()
</script>
<body>
</body>
</html>文件二:test.js
//author:zangleo filename:test.js
var arrInfo=new Array();function dispInfo(){
for(var i=0;i<arrInfo.length;i++)
document.writeln(arrInfo[i]);
}