<% if o_db_flag=1 then Response.redirect(o_register_url) end if '==================================== '=============显示主体start=============== '==================================== 'dim email,action,nickname dim email,action,errusername 'action=request.form("action") action=request("action") %> <%=sitename%>-注册 <% 'headtitle="快速注册" %>
<% '-----------显示用户小组还是显示系统小组主界面的判断 if action<>"" then regsave() else main() end if '-----------显示用户小组还是显示系统小组主界面的判断 %>
<%topright()%>
<% '==================================== '=============显示主体end============ '==================================== '-------------右侧显示start-------------------------- sub topright() %>

我们也觉得注册、登录麻烦透了　· · · · · ·　

在<%=sitename%>注册只要1步：

1. 填写左边的内容; 按"完成注册"键;


同一台电脑登录一次就行, <%=sitename%>能记住你!
<% end sub '-------------右侧显示end-------------------------- '-------注册界面主体start------------------ sub main() email=request("email") 'nickname=request("nickname") username=request("username") errcode=request("errcode") if instr(errcode,"010")<>0 then errusername="不行，你的用户名已经在本站注册过了，请更换其他用户名注册吧!^_^" end if %>

> 已注册请登录



你的用户名:

<%=errusername%>
使用英文字母或数字


你的email地址:


用来确认你的身份, <%=sitename%>绝不公开你的email。


给自己设一个密码:

有时候你需要用它登录, 请使用英文字母、符号或数字。






<% end sub '-------注册界面主体end------------------ '-------注册界面主体end------------------ sub regsave() 'username=request.form("username") 'email=request.form("email") 'password=md5(request.form("password")) username=request("username") email=request("email") password=md5(request("password")) 'nickname=request.form("nickname") set rs=server.createobject("adodb.recordset") sql="select useremail,username,userpassword,userid from dv_user where username='"&username&"'" rs.open sql,conn,3,3 if not rs.eof then Response.redirect("register.asp?errcode=010&email="&email&"&username="&username) 'erremail="不行，你的email已经在本站注册过了，请更换其他email地址注册吧!^_^" exit sub else rs.addnew rs("useremail")=email rs("username")=username rs("userpassword")=password 'rs("userface")="images/user.jpg" rs.update rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="select useremail,username,userpassword,userid from dv_user where username='"&username&"'" rs.open sql,conn,3,3 response.cookies(cookiesname)("username")=username response.cookies(cookiesname)("password")=password response.cookies(cookiesname)("userid")=rs("userid") rs.close set rs=nothing Response.redirect("default.asp") end if end sub '-------注册界面主体start------------------ %>