急急急!!!ASP连接数据库出错!向高手求教。。。我到底是哪里出错了??在线等答案,多谢!!!!!!

来源:百度知道 编辑:UC知道 时间:2024/05/12 06:55:10
代码如下:
<% dim conn,connstr
const db="users.mdb"
connstr="dirver={microsoft access driver(*.mdb)}; dbq=&server.mappath(db)
set conn=server.createobject("adodb.connection")
conn.open.connstr
if err then
err.clear
conn.close
set conn=nothing
response.write("<script>数据库连接失败</script>")
response.end()
end if
nm=request.form("username")
pwd=request.form("password") '读取表单密码文本框输入的数据,并存入变量pwd
ename=request.form("realname") '读取表单真实姓名文本框的数据并存入变量ename
id_card=request.form("id_card")
exec="insert into users values('&nm&','&pwd&','&ename&','&id_card&')" '定义exec过程
conn.execute exec
conn.close '关闭数据库连接
set conn=nothing
response.write(

<%
dim conn,connstr
DB="users.mdb"
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
set conn=server.createobject("adodb.connection")
conn.Open connstr
if err then
err.clear
conn.close
set conn=nothing
response.write("<script>数据库连接失败</script>")
response.end()
end if
nm=request.form("username")
pwd=request.form("password") '读取表单密码文本框输入的数据,并存入变量pwd
ename=request.form("realname") '读取表单真实姓名文本框的数据并存入变量ename
id_card=request.form("id_card")
exec="insert into users values('&nm&','&pwd&','&ename&','&id_card&')" '定义exec过程
conn.execute exec
conn.close '关闭数据库连接
set conn=nothing
response.write("<center><font size=14 color=red>恭喜您注册成功!