<%response.Redirect("reg.asp")%>
<%
if not IsObject(connbbs) then link_bbsDB
If Request("action")="protocol" Then
call sysshow()
show=replace(show,"$show_list$","当前位置：首页→注册条款"&blog.setup(47,0))
'response.Write show&blog.site_bottom
response.Write show
Response.End
End If
dim action,show_reg,chkregtime,tuserid
chkregtime=3 '重复注册的时间间隔,单位：秒
if is_ot_user then
if not IsObject(conn) then link_database
response.Redirect(ot_regurl)
response.End()
end if
'tuserid=blog.filt_badstr(Trim(Request("userid")))
action=trim(request.Form("action"))
call sysshow()
select case action
case "chkreg"
call sub_chkreg()
case else
call sub_showreg()
end select
'show=replace(show,"$show_list$",show_reg)&blog.site_bottom
show=replace(show,"$show_list$",show_reg)
response.Write show
sub sub_showreg()
dim rs
dim str_usertype
show_reg="当前位置：首页 → 注册通行证"
if blog.setup(15,0)=0 and session("adminname")="" then
show_reg=show_reg&"当前系统已关闭注册。"
else
dim reval
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & " 宝宝 (给宝宝建个家)
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & " 幼儿园 (给幼儿园建个网站)
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & " 个人 (给自己建个博客)
" & vbCrlf
reval = reval & "
" & vbCrlf
reval = reval & "
" & vbCrlf
' str_usertype=" *"
show_reg=show_reg&""& vbcrlf
end if
set rs=nothing
end sub
sub sub_chkreg()
if blog.ChkPost()=false then
blog.adderrstr("系统不允许从外部提交！")
blog.showerr
exit sub
end if
chk_regtime()
if blog.setup(57,0)=1 then
if not blog.codepass then blog.adderrstr("验证码错误，请刷新后重新输入！"):blog.showerr
end if
dim rsreg
dim regusername,regpassword,sex,question,answer,email,reguserlevel,userispass,blogname,usertype,nickname,re_regpassword,user_domain,user_domainroot,user_type,address,truename,school_id,tel,contact,rsskin,protect
if blog.chkiplock() then
blog.adderrstr("对不起！您的IP已被锁定,不允许注册！")
blog.showerr
exit sub
end if
user_type=Cint(Trim(Request.Form("user_type")))
regusername=blog.filt_badstr(trim(request("username")))
if regusername="" then
response.Redirect "index.asp"
end if
regpassword=request("password")
re_regpassword=request("repassword")
sex=2
email=trim(request("email"))
question=trim(request("question"))
answer=trim(request("an"))
blogname=trim(request("blogname"))
usertype=clng(request("usertype"))
truename=trim(request("truename"))
'user_domain=Lcase(trim(request("domain")))
user_domain=regusername
'user_domainroot=trim(request("user_domainroot"))
user_domainroot=Split(blog.setup(4,0),"|")(0)
tel=trim(request("tel"))
contact=trim(request("contact"))
protect=trim(request("protect"))
user_domain=Lcase(trim(request("domain")))
user_domainroot=Split(blog.setup(4,0),"|")(0)
if regusername="" or blog.strLength(regusername)>14 or blog.strLength(regusername)<4 then blog.adderrstr("用户名不能为空(不能大于14小于4)！")
if blog.chk_regname(regusername) then blog.adderrstr("用户名系统不允许注册！")
if blog.chk_badword(regusername)>0 then blog.adderrstr("用户名中含有系统不允许的字符！")
if en_nameisnum=0 and IsNumeric(regusername) then blog.adderrstr("用户名不允许全部为数字！")
if blog.chkdomain(regusername,1)=false then blog.adderrstr("用户名不合规范，只能使用中文、小写字母、数字及下划线！")
if trim(blog.setup(4,0))<>"" and blog.setup(12,0)=1 then
if user_domain="" or blog.strLength(user_domain)>14 then blog.adderrstr("域名不能为空(不能大于14个字符)！")
if user_domain<>request("old_userdomain") and blog.strLength(user_domain)<4 then blog.adderrstr("域名不能小于4个字符！")
if blog.chk_regname(user_domain) then blog.adderrstr("此域名系统不允许注册！")
if blog.chk_badword(user_domain)>0 then blog.adderrstr("域名中含有系统不允许的字符！")
if blog.chkdomain(user_domain,0)=false then blog.adderrstr("域名不合规范，只能使用小写字母，数字！")
if user_domainroot="" then blog.adderrstr("域名根不能为空！")
end if
if regpassword="" or blog.strLength(regpassword)>14 or blog.strLength(regpassword)<4 then blog.adderrstr("密码不能为空(不能大于14小于4)！")
if re_regpassword="" then blog.adderrstr("重复密码不能为空！")
if regpassword<>re_regpassword then blog.adderrstr("两次输入密码不同！")
If protect="yes" Then
if question="" or blog.strLength(question)>50 then blog.adderrstr("找回密码提示问题不能为空(不能大于50)！")
if answer="" or blog.strLength(answer)>50 then blog.adderrstr("找回密码问题答案不能为空(不能大于50)！")
End If
'if blog.chk_regname(nickname) then blog.adderrstr("此昵称系统不允许注册！")
'if blog.chk_badword(nickname)>0 then blog.adderrstr("昵称中含有系统不允许的字符！")
'if blog.strLength(nickname)>50 then blog.adderrstr("昵称不能不能大于50字符！")
if blogname="" or blog.strLength(blogname)>50 then blog.adderrstr("站点名称不能为空(不能大于50字符)！")
if contact="" then blog.adderrstr("联系人姓名不能为空！")
if tel="" then blog.adderrstr("联系电话不能为空！")
if blog.chk_badword(blogname)>0 then blog.adderrstr("站点名称中含有系统不允许的字符！")
if Instr(regusername,"=")>0 or Instr(regusername,"%")>0 or Instr(regusername,chr(32))>0 or Instr(regusername,"?")>0 or Instr(regusername,"&")>0 or Instr(regusername,";")>0 or Instr(regusername,",")>0 or Instr(regusername,"'")>0 or Instr(regusername,",")>0 or Instr(regusername,chr(34))>0 or Instr(regusername,chr(9))>0 or Instr(regusername,"")>0 or Instr(regusername,"$")>0 then blog.adderrstr("用户名中含有非法字符！")
'if blog.setup(25,0)=0 and nickname<>"" then
' set rsreg=blog.execute("select userid from T_Blog_User where nickname='"&blog.filt_badstr(nickname)&"'")
' if not rsreg.eof or not rsreg.bof then blog.adderrstr("系统中已经有这个昵称存在，请更改昵称！")
'end if
if user_domain<>"" then
set rsreg=blog.execute("select userid from T_Blog_User where user_domain='"&blog.filt_badstr(user_domain)&"' and user_domainroot='"&blog.filt_badstr(user_domainroot)&"'")
if not rsreg.eof or not rsreg.bof then blog.adderrstr("系统中已经有这个域名存在，请更改域名！")
end if
if email="" then blog.adderrstr("Email不能为空！")
if blog.errstr<>"" then blog.showerr:exit sub
'if blog.setup(16,0)=1 then reguserlevel=6 else reguserlevel=7
reguserlevel=School_Level
regpassword=md5(regpassword)
if not IsObject(conn) then link_database
set rsreg=server.CreateObject("adodb.recordset")
rsreg.open "select * from [T_Blog_User] where username='"& blog.filt_badstr(regusername) &"'",conn,1,3
if rsreg.eof and connbbs.execute("select count(id) from [user] where username='"®username&"'")(0)<=0 then
rsreg.addnew
rsreg("username")=regusername
rsreg("password")=regpassword
rsreg("user_type")=user_type '0宝宝1幼儿园
if trim(blog.setup(4,0))<>"" and blog.setup(12,0)=1 then
rsreg("user_domain")=user_domain
rsreg("user_domainroot")=user_domainroot
end if
rsreg("truename")=truename
rsreg("sex")=sex
rsreg("question")=question
rsreg("answer")=md5(answer)
rsreg("useremail")=email
rsreg("user_level")=reguserlevel
rsreg("user_isbest")=0
rsreg("blogname")=blogname
rsreg("user_classid")=usertype
rsreg("address")=request("address")
rsreg("end_date")=dateadd("d",blog.setup(85,0),ServerDate(now()))
rsreg("province")=request("province")
rsreg("city")=request("city")
rsreg("adddate")=ServerDate(now())
rsreg("lastloginip")=blog.userip
rsreg("lastlogintime")=ServerDate(now())
rsreg("user_dir")=blog.setup(30,0)
rsreg("user_folder")=user_domain
rsreg("display")=0
rsreg("school_id")=0
rsreg("contact")=contact
rsreg("tel")=tel
rsreg("point")=SetPoint1 '注册积分500
set rsskin=blog.execute("select skinmain,skinshowlog from T_Blog_UserSkin where id="&DefaultSkinID_School)
rsreg("user_skin_main")=rsskin(0)
rsreg("user_skin_showlog")=rsskin(1)
rsreg("defaultskin")=DefaultSkinID_School
set rsskin=nothing
rsreg.update
blog.execute("update T_Blog_Setup set user_count=user_count+1")
if is_unamedir=0 then
blog.execute("update T_Blog_User set user_folder=userid where username='"&blog.filt_badstr(regusername)&"'")
end if
show_reg="当前位置：首页→完成注册"
blog.CreateUserDir user_domain,1
'========同时加入BBS
call intobbs(regusername)
'========加入BBS结束
if blog.setup(16,0)=1 then
show_reg=show_reg&"
"
show_reg=show_reg&""
end if
else
blog.adderrstr("系统中已经有这个用户名存在，请更改用户名！")
blog.showerr
exit sub
end if
rsreg.close
set rsreg=nothing
'ATFLAG
'Session("chk_regtime"&replace(Request.ServerVariables("REMOTE_ADDR"),".",""))=now()
Session("chk_regtime")=Now()
end sub
sub chk_regtime()
dim lasttime
'ATFLAG
'lasttime = Session("chk_regtime"&replace(Request.ServerVariables("REMOTE_ADDR"),".",""))
lasttime = Session("chk_regtime")
If IsDate(lasttime) Then
If DateDiff("s",lasttime,Now()) < chkregtime then
Response.Write("")
Response.End
end if
end if
end sub
%>