<script> //Js版本
var link1=new ActiveXObject("ADODB.Connection") //使用ADO的Connection对象打开数据库接口
link1.open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=数据库1.mdb") //操作指定数据库,Js使用相对地址
var rs=link1.execute("select * from 会员表")
<script language=vbs> 'Vbs版本
on error resume next
Set link1=CreateObject("ADODB.Connection") '使用ADO的Connection对象打开数据库接口
link1.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\windows\desktop\数据库1.mdb" '操作指定数据库
set rs=link1.execute("select * from 会员表")
for i=0 to 10
if rs.eof then exit for
document.write(rs("会员") & " ----- " & rs("密码") & "<p>")
rs.movenext
next
link1.close '关闭数据库连接
Set link1=Nothing '释放对象连接所占用的资源
</script>