| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 409 人关注过本帖
标题:[求助]用户注册
取消只看楼主 加入收藏
tulipdwh
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-10-18
收藏
 问题点数:0 回复次数:2 
[求助]用户注册
<!--#include file="conn.asp"-->
<%
dim name,pwd,email,sex,wenti,daan,pwd1
name=trim(request.Form("name"))
pwd=trim(request.Form("pwd"))
pwd1=trim(request.Form("pwd1"))
wenti=trim(request.Form("wenti"))
daan=trim(request.Form("daan"))
email=trim(request.Form("email"))
sex=trim(request.Form("sex"))
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from yonghu where name = '"& 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("wenti")=wenti
rs.fields("daan")=daan
rs.fields("email")=email
rs.fields("sex")=sex
rs.update
end if
response.Redirect("zuchecg.asp")
rs.close
conn.close
set rs=nothing
session("name")=rs("name")
%>

我问的是,为什么新用户注册成功之后登录了而不显示这个新注册的用户。我想实现的是像论坛里面,新用户注册成功之后回到首页显示:XXX欢迎你。
还有一个问题,这段代码怎么没检测用户是否重复,当我注册时输入已有的用户名时是注册不进去,但没有提示。
搜索更多相关主题的帖子: Form trim request name 
2006-12-02 09:27
tulipdwh
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-10-18
收藏
得分:0 
问题已解决
<!--#include file="conn.asp"-->
<%
dim name,pwd,email,sex,wenti,daan,pwd1
name=trim(request.Form("name"))
pwd=trim(request.Form("pwd"))
pwd1=trim(request.Form("pwd1"))
wenti=trim(request.Form("wenti"))
daan=trim(request.Form("daan"))
email=trim(request.Form("email"))
sex=trim(request.Form("sex"))
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from yonghu Where name="&"'"&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("wenti")=wenti
rs.fields("daan")=daan
rs.fields("email")=email
rs.fields("sex")=sex
rs.update
rs.close
session("name")=name
response.Redirect("zuchecg.asp")
%>
<%end if%>
<%conn.close
set rs=nothing
%>
2006-12-02 09:52
tulipdwh
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-10-18
收藏
得分:0 
问题已经解决了,不过还是谢谢你!
2006-12-02 09:59
快速回复:[求助]用户注册
数据加载中...
 
   



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

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