<% '*** *** *** *** *** ' 通行证/会员注册页面 '*** *** *** *** *** dim pp set king=new kingcms king.checkplugin king.path '检查插件安装状态 set pp=new passport select case action case"" king_def end select set pp=nothing set king=nothing ' *** Copyright © KingCMS.com All Rights Reserved *** sub king_def() if king_remoteurl<>"../" then response.redirect king_remoteurl&"passport/reg.asp" dim data,dataform,sql,logsql,i,checked,invalue,re dim rs,reservenames,reservename:reservename=true dim ppkey,pppass re=request.servervariables("http_referer") if len(form("re"))>0 then re=form("re"):if len(re)=0 then re="/" sql="ppname,ppmail,ppmailis,ppquestion,ppanswer"'5 dataform=split(sql,",") redim data(ubound(dataform),0) if king.ismethod then for i=0 to ubound(dataform) data(i,0)=form(dataform(i)) next '检查保留用户名 set rs=conn.execute("select reservename from kingpassport_config where systemname='KingCMS';") if not rs.eof and not rs.bof then if len(data(0,0))>0 and len(rs(0)) then reservenames=split(rs(0),",") for i=0 to ubound(reservenames) if len(trim(reservenames(i)))>0 then if instr(lcase(data(0,0)),lcase(reservenames(i)))>0 then reservename=false end if end if next end if end if set rs=nothing end if '限制一个IP重复注册帐号 if king_dbtype=1 then logsql="select count(logid) from kingpassport_log where ip='"&safe(king.ip)&"' and lognum=4 and getdate()-logdate<1;" else logsql="select count(logid) from kingpassport_log where ip='"&safe(king.ip)&"' and lognum=4 and now()-logdate<1;" end if if conn.execute(logsql)(0)>=1 then king.ol="

" king.ol="

"&pp.lang("tip/registration")&"
"&pp.lang("list/home")&"
"&re&"

" king.ol="

" else king.ol="

" king.ol="

" king.ol="

"&pp.lang("label/pass1")&" (6-30)" king.ol="" king.ol=king.check("pass1|7|"&encode(pp.lang("check/pwdcontrast"))&"|pass2;pass1|6|"&encode(pp.lang("check/pwdsize"))&"|6-30")&"

" king.ol="

"&pp.lang("label/pass2")&" (6-30)" king.ol="

" king.ol="

"&pp.lang("label/mail")&" ("&pp.name_min&"-"&pp.name_max&")" king.ol="" if cstr(data(2,0))="0" then checked=" checked=""checked""" else checked="" king.ol="" king.ol=""&pp.lang("label/mailis")&"" king.ol=king.check("ppmail|6|"&encode(pp.lang("check/mail"))&"|1-100;ppmail|4|"&encode(pp.lang("check/mail1"))&";ppmail|9|"&encode(pp.lang("check/mail2"))&"|select count(*) from kingpassport where ppmail='$pro$'")&"

" king.ol="

"&pp.lang("label/question")&" (1-50)" king.ol="" king.ol=king.check("ppquestion|6|"&encode(pp.lang("check/question"))&"|1-50")&"

" king.ol="

"&pp.lang("label/answer")&" (1-50)" king.ol="" king.ol=king.check("ppanswer|6|"&encode(pp.lang("check/answer"))&"|1-50")&"

" king.ol="

" king.ol=" " king.ol="" king.ol=""&pp.lang("label/protocal")&"" king.ol="

" king.ol="

" end if if king.ischeck and king.ismethod then '参数设置 if cstr(data(2,0))="0" then data(2,0)=0 else data(2,0)=1 ppkey=salt(6):pppass=form("pass1") pppass=md5(pppass&ppkey,1) '提交数据 conn.execute "insert into kingpassport ("&sql&",pppass,ppkey,pplanguage) values ('"&safe(data(0,0))&"','"&safe(data(1,0))&"',"&safe(data(2,0))&",'"&safe(data(3,0))&"','"&safe(data(4,0))&"','"&safe(pppass)&"','"&safe(ppkey)&"','"&safe(king_language)&"')" conn.execute "insert into kingpassport_log (ppname,ip,lognum,logdate) values ('"&safe(data(0,0))&"','"&safe(king.ip)&"',4,'"&safe(tnow)&"')" '写cookies response.cookies(md5(king_salt_user,0))("name")=data(0,0) response.cookies(md5(king_salt_user,0))("pass")=md5(left(ppkey,3)&pppass,1) if king_remoteurl="../" then response.cookies(md5(king_salt_user,0)).domain=king.url else response.cookies(md5(king_salt_user,0)).domain=king_domain end if session(md5(king_salt_user,0))=data(0,0)&"|"&king_language&"|0" '输出提示 king.clearol king.ol="

" king.ol="

"&pp.lang("list/center")&"
"&pp.lang("list/home")&"
"&re&"
"&pp.lang("common/logout")&"

" king.ol="

" end if king.value "title",encode(pp.lang("common/regpp")) king.value "inside",encode(king.writeol) king.outhtm pp.template,"",king.invalue end sub %>