请问在JavaScript或VB脚本函数中是否可以访问数据库?

<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>读取数据库中所有的数据</title><style><!--
td   { font-size: 12px }
--></style></head><body bgcolor=#000080>
<DIV id=Layer style='z-index: 2; position: absolute; top: 0; left: 6;width: 760'>
<form method=post action=read.asp>
<table border=0 cellspacing=0 cellpadding=0 width=760 height=30><tbody>
 <tr><td width=600 height=30 align=center>
     <font size=6 face=隶书 color=#ff0000><b>读取数据库中的所有数据</b></font></td>
     <td width=160 height=30 align=right></td></tr></tbody></table></form></div><br><br>
<script language=vbscript>
 Dim objrs,objConn
        Set objConn = CreateObject("ADODB.Connection")
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:/dwweb/control/admin.asp';Jet OLEDB:Database Password=123456"
        objConn.Open
        Set objrs = CreateObject("ADODB.Recordset") 
        objrs.Open "select * from H_USER", objConn, 1, 3
</script>
<table border=0 cellspacing=1 cellpadding=3 bgcolor=#A000C0 align=center>  <tr bgcolor=#e0fff0>
<script language=vbscript>
     for i=0 to objrs.fields.count-1
       document.write"<th>"&objrs.fields(i).name&"</th>"
     next
</script></tr>
<script language=vbscript>
  do while not objrs.eof
    data="  <tr bgcolor=#ffffff>"
    for i=0 to objrs.fields.count-1
       data=data&"<td>"&objrs.fields(i).value &"</td>"
    next
    document.write data&"</tr>"&chr(13)
    objrs.movenext
  loop
  objrs.close
  Set objrs=nothing
  objConn.close
  Set objConn=nothing
</script>
</table></body></html>