<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim king,action:action=request("action") set king=new kingcms king.head 0,0 select case action case"" :king_def() end select king_outhtm set king=nothing 'def *** *** www.KingCMS.com *** *** sub king_def() dim re:re=request.servervariables("http_referer") dim userlicense if llll("re")<>"" then re=llll("re") if re="" then re="/" select case llll("submits") case"" if king.id>0 then kingtitle=king.lang("login/loginok") kingguide=king.guide(0)&kingtitle ol="
"&king.ubar()&"

" ol=ol&king.lang("login/ok|name:"&king.name)&" ["&king.lang("login/logout")&"]

" ol=ol&"
" else kingtitle=king.lang("reg/license") kingguide=king.guide(0)&kingtitle userlicense=conn.execute("select userlicense from kingsystem where systemname='KingCMS';")(0) ol="
" ol=ol&"
"&kingtitle&"
" ol=ol&"
" ol=ol&userlicense ol=ol&"
" ol=ol&"
" ol=ol&"" ol=ol&" " ol=ol&" " ol=ol&"
" ol=ol&"
" end if case king.lang("reg/license/no")'不接受协议,就退到上一页 response.redirect re case king.lang("reg/license/ok"),king.lang("reg/submit") kingtitle=king.lang("reg/info") kingguide=king.guide(0)&kingtitle dim data,sql:sql="username,userpass,usermail,userquestion,useranswer,userbirthday"'5 dim dataform,i,selected,rs dim keepname:keepname=true dataform=split(sql,",") redim data(ubound(dataform)) if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then for i=0 to ubound(dataform) data(i)=llll(dataform(i)) next end if set rs=conn.execute("select keepusername from kingsystem where systemname='KingCMS';") if not rs.eof and not rs.bof then if len(data(0))>0 then dim keepnames keepnames=split(rs(0),",") for i=0 to ubound(keepnames) if len(trim(keepnames(i)))>0 then if instr(lcase(data(0)),lcase(keepnames(i)))>0 then keepname=false end if end if next end if end if set rs=nothing ol="
" ol=ol&"
"&kingtitle&"
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
用户名 ("&king_user_min&"-"&king_user_max&")" ol=ol&king.check("username|6|reg/tip/username1|"&king_user_min&"-"&king_user_max&";username|11|reg/tip/username2;username|9|reg/tip/rname|select count(userid) from kinguser where username='$pro$';"&keepname&"|13|reg/tip/rname") ol=ol&"
密码 (6-30)" ol=ol&king.check("userpass|7|admin/tip/comppass|userpass1;userpass|6|admin/tip/pass1size|6-30") ol=ol&"
重复密码
邮箱地址" ol=ol&king.check("usermail|6|reg/tip/usermail|1-100;usermail|4|reg/tip/usermail;usermail|9|reg/tip/rmail|select count(usermail) from kinguser where usermail='$pro$'") ol=ol&"
出生年月日 (1995-08-15)" ol=ol& king.check("userbirthday|8|reg/tip/userbirthday|^(19"&chr(3)&"$king124"&chr(2)&"20)\d{2}\-(0[1-9]{1}"&chr(3)&"$king124"&chr(2)&"1[0-2]{1})\-([012]{1}[0-9]{1}"&chr(3)&"$king124"&chr(2)&"3[01]{1})$") ol=ol&"
"&king.lang("user/question")&""'安全提问 ol=ol&"" ol=ol&king.check("userquestion|2|reg/tip/userquestion")&"
答案" ol=ol&king.check("useranswer|6|reg/tip/useranswer|1-50") ol=ol&"
" ol=ol&"
" ol=ol&"" ol=ol&" " ol=ol&"" ol=ol&"
" ol=ol&"
" 'save 'sql="username,userpass,usermail,userquestion,useranswer,userbirthday"'5 if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) and king.checkerr then dim userpass,userkey,pheight,pwidth,ojpeg,useractivate'激活码 userkey=llIl(6) userpass=lll("userpass") userpass=md5(userpass&userkey,1) useractivate=llIl(16) pwidth=98:pheight=98 if lIIl("Persits.Jpeg") and cstr(king_jpeg)="1" and lllll("image/face/0.gif") then set ojpeg=server.createobject("persits.jpeg")'调用组件 ojpeg.open server.mappath("image/face/0.gif") pwidth=ojpeg.originalwidth:pheight=ojpeg.originalheight if II11(pwidth,2) and II11(pheight,2) then'判断是否为数字 if fix(pwidth)>128 or fix(pheight)>128 then if fix(pwidth)>=fix(pheight) then pwidth=128 pheight=pheight*128/ojpeg.originalwidth else pheight=128 pwidth=pwidth*128/ojpeg.originalheight end if end if else pwidth=98:pheight=98 end if set ojpeg=nothing end if conn.execute "insert into kinguser ("&sql&",joindate,userkey,userlanguage,userphoto,userwidth,userheight,useractivate) values ('"&lll("username")&"','"&userpass&"','"&lll("usermail")&"',"&lll("userquestion")&",'"&lll("useranswer")&"','"&lll("userbirthday")&"','"&tnow&"','"&userkey&"','"&king_lang&"','"&king.inst&king.path&"/image/face/0.gif"&"',"&pwidth&","&pheight&",'"&useractivate&"');" kingtitle=king.lang("reg/ok") kingguide=king.guide(0)&kingtitle ol="
" ol=ol&"
"&kingtitle&"
" ol=ol&"
" ol=ol&"

成功注册您的账号,请拷贝以下激活码,登陆时激活您的账号

" ol=ol&"

激活码:

" ol=ol&"

[点击这里打开登陆窗口]

" ol=ol&"
" ol=ol&"
" end if end select end sub 'outhtm *** *** www.KingCMS.com *** *** sub king_outhtm()%> <%=kingtitle%>
动画创作家园  动画人最专业的动画理论网站。
<%=ol%>
动画创作家园QQ群①:2444514(满) QQ群②:15363563(满) QQ群③:48533909(满) QQ群④:44832229 (满) QQ群⑤:43100861 (满) QQ群⑥: 48773990 最佳分辨率 1024×768
维爱迪动画创作家园 京ICP备05049867号
如果您感觉动画创作家园不错,别忘了告诉您的朋友哦,朋友会感谢您的^_^
<%end sub%>