| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 398 人关注过本帖
标题:[求助]用户注册
只看楼主 加入收藏
tulipdwh
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-10-18
收藏
 问题点数:0 回复次数:6 
[求助]用户注册

为什么不能成功的把注册信息插入到数据库中。
<!--#include file="conn.asp"-->
<%
dim name,pwd,email,sex
name=request.form("name")
pwd=request.form("pwd")
email=request.form("email")
sex=request.form("sex")
if request.Form("name")="" then
response.Write"<script language=javascript>alert('请输入用户名');history.back(-1);</script>"
response.End()
end if
if request.Form("pwd")="" then
response.Write"<script language=javascript>alert('请输入密码');history.back(-1);</script>"
response.End()
end if
if request.Form("email")="" then
response.Write"<script language=javascript>alert('请输入Email地址');history.back(-1);</script>"
response.End()
end if
if request.Form("sex")="" then
response.Write"<script language=javascript>alert('请输入性别');history.back(-1);</script>"
response.End()
end if
name=trim(request.Form("name"))
pwd=trim(request.Form("pwd"))
email=trim(request.Form("email"))
sex=trim(request.Form("sex"))
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from denglu where name like '%"& name &"%'",conn,1,3
if rs.recordcount>0 then
response.Write("<p align=""center"">")
response.Write("该帐号已经注册!")
response.Write("<br>")
response.Write("</p>")
else
rs.addnew
rs.fields("name")=name
rs.fields("pwd")=pwd
rs.fields("sex")=sex
rs.fields("email")=email&" "
response.Write("注册成功,您的资料如下!")
response.Write("<br>")
response.Write "你的帐号是:" & name
response.Write("<br>")
response.Write "你的密码是:" & pwd
response.Write("<br>")
response.Write "性别:" & sex
response.Write("<br>")
response.Write "电子邮件:" & email
end if
%>

搜索更多相关主题的帖子: 注册 用户 
2006-11-24 11:52
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
加rs.update

2006-11-24 11:53
tulipdwh
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-10-18
收藏
得分:0 
加在哪啊
2006-11-24 12:42
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
<!--#include file="conn.asp"-->
<%
dim name,pwd,email,sex
name=request.form("name")
pwd=request.form("pwd")
email=request.form("email")
sex=request.form("sex")
if request.Form("name")="" then
response.Write"<script language=javascript>alert('请输入用户名');history.back(-1);</script>"
response.End()
end if
if request.Form("pwd")="" then
response.Write"<script language=javascript>alert('请输入密码');history.back(-1);</script>"
response.End()
end if
if request.Form("email")="" then
response.Write"<script language=javascript>alert('请输入Email地址');history.back(-1);</script>"
response.End()
end if
if request.Form("sex")="" then
response.Write"<script language=javascript>alert('请输入性别');history.back(-1);</script>"
response.End()
end if
name=trim(request.Form("name"))
pwd=trim(request.Form("pwd"))
email=trim(request.Form("email"))
sex=trim(request.Form("sex"))
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from denglu where name like '%"& name &"%'",conn,1,3
if rs.recordcount>0 then
response.Write("<p align=""center"">")
response.Write("该帐号已经注册!")
response.Write("<br>")
response.Write("</p>")
else
rs.addnew
rs.fields("name")=name
rs.fields("pwd")=pwd
rs.fields("sex")=sex
rs.fields("email")=email&" "
rs.update
response.Write("注册成功,您的资料如下!")
response.Write("<br>")
response.Write "你的帐号是:" & name
response.Write("<br>")
response.Write "你的密码是:" & pwd
response.Write("<br>")
response.Write "性别:" & sex
response.Write("<br>")
response.Write "电子邮件:" & email
end if
%>

2006-11-24 12:49
tulipdwh
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-10-18
收藏
得分:0 
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。
/zcyz.asp, 第 42 行
2006-11-24 13:11
seal520_2008
Rank: 1
等 级:新手上路
帖 子:239
专家分:0
注 册:2006-6-13
收藏
得分:0 
你在数据库上加个IUSR权限

每晚0:00上线 msn:seal520_2008@ myblog:http://seal.
2006-11-24 13:22
开心娃娃
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2005-9-19
收藏
得分:0 
rs.addnew
rs.fields("name")=name
rs.fields("pwd")=pwd
rs.fields("sex")=sex
rs.fields("email")=email&" "
rs.update
response.Write("注册成功,您的资料如下!")
response.Write("<br>")
response.Write "你的帐号是:" & name
response.Write("<br>")
response.Write "你的密码是:" & pwd
response.Write("<br>")
response.Write "性别:" & sex
response.Write("<br>")
response.Write "电子邮件:" & email


如果还不行那就可能是你在数据库加了权限.

[此贴子已经被作者于2006-11-25 14:50:20编辑过]


2006-11-25 14:47
快速回复:[求助]用户注册
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048115 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved