<%Response.CacheControl = "Public" response.Expires=300 '设置过期时间为0 response.Buffer=true '启用缓存 %> 会员注册 - <%=sitename%>

<% if request("type")="save" then qid=request.form("qid") answer=request.Form("answer") username=LCase(trim(request.form("UserName"))) password=md5(trim(request("password"))) password2=md5(trim(request("password2"))) email=request("email") sex=request("sex") city=trim(request("contactCity")) petname=trim(request("petname")) code=trim(request("code")) ip = GettrueIP 'If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") ai=0 for ki=1 to len(username) cit=0 cit=asc(mid(username,ki,1)) if cit>47 and cit<=57 then '数字 ai=0 elseif cit>59 and cit<=90 then '大写字符 elseif cit>96 and cit<=122 then '小写字符 else '特殊字符 ai=1 exit for end if next if ai=1 then errstr=errstr&"◎ 错误:用户名只能使用字母和数字的组合

" end if if request("password")<>request("password2") then errstr=errstr&"◎ 错误:两次输入密码不一致

" end if if username="" then errstr=errstr&"◎ 错误:请输入用户名

" end if if checkchinese(username)=true then errstr=errstr&"◎ 错误:用户名只能为字母或数字

" end if if len(username)<3 or len(username)>12 then errstr=errstr&"◎ 错误:超出长度限制,用户名必须为3-12个字母或数字

" end if if email="" then errstr=errstr&"◎ 错误:E-mail地址不能为空

" end if if instr(cstr(email),"@") then else errstr=errstr&"◎ 错误:E-mail格式错误

" end if if petname="" then errstr=errstr&"◎ 错误:请输入呢称

" end if if city="" then errstr=errstr&"◎ 错误:请输入所在城市

" end if if sex="" then errstr=errstr&"◎ 错误:请选择性别

" end if if trim(request("password"))="" then errstr=errstr&"◎ 错误:密码不能为空

" end if if not isnumeric(qid) then errstr=errstr&"◎ 错误:未知错误

" end if sql="select answer from autoquestion where id="&ccur(qid) set rs=conn.execute(sql) if rs.eof then errstr=errstr&"◎ 错误:未知错误

" else rightanswer=cstr(trim(rs(0))) end if set rs=nothing if errstr="" then if instr(cstr(trim(answer)),rightanswer)>0 or cstr(trim(answer))=rightanswer then else errstr=errstr&"◎ 错误:验证答案错误

" end if sqluser = "select userid from [member] where username='" & Replace(username, "'", "") & "'" set rs=conn.execute(sqluser) If Not (rs.EOF Or rs.BOF) Then errstr=errstr&"◎ 错误:用户名已经存在

" Else 'IP检测 sqluser = "select regtime from [member] where datediff(""d"",regtime,getdate())=0 and userloginip='" & ip & "'" set rs=conn.execute(sqluser) If Not (rs.EOF Or rs.BOF) Then if datediff("n",rs(0),now)<=300 then errstr=errstr&"◎ 错误:同一IP五小时内只允许注册一个账号

" end if end if if errstr="" then conn.Execute ("insert into [member](username,password,email,sex,city,petnametmp,userloginip,userlogintime,msh,petname) values ('" & username & "','" & password & "','" & email & "'," & sex & "," & city & ",'"&petname&"','"&ip&"',getdate(),0,'"&petname&"')") response.Cookies("pmusic")("username")=username response.Cookies("pmusic")("petname")=petname response.Cookies("pmusic")("kkcount")=0 response.Cookies("pmusic")("password")=password response.Redirect("/member/member.html") response.End() end if end if end if if errstr<>"" then response.write ""&errstr&"" end if end if %>
   注:在填写注册资料时,请不要使用此类特殊符号:"'","<",">","."
* 用 户 名:
(限 3-12 个字符,只支持字母与数字,且以后不能修改)
* 昵  称:
(在网站里的称呼,可修改)
* 密  码:
" maxlength="20" /> (请输入 6 - 25 位密码)
* 确认密码:
" maxlength="20" /> (请再输入一次密码)
* 所属省市:
(请选择所属省份,以便在会员列表中按地区列表。)
* 性  别:
(请选择您的性别)
* E - mail:
(请认真填写,用于丢失密码时查收)
* 问答验证:

    



中国DJ嗨嗨网 服务条款(注册前必读)
1、注册成为本站会员,必须遵守本站的《中国DJ嗨嗨网 服务条款》,如有违反,将删除ID,并限制该IP永不能在本站注册!
2、遵守中国有关的法律和法规,不得为任何非法目的而使用网络服务系统,遵守所有与网络服务有关的网络协议、规定和程序
3、为了有效的利用本站资源给广大DJ、网友服务,对超过三个月未登陆的用户,将删除该ID不另行通知
4、不能对其他会员随意谩骂,侮辱或进行人身攻击,请大家共同来维护中国DJ嗨嗨网,保持它的纯洁与文明!
5、不能在本站任何地方留有其他网站的网址,或进行任何不利于本站的行为!
6、关于在本站申请成为推荐DJ,认证DJ,特约DJ和签约DJ的条件和方法,详情请点击该连接

 


在中国DJ嗨嗨网,您可以

◎ 尽情地收藏和下载本站的音乐内容
◎ 自由地发表您的评论和见解
◎ 获得无限免费个人空间
◎ 上传属于自己的个人专辑
◎ 和口味相投的朋友谈音论乐

赶快花几秒钟注册吧!