<%=bbsinfo("bbsname")%>

<% dim save save=Request.Form("save") select case save case "save" dim username,password,email,sex,repass,ask,anser username=trim(replace(Request.Form("username"),chr(9),"")) username=server.HTMLEncode(username) password=trim(replace(Request.Form("password"),chr(9),"")) email=trim(replace(Request.Form("email"),chr(9),"")) sex=replace(Request.Form("sex"),chr(9),"") ask=trim(replace(Request.Form("ask"),chr(9),"")) anser=trim(replace(Request.Form("anser"),chr(9),"")) reg_time=year(now)&"-"&month(now)&"-"&day(now) pic="face/1.gif" if strLength(username) Cint("16") then response.write"
" response.write "
" Response.End end if if strLength(password) Cint("14") then response.write"
" response.write "
" Response.End end if if username=password or password="123456" or password="654321" or password="111111" or password="aaaaaa" or password="abcdefg" then response.write"
" response.write "
" Response.End end if if IsValidEmail(trim(request("email")))=false Then response.write"
" response.write "
" Response.End end if Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from member where username='"&username&"'" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then response.write"
" response.write "
" response.end end if rs.close set rs=nothing conn.execute("insert into member (username,password,email,sex,ask,anser,reg_time,pic) values('"&username&"','"&md5(password)&"','"&email&"','"&sex&"','"&ask&"','"&md5(anser)&"','"®_time&"','"&pic&"')") session("username")=username session("password")=password response.write"
" response.write "
" response.end case else %>

<%=bbsinfo("bbsname")%> → 用户注册

用 户 名 | * 3-16位，可使用英文(a-z)、数字(0-9)、下划线及减号
密 　 码 | * 6-14位，可使用英文(A-Z,a-z)、数字(0-9)，下划线及减号及“@"符号
确认密码 | *
性 　 别 | 男孩 女孩 外星人
密码问题 | * 忘记密码的提示问题
问题答案 | * 忘记密码的提示问题答案，用于取回论坛密码
Email地址 | * 请输入有效的邮件地址，这将使您能用到论坛中的所有功能

注册信息一经提交，即表示您同意我们的 服务条款 |

<% end select %>