<!--#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欢迎你。
还有一个问题，这段代码怎么没检测用户是否重复，当我注册时输入已有的用户名时是注册不进去，但没有提示。

问题已解决
<!--#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
%>

新户注册应该在前台显示里实现
<% Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from zhuce order by id desc"
rs.Open sql,conn,1,1 %>
<table width="400" border="1" align="center">
<tr>
<td height="30" align="center">欢迎你<%=rs("name")%></td>
</tr>
<tr>
<td height="30" align="center">&nbsp;</td>
</tr>
</table>

验证是否是注册用户写法：


<%
if request("action")="reg" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from zhuce where name='"&trim(request("name"))&"'",conn,1,1
if rs.recordcount>0 then
response.write "<Script language='JavaScript'>window.alert('您输入的用户名已存在，请返回重新输入！');history.back(-1);</Script>"
response.End()
end if
sql="select * from user"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request.Form("name"))
rs("pwd")=trim(request.Form("pwd"))
rs("wenti")=trim(request.Form("wenti"))
rs("daan")=trim(request.Form("daan"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript> alert('注册成功，点击确定立即登录！');location.replace('login.asp');</script>"
response.end
end if
%>

问题已经解决了，不过还是谢谢你！