求助:为甚么我连Access成功,加数据会自动回滚?

you_kind 2005-05-11 08:10:10
写了一段注册的代码,注册能成功,感觉不是代码问题。数据库里却没有新增的行,奇怪的是自动的主键ID居然已经自增过了。有没前辈高人遇到过这种情况啊?谢谢!
...全文
94 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
dragonlyf 2005-05-12
  • 打赏
  • 举报
回复
response.write UserName 这些打印出来看看是否是空
piao1983 2005-05-12
  • 打赏
  • 举报
回复
查一下表单提交方法是GET还是POST
mkqiang 2005-05-12
  • 打赏
  • 举报
回复
单从程序上看,没有问题好象。
会织网的蚂蚁 2005-05-11
  • 打赏
  • 举报
回复
是不是您获取的值是空的。
richwong 2005-05-11
  • 打赏
  • 举报
回复
你把数据库子度设置不允许空值试试代码。估计是数据传递来的是空。
caobin518 2005-05-11
  • 打赏
  • 举报
回复
<%
UserName=trim(request.form("UserName"))
Password=trim(request.form("Password"))
PwdConfirm=trim(request.form("PwdConfirm"))
Email=trim(request.form("Email"))
Comane=trim(request.form("Comane"))
Add=trim(request.form("Add"))
Phone=trim(request.form("Phone"))

' 注册输入合法性验证代码从略
dim sqlReg,rsReg
sqlReg="select * from [client] where username='" & Username & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,1
if not(rsReg.bof and rsReg.eof) then
founderr=true
errmsg=errmsg & "<br><li>你注册的用户已经存在!请换一个用户名再试试!</li>"
rsReg.Close
else
rsReg.addnew
rsReg("username")=UserName
rsReg("password")=md5(Password)
rsReg("comanyname")=Comane
rsReg("address")=Add
rsReg("telephone")=Phone
rsReg.update
response.redirect"test.asp"/////这种做就可以达到你的结果.
founderr=false
end if
set rsReg=nothing
%>
you_kind 2005-05-11
  • 打赏
  • 举报
回复
<%
UserName=trim(request.form("UserName"))
Password=trim(request.form("Password"))
PwdConfirm=trim(request.form("PwdConfirm"))
Email=trim(request.form("Email"))
Comane=trim(request.form("Comane"))
Add=trim(request.form("Add"))
Phone=trim(request.form("Phone"))

' 注册输入合法性验证代码从略
dim sqlReg,rsReg
sqlReg="select * from [client] where username='" & Username & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,1
if not(rsReg.bof and rsReg.eof) then
founderr=true
errmsg=errmsg & "<br><li>你注册的用户已经存在!请换一个用户名再试试!</li>"
rsReg.Close
else
rsReg.addnew
rsReg("username")=UserName
rsReg("password")=md5(Password)
rsReg("comanyname")=Comane
rsReg("address")=Add
rsReg("telephone")=Phone
rsReg.update
founderr=false
end if
set rsReg=nothing
%>

28,405

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧