最初领导分配任务是使用vb连接数据库，后来因为本人不了解vb，又使用js
vb，js作为客户端语言，只能在本地运行。无法再服务器上运行
原因是本地连接数据库地址可以使用相对或者绝对路径，而放在数据库是是无法通过本地获取服务器文件的地址！
本人在网上查阅各大论坛和贴吧，找到server对象方法MapPath可以获取文件路径
经小编测试server获取路径，提示报错信息server对象未定义！改成asp代码后，运行正常！
获取数据库连接
<%
Set conn = Server.CreateObject("ADODB.Connection") //获取服务驱动
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("#abc.mdb") //设置连接数据库为access驱动， 指定数据库文件
set rs=Server.CreateObject("ADODB.recordset") //创建服务返回对象
%>
添加数据
<%
user=request.form("po.loginname")
pwd=request.form("password")
sql="select * from [user] where user='"+user+"' and pwd = '"+pwd+"'"
rs.open sql,conn,1,1
%>
更新数据
<%
user=request.form("user")
pwd=request.form("pwd")
sql="select * from [user] where user='"+user+"'"
rs.open sql,conn,1,3
if rs.recordcount>0 Then
response.write ("<script>alert('用户已注册，请登录！');javascript:window.location.href='login.asp'</script>")
response.End()
end if
rs.addnew
rs("user")=user
rs("pwd")=pwd
rs.update
response.write ("<script>alert('注册成功!);javascript:window.location.href='login.asp'</script>")
response.End()
rs.close
conn.close
%>