DW与ACCESS数据连接不成功,当提交表单,数据添加不到数据库的表中
我用DW8做的了一个会员注册界面,作用是提交后,填写的信息能进入数据库表中,我发现一个问题,F12制作界面文件后,数据没有进数据库,但我F12下面第一个文件后,数据库会有...
我用DW8做的了一个会员注册界面,作用是提交后,填写的信息能进入数据库表中,我发现一个问题,F12 制作界面文件后,数据没有进数据库,但我F12下面第一个文件后,数据库会有一个空的ID编号占用,我不知道是不是意味着连接成功,但为何填写的信息不能进去呢,让我费解中,请各位高手指教,先给80分。 一下是代码:
connregist.asp文件
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'MM_connregist_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=F:\regist\db1.mdb"
Conn.Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("db1.mdb")
Conn.Open()
%>
regist1.asp文件:
<!--#include file="connregist.asp"-->
<%
dim username,userpssword,userxb,userch
username=Request.Form("username")
userpssword=Request.Form("userpssword")
userxb=Request.Form("userxb")
userch=Request.Form("userch")
sql="insert into regist1(regname,regpssword,regxb,regch)values('"+username+"','"+userpassword+"','"+userxb+"','"+userch+"')"
' Response.Write(sql)
' Response.End()
conn.execute(sql)
conn.close()
Response.Write("成功注册")
%> 展开
connregist.asp文件
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'MM_connregist_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=F:\regist\db1.mdb"
Conn.Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("db1.mdb")
Conn.Open()
%>
regist1.asp文件:
<!--#include file="connregist.asp"-->
<%
dim username,userpssword,userxb,userch
username=Request.Form("username")
userpssword=Request.Form("userpssword")
userxb=Request.Form("userxb")
userch=Request.Form("userch")
sql="insert into regist1(regname,regpssword,regxb,regch)values('"+username+"','"+userpassword+"','"+userxb+"','"+userch+"')"
' Response.Write(sql)
' Response.End()
conn.execute(sql)
conn.close()
Response.Write("成功注册")
%> 展开
1个回答
展开全部
分析:
你的connregist.asp文件中的数据库连接代码是正确的。
你的regist1.asp文件中,
userpssword userpassword 的写法不统一,少了一个“a”
你原先的 regist1.asp 页面中没有加判断,所以你执行此文件时,会插入一个空记录,
在获取页面,可以加一个判断,如果直接浏览获取页面将转到表单页面,
在表单页面,只有填写了信息,才能提交到获取页面。
数据库:
数据库名:db1.mdb
数据库表名:regist1
字段:
ID 自动编号
regname 文本
regpassword 文本
regxb 文本
regch 文本
一、表单页面:reg_form.asp
<form name="form1" method="post" action="regist1.asp">
<p>会员注册信息</p>
<p>用户名:<input name="username" type="text" id="username" /></p>
<p>密码:<input name="userpassword" type="password" id="userpassword" /></p>
<p>性别:<input name="userxb" type="radio" id="userxb" value="男" /> 男
<input name="userxb" type="radio" id="userxb" value="女" /> 女
<input name="userxb" type="radio" id="userxb" value="保密" /> 保密</p>
<p>个人爱好:<textarea name="userch" rows="5" cols="30" id="userch"></textarea></p>
<p><input name="submit" type="submit" value="确定注册" /></p>
</form>
二、获取代码页面:regist1.asp
<!--#include file="connregist.asp"-->
<%
dim username,userpssword,userxb,userch
submit=Request.Form("submit")
username=Request.Form("username")
userpassword=Request.Form("userpassword")
userxb=Request.Form("userxb")
userch=Request.Form("userch")
if submit<>"确定注册" then
response.Write("<script language='javascript'>alert('请从注册页面浏览,谢谢!!');window.location.href='reg_form.asp';</script>")
response.End()
end if
if username="" and userpassword="" and userxb="" and userch="" then
response.Write("<script language='javascript'>alert('信息填写不全,请重新填写!!');history.back();</script>")
else
sql="insert into regist1(regname,regpassword,regxb,regch)values('"+username+"','"+userpassword+"','"+userxb+"','"+userch+"')"
' Response.Write(sql)
' Response.End()
conn.execute(sql)
conn.close()
response.Write("<script language='javascript'>alert('成功注册!!');window.location.href='reg_form.asp';</script>")
end if
%>
你的connregist.asp文件中的数据库连接代码是正确的。
你的regist1.asp文件中,
userpssword userpassword 的写法不统一,少了一个“a”
你原先的 regist1.asp 页面中没有加判断,所以你执行此文件时,会插入一个空记录,
在获取页面,可以加一个判断,如果直接浏览获取页面将转到表单页面,
在表单页面,只有填写了信息,才能提交到获取页面。
数据库:
数据库名:db1.mdb
数据库表名:regist1
字段:
ID 自动编号
regname 文本
regpassword 文本
regxb 文本
regch 文本
一、表单页面:reg_form.asp
<form name="form1" method="post" action="regist1.asp">
<p>会员注册信息</p>
<p>用户名:<input name="username" type="text" id="username" /></p>
<p>密码:<input name="userpassword" type="password" id="userpassword" /></p>
<p>性别:<input name="userxb" type="radio" id="userxb" value="男" /> 男
<input name="userxb" type="radio" id="userxb" value="女" /> 女
<input name="userxb" type="radio" id="userxb" value="保密" /> 保密</p>
<p>个人爱好:<textarea name="userch" rows="5" cols="30" id="userch"></textarea></p>
<p><input name="submit" type="submit" value="确定注册" /></p>
</form>
二、获取代码页面:regist1.asp
<!--#include file="connregist.asp"-->
<%
dim username,userpssword,userxb,userch
submit=Request.Form("submit")
username=Request.Form("username")
userpassword=Request.Form("userpassword")
userxb=Request.Form("userxb")
userch=Request.Form("userch")
if submit<>"确定注册" then
response.Write("<script language='javascript'>alert('请从注册页面浏览,谢谢!!');window.location.href='reg_form.asp';</script>")
response.End()
end if
if username="" and userpassword="" and userxb="" and userch="" then
response.Write("<script language='javascript'>alert('信息填写不全,请重新填写!!');history.back();</script>")
else
sql="insert into regist1(regname,regpassword,regxb,regch)values('"+username+"','"+userpassword+"','"+userxb+"','"+userch+"')"
' Response.Write(sql)
' Response.End()
conn.execute(sql)
conn.close()
response.Write("<script language='javascript'>alert('成功注册!!');window.location.href='reg_form.asp';</script>")
end if
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询