标签:
最初领导分配任务是使用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
%>
标签:
原文地址:http://www.cnblogs.com/sunflo/p/4270368.html