<%
'@@0manage/1s_udus/2list|yun/3page/4psize/5ssx/6ssm/7ssf/8ssp/9sss.HTML
'@@0manage/1s_udus/2edit|add|del/3*id.HTML
'@@0s_udus/1list|yun/2page/3psize/4ssx/5ssm/6ssf/7ssp/8sss.HTML
'@@0s_udus/1edit|add/2*id.HTML
'@@0s_udus/1show/2*sn|-.HTML
if e_xa<1 and (aibj(g_u0,s_udus) or aibj(g_u1,s_udus)) then
e_xa=e_xa+1
ep_id=0:ep_ew=ew_sn:ep_el=0:ep_sn=s_udus:ep_mc="会员主页":ep_dm="会员":ep_sk="":ep_sx=0:ep_bs=0:ep_bs=i_xkfl:ep_ls=0:ep_xy=1:ep_px=0:ep_qx=0:ep_ot="":ep_fl="":ep_xt=""
e_sks=1
Call esq()
Call doq(1,e_uer,6,g_u0,s_udus,s_uduss&s_umlbs)

if e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udus) and aibj(g_u2,s_umtj) then
Call usadd(1)
elseif aibj(g_u0,s_udus) and aibj(g_u1,s_umtj) then
Call usadd(0)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udus) and aibj(g_u2,s_umxg) then
Call usedit(1)
elseif aibj(g_u0,s_udus) and aibj(g_u1,s_umxg) then
Call usedit(0)
elseif aibj(g_u0,s_udus) and (aibj(g_u1,s_umxx) or aibj(g_u1,s_umzs)) then
Call usshow(0)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udus) and (aibj(g_u2,s_umxx) or aibj(g_u2,s_umzs)) then
Call usshow(1)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udus) and ((aibj(g_u2,s_umsc) and aiint(g_u3)>0) or aibj(g_u2,s_umsc&"-x")) then
Call usdel()
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udus) and dkdir(2,g_u3) then
Call efread(esnff(g_u2))
Call uslist(1)
elseif aibj(g_u0,s_udus) and dkdir(2,g_u2) then
Call efread(esnff(g_u1))
Call uslist(0)
end if
'------get skin 0
if ainull(e_skc) then
if aibj(g_u0,s_umgl) then
e_skc=dosk("a","admin","")
else
e_skc=dosk("b","9","us")
end if
end if
'------get skin 1
Response.Write esr(0,e_skc):Response.End()
end if
'-----------------------------------
'Data Table
'=uslie()
'-----------------------------------
Function uslie(usfty)
if usfty="form" then
uslie="sn,sj,er,mm,zj,zy,zs,ef,ct,dz,bt,nr,dh,em,la,lb,lc,ld,tm,t1,t2,ip,ty,fl,xy,hi,xi,xo,px,ux,jd,jq,jt,jb,jy,up,ot,qm,cj,ch,xt"
elseif usfty="top" then
'@@0us_id,1us_sn,2us_bt,3us_tm,4us_hi,5us_xi,6us_er,7us_up,8us_ot,9us_xy,10us_ef,11us_xo
uslie="us_id,us_sn,us_bt,us_tm,us_hi,us_xi,us_er,us_up,us_ot,us_xy,us_ef,us_xo"
elseif usfty="login" then
uslie="us_id,us_sn,us_sj,us_er,us_zj,us_zy,us_ef,us_bt,us_dh,us_em,us_ty,us_xy,us_hi,us_xi,us_xo,us_px,us_jd,us_jq,us_jt,us_jb,us_jy,us_up,us_la,us_ip,us_t1,us_xt,us_ld"
elseif usfty=s_umlb then
uslie="us_id,us_sn,us_sj,us_er,us_zj,us_bt,us_dh,us_em,us_ty,us_xy,us_hi,us_xi,us_xo,us_px,us_jd,us_jq,us_jt,us_jb,us_jy,us_up,us_qm,us_t1,us_ip,us_tm"
elseif usfty="all" then
uslie="us_id,us_sn,us_sj,us_er,us_mm,us_zj,us_zy,us_zs,us_ef,us_ct,us_dz,us_bt,us_nr,us_dh,us_em,us_la,us_lb,us_lc,us_ld,us_tm,us_t1,us_t2,us_ip,us_ty,us_fl,us_xy,us_hi,us_xi,us_xo,us_px,us_ux,us_jd,us_jq,us_jt,us_jb,us_jy,us_up,us_ot,us_qm,us_cj,us_ch,us_xt"
elseif usfty="alls" then
uslie="us_id,us_sn,us_sj,us_er,us_zj,us_zy,us_zs,us_ef,us_ct,us_dz,us_bt,us_nr,us_dh,us_em,us_la,us_lb,us_lc,us_ld,us_tm,us_t1,us_t2,us_ip,us_ty,us_fl,us_xy,us_hi,us_xi,us_xo,us_px,us_jd,us_jq,us_jt,us_jb,us_jy,us_up,us_ot,us_qm,us_cj,us_ch,us_xt"
end if
End Function
'-----------------------------------
'top uss list arr
'=usrr(usfnm,usfpf=0ep/1ef/2ssp/3ssf/4ssx/5ssm/6sss)
'-----------------------------------
Function usrr(usfnm,usfps)
Call usss(0)
Call ustj(usfps,0,0)
if usfnm=0 or ainull(usfnm) then
usfnm=i_nmhc
else
usfnm=aiint(usfnm)
end if
if e_aiidl<>"" and e_aiidl<>"," then
dim usdidl
usdidl=left(e_aiidl,len(e_aiidl)-1)
if not ainull(uswhere) then uswhere=uswhere&" and "
uswhere=uswhere&"us_id not in ("&usdidl&")"
end if
if e_aiids<>"" and e_aiids<>"," then
dim usdids
usdids=left(e_aiids,len(e_aiids)-1)
if ew_cf=0 or (ew_cf=1 and aibj(right(usfps,len(s_umqb)),s_umqb)) then
if not ainull(uswhere) then uswhere=uswhere&" and "
uswhere=uswhere&"us_id not in ("&usdids&")"
end if
end if
if gystop(usfnm,usbid,uslie("top"),usbiao,uswhere,usorder,"") then
usrr=gysar
end if
End Function
'-----------------------------------
'user login in date
'=usein(usfty,usfzh,usfmm)
'-----------------------------------
Function usein(usfty,usfzh,usfmm)
dim rsuo,usdsys
if usfty=110 and e_gdj>1 then
uswhere="us_er='"&usfzh&"'"
usdsys=espxx("管理员"&e_gmc&"链带登录")
else
uswhere="us_er='"&usfzh&"' and us_mm='"&usfmm&"'"
usdsys=espxx("登录")
end if
Call saik(rsuo,"select "&uslie("login")&" from "&usbiao&" where "&uswhere&"",1,3)
If rsuo.BOF And rsuo.EOF Then
if usfty<10 then usein=aitiao("账户或密码不正确，会员登录"&s_ztsb,e_ulogin,i_nmtz+1)
else
Call aiks(i_xkhc,i_hcchy,aimm(g_gmm,replace(rsuo("us_id")&g_gx&rsuo("us_sn")&g_gx&rsuo("us_sj")&g_gx&rsuo("us_er")&g_gx&rsuo("us_zj")&g_gx&rsuo("us_zy")&g_gx&rsuo("us_ef")&g_gx&rsuo("us_bt")&g_gx&rsuo("us_dh")&g_gx&rsuo("us_em")&g_gx&rsuo("us_ty")&g_gx&rsuo("us_xy")&g_gx&rsuo("us_hi")&g_gx&rsuo("us_xi")&g_gx&rsuo("us_xo")&g_gx&rsuo("us_px")&g_gx&rsuo("us_jd")&g_gx&rsuo("us_jq")&g_gx&rsuo("us_jt")&g_gx&rsuo("us_jb")&g_gx&rsuo("us_jy")&g_gx&rsuo("us_up")&g_gx&rsuo("us_la")," ",""),0),1)
'"EESaichat" with same chat config.asp
if i_xkult=1 then Response.Cookies("EESaichat")=rsuo("us_sn")&"|"&rsuo("us_xy")&"|"&rsuo("us_ty")&"|"&rsuo("us_er")&"|"&rsuo("us_bt")
e_uid=rsuo("us_id")
e_uer=rsuo("us_er")
e_uxy=rsuo("us_xy")
e_uzj=rsuo("us_zj")
rsuo("us_ip")=aiip()
if date()>cdate(rsuo("us_t1")) then
rsuo("us_t1")=date()
if ainull(rsuo("us_xt")) then
rsuo("us_xt")=usdsys
else
rsuo("us_xt")=rsuo("us_xt")&usdsys
end if
end if
if not aibj(usfty,"110") then response.Cookies("EESaiUp")=rsuo("us_xy"):Response.Cookies("EESaiUp").Expires=g_cktm
rsuo.update
if usfty<10 then
'ailasturl(aifstr)
usein=aitiao("会员登录"&s_ztcg,e_uuser,i_nmtz)
end if
end if
Call saig(rsuo)
End Function
'-----------------------------------
'add/edit form
'=usform()
'-----------------------------------
Function usform(usfty,usfqx)
dim usdupd,usdcjs
if usfty=0 then
us_er="":us_mm="":us_zs="":us_dz="":us_bt="":us_nr="":us_dh="":us_em="":us_la="":us_lb="":us_lc="":us_ld="":us_fl="":us_ot="":us_qm="":us_cj="":us_ch=""
us_sn="US"&aisn(1)
us_zj=0
us_zy=0
us_tm=now()
us_t1=date()
us_t2=date()+7
us_ip=aiip()
us_ty=0
us_xy=i_xkxy
us_hi=0
us_xi=0
us_xo=0
us_px=0
us_ux=0
us_uy=0
us_jd=0
us_jq=0
us_jt=0
us_jb=0
us_jy=0
us_ch=0
us_ct="中国, 江苏省, 南京市, 江宁区"
usdcjs=s_ztch
if e_uer="" then
us_sj="0"
us_xt=espxx("注册")
else
us_sj=e_uer
us_xt=espxx(s_ztyq&"注册"&i_gg&e_uer)
e_mt=esbts(s_udxus,s_udlus,s_ztyq&"注册","")
end if
else
if ainull(us_cj) then
usdcjs=s_ztch
else
if aibj(right(trim(us_cj),1),",") then us_cj=left(trim(us_cj),len(trim(us_cj))-1)
usdcjs=replace(s_ztch&"|"&us_cj, ",","|")
end if
'认证更新
us_t1=date()
us_xt=us_xt&espxx("修改"&i_gg&e_uer)
end if
usdupd=esupcc(s_udus,us_sn)
usform="<div class=""l-f""><form id=""EESaiForm"" name=""EESaiForm"" action="""" method=""post"" AUTOCOMPLETE=""off""><ul>"&aibutian(1)
if usfqx=1 then
usform=usform&"<li class=""l-1"">账户："&aiinput("","er","",66,50,"*","f-a2|f-b2|f-c2",us_er)&"密码："&aiinput("password","mm","",3,50,"*","f-a1|f-b1|f-c1",aimm(g_gmm,us_mm,1))&"称号："&aiselect("ch","","*","f-s1",us_ch,0,usdcjs)&"</li>"
usform=usform&"<li>称呼："&aiinput("","bt","",0,50,"*","f-a2|f-b2|f-c2",us_bt)&"电话："&aiinput("","dh","",0,20,"*","f-a2|f-b2|f-c2",us_dh)&"</li>"
usform=usform&"<li class=""l-1"">电邮："&aiinput("","em","",0,100,"*常用电子邮箱","f-a1|f-b1|f-c1",us_em)&"ＱＱ："&aiinput("","la","",6,20,"","f-a1|f-b1|f-c1",us_la)&"微信："&aiinput("","lb","",0,50,"*","f-a1|f-b1|f-c1",us_lb)&"支付："&aiinput("","lc","",0,100,"支付宝账号","f-a1|f-b1|f-c1",us_lc)&"</li>"
usform=usform&"<li>绑码："&aiinput("","ld","",0,200,"登录绑定标示","f-a4|f-b4|f-c4",us_ld)&"</li>"
usform=usform&""&efselect(0,i_xkfl,"ef",s_udus,us_ef)&""
usform=usform&"<li>地区："&utselect(1,"",us_ct,"ct","")&"</li>"
usform=usform&"<li class=""l-1"">地址："&aiinput("","dz","",0,200,"*","f-a4|f-b4|f-c4",us_dz)&"</li>"
usform=usform&"<li>签名："&aiinput("","qm","",0,200,"*","f-a4|f-b4|f-c4",us_qm)&"</li>"
usform=usform&"<li class=""l-1"">介绍："&esedit(esnr(us_nr),"nr",8)&"</li>"
usform=usform&"<li>时间："&aiinput("","tm","",99,200,"*注册时间","f-a2|f-b2|f-c2",us_tm)&"到期："&aiinput("","t2","",99,200,"*特殊功能到期时间","f-a2|f-b2|f-c2",us_t2)&"</li>"
usform=usform&"<li class=""l-1"">更新："&aiinput("","t1","",99,200,"*最后登录更新时间","f-a1|f-b1|f-c1",us_t1)&"来自："&aiinput("","ip","",0,200,"*最后登录IP地址","f-a1|f-b1|f-c1",us_ip)&"编码："&aiinput("","sn","",0,200,"*","f-a1|f-b1|f-c1",us_sn)&"上级："&aiinput("","sj","",0,200,"*","f-a1|f-b1|f-c1",us_sj)&"<script src="""&eshref(i_dir&"GuoYanSai/FTM.js",3)&"""></script></li>"
usform=usform&"<li>认证："&aiselect("zj","","*经过认证的账户可以开通专属空间并发布信息","f-s2",us_zj,0,i_buszj)&"级别："&aiselect("ty","","","f-s1",us_ty,0,i_busty)&"状态："&aiselect("xy","","*","f-s1",us_xy,0,i_bxy)&"</li>"
usform=usform&"<li class=""l-1"">类型："&aiselect("zy","","认证证件的类型","f-s2",us_zy,0,i_buszy)&"证件："&aiinput("","zs","",0,50,"*请输入证件号","f-a2|f-b2|f-c2",us_zs)&"</li>"
usform=usform&"<li>排序："&aiinput("","px","",6,50,"*","f-a1|f-b1|f-c1",us_px)&"点击："&aiinput("","hi","",6,50,"*","f-a1|f-b1|f-c1",us_hi)&"鲜花："&aiinput("","xi","",6,50,"*","f-a1|f-b1|f-c1",us_xi)&"鸡蛋："&aiinput("","xo","",6,50,"*","f-a1|f-b1|f-c1",us_xo)&"</li>"
usform=usform&"<li class=""l-1"">经验："&aiinput("","jy","",6,50,"*","f-a1|f-b1|f-c1",us_jy)&"金币："&aiinput("","jb","",6,50,"*","f-a1|f-b1|f-c1",us_jb)&"金条："&aiinput("","jt","",6,50,"*","f-a1|f-b1|f-c1",us_jt)&"金钱："&aiinput("","jq","",6,50,"*","f-a1|f-b1|f-c1",us_jq)&"</li>"
usform=usform&"<li>等级："&aiinput("","jd","",6,50,"*","f-a1|f-b1|f-c1",us_jd)&"短信："&aiinput("","ux","",6,50,"*","f-a1|f-b1|f-c1",us_ux)&"交易："&aiinput("","uy","",6,50,"*","f-a1|f-b1|f-c1",us_uy)&"成就："&aiinput("","cj","",0,200,"*多个成就请使用|隔开","f-a1|f-b1|f-c1",us_cj)&"</li>"
usform=usform&"<li class=""l-1"">照片："&aiinput("","up","",0,200,"标志图片或头像","f-a2|f-b2|f-c2",us_up)&esup("0|1|"&us_sn&"|"&usdupd&"|0|EESaiForm|up|"&ew_py&"|"&ew_ps&"|0|0.ees")&"</li>"
usform=usform&"<li>标签："&aiinput("","fl","",0,200,"标签请使用|隔开","f-a4|f-b4|f-c4",us_fl)&"</li>"
usform=usform&"<li class=""l-1"">其他："&aiinput("","ot","",0,200,"分类请使用|隔开","f-a4|f-b4|f-c4",us_ot)&"</li>"
usform=usform&"<li>系统："&eseditxt(us_xt,"xt",1)&"</li>"
else
usform=usform&"<li class=""l-1"">账户："&aiinput("","er","",66,50,"*","f-a2|f-b2|f-c2",us_er)&"密码："&aiinput("password","mm","",3,50,"*","f-a1|f-b1|f-c1",aimm(g_gmm,us_mm,1))&"称号："&aiselect("ch","","","f-s1",us_ch,0,usdcjs)&"</li>"
usform=usform&"<li>称呼："&aiinput("","bt","",0,50,"","f-a2|f-b2|f-c2",us_bt)&"电话："&aiinput("","dh","",7,20,"","f-a2|f-b2|f-c2",us_dh)&"</li>"
usform=usform&"<li class=""l-1"">ＱＱ："&aiinput("","la","",6,20,"","f-a1|f-b1|f-c1",us_la)&"微信："&aiinput("","lb","",0,50,"*","f-a1|f-b1|f-c1",us_lb)&"支付："&aiinput("","lc","",0,100,"支付宝账户","f-a2|f-b2|f-c2",us_lc)&aiinput("hidden","ld","",0,0,"","",us_ld)&"</li>"
if usfty=0 then
usform=usform&"<li>电邮："&aiinput("","em","",8,100,"*请输入有效的email地址(账户审核与升级必须).","f-a2|f-b2|f-c2",us_em)&aiinput("hidden","zj","",0,0,"","",us_zj)&aiinput("hidden","zy","",0,0,"","",us_zy)&aiinput("hidden","zs","",0,0,"","",us_zs)&"请输入正确电子邮箱</li>"
else
usform=usform&""&efselect(0,i_xkfl,"ef",s_udus,us_ef)&""
usform=usform&"<li><div class=""l-ft"">"
if us_em<>"" and aiint(us_xy)>i_xkxy then
usform=usform&"<strong>第一步：电子邮箱验证 √</strong><br>电子邮箱："&us_em&aiinput("hidden","em","",0,0,"","",us_em)&" （提示：如需修改请联系管理员）"
if trim(us_zs)<>"" and aiint(us_zj)>1 then
usform=usform&"<br><br><strong>第二步：身份认证  √</strong><br>认证信息："&aiarr(i_buszy,"|",aiint(us_zy))&" "&us_zs&"（提示：如需修改请联系管理员）"
usform=usform&"<br><br><strong>感谢您的配合！您已经完成账户升级，可以正常使用上传、会员网站等功能！</strong>"
if us_zj<>e_uzj then usform=usform&"<br><br><strong><a href="""&e_uexit&""">[请点击这里退出后重新登录以便获取更多功能权限]</a></strong>"
usform=usform&aiinput("hidden","zj","",0,0,"","",us_zj)&aiinput("hidden","zy","",0,0,"","",us_zy)&aiinput("hidden","zs","",0,0,"","",us_zs)
else
usform=usform&"<br><br><strong>第二步：身份认证 （请确认认证信息有效并保持电话畅通等待认证）</strong><br>认证："&aiselect("zy","","*请选择证件类型","f-s1",aiint(us_zy),0,i_buszy)&"号码："&aiinput("","zs","",0,50,"*请输入证件号","f-a2|f-b2|f-c2",us_zs)&"<br><input type=""checkbox"" id=""zj"" name=""zj"" value=""1"" onclick=""if (this.checked){eesrz.disabled=false}else{eesrz.disabled=ture}"">同意申请认证（信息越完善通过认证几率越大）<br><input type=""submit"" disabled=""true"" class=""f-sb"" id=""eesrz"" name=""eesrz"" value=""提交认证"" title=""需要勾选[同意申请认证]选框才能提交""><br>提示：通过认证可以获得独立会员网站，请务必确认电话与证件号正确。"
end if
usform=usform&""
else
usform=usform&"<strong>账户升级：电子邮箱验证</strong><br>电子邮箱："&aiinput("","em","",8,100,"*请输入有效的email地址(账户审核与升级必须).","f-a2|f-b2|f-c2",us_em)&aiinput("hidden","zj","",0,0,"","",us_zj)&aiinput("hidden","zy","",0,0,"","",us_zy)&aiinput("hidden","zs","",0,0,"","",us_zs)&""&aibutton(2,"eesrz","","f-sb","提交验证")
end if
usform=usform&"</div></li>"
end if
usform=usform&"<li>地区："&utselect(1,"",us_ct,"ct","")&"</li>"
usform=usform&"<li class=""l-1"">地址："&aiinput("","dz","",0,200,"","f-a4|f-b4|f-c4",us_dz)&"</li>"
usform=usform&"<li>介绍："&esedit(esnr(us_nr),"nr",8)&"</li>"
if usfty=1 then usform=usform&"<li>照片："&aiinput("","up","",0,200,"标志图片或头像","f-a2|f-b2|f-c2",us_up)&esup("0|1|"&us_sn&"|"&usdupd&"|0|EESaiForm|up|"&ew_py&"|"&ew_ps&"|0|0.ees")&"</li>"
usform=usform&"<li class=""l-1"">标签："&aiinput("","fl","",0,200,"标签请使用|隔开","f-a4|f-b4|f-c4",us_fl)&"</li>"
usform=usform&"<li>签名："&aiinput("","qm","",0,200,"","f-a4|f-b4|f-c4",us_qm)&"</li>"
usform=usform&aiinput("hidden","ot","",0,0,"","",us_ot)&aiinput("hidden","tm","",0,0,"","",us_tm)&aiinput("hidden","t2","",0,0,"","",us_t2)&aiinput("hidden","t1","",0,0,"","",us_t1)&aiinput("hidden","ip","",0,0,"","",us_ip)&aiinput("hidden","sn","",0,0,"","",us_sn)&aiinput("hidden","sj","",0,0,"","",us_sj)&aiinput("hidden","xy","",0,0,"","",us_xy)&aiinput("hidden","ty","",0,0,"","",us_ty)&aiinput("hidden","ux","",0,0,"","",us_ux)&aiinput("hidden","uy","",0,0,"","",us_uy)&aiinput("hidden","px","",0,0,"","",us_px)&aiinput("hidden","hi","",0,0,"","",us_hi)&aiinput("hidden","xi","",0,0,"","",us_xi)&aiinput("hidden","xo","",0,0,"","",us_xo)&aiinput("hidden","jy","",0,0,"","",us_jy)&aiinput("hidden","jb","",0,0,"","",us_jb)&aiinput("hidden","jt","",0,0,"","",us_jt)&aiinput("hidden","jq","",0,0,"","",us_jq)&aiinput("hidden","jd","",0,0,"","",us_jd)&aiinput("hidden","cj","",0,0,"","",us_cj)&aiinput("hidden","xt","",0,0,"","",us_xt)&"</li>"
end if
usform=usform&eskyx(1,1,2)
if usfty=1 then
usform=usform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umxgs)&aiinput("hidden","id","",0,0,"","",us_id)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
elseif usfty=0 then
usform=usform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umtjs)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
end if
usform=usform&"</ul></form></div>"
End Function
'-----------------------------------
'add action
'=usadd()
'-----------------------------------
Function usadd(usfqx)
ew_bt=s_umtjs&s_uduss&","&ew_bt:ew_zt=s_umtjs&s_uduss&","&ew_zt:ew_nr=s_umtjs&s_uduss&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&e_ur1&""">"&s_umtjs&s_uduss&"</a>"
e_mt=esbts(s_udxus,s_udlus,s_umtjs&s_uduss&g_gy&e_ur1,s_uduss&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) and e_uxy>i_xkxy  then
if aireqx("sn,er,mm,em") then
if gysfm(uslie("form"),usbiao,"us_sn='"&aistr(aireq("sn"))&"' or us_em='"&aistr(aireq("em"))&"' or us_er='"&aistr(aireq("er"))&"'","us_",1) then
Call aisn(0)
if e_uid>0 and aibj(e_uer,aireq("sj")) then
e_ma=e_ma&aitiao(s_umtjs&s_uduss&s_ztcg&"<script language=""JavaScript"" charset=""GB2312"" src="""&g_email&"?"&aireq("em")&"-i-4-i-"&request("er")&"-i-"&request("mm")&"-i-"&e_uer&"-i-"&e_uem&"-i-"&e_tur&"""></script>",e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_umtjs&s_uduss&s_ztcg,e_ur0)
end if
else
e_ma=e_ma&aigo(s_umtjs&s_uduss&s_ztsb&"[邮箱或账户已被使用]",1)
end if
else
e_ma=e_ma&aigo(s_umtjs&s_uduss&s_ztsb&"[账户、密码、邮箱不能为空]",1)
end if
else
e_ma=usform(0,usfqx)&e_ma
end if
End Function
'-----------------------------------
'edit action
'=usedit()
'-----------------------------------
Function usedit(usfqx)
ew_bt=s_umxgs&s_uduss&","&ew_bt:ew_zt=s_umxgs&s_uduss&","&ew_zt:ew_nr=s_umxgs&s_uduss&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&eshref(s_umgl&g_urg&s_udus&g_urg&s_umxg&g_urg&g_u3&g_urz,77)&""">"&s_umxgs&s_uduss&"</a>"
e_mt=esbts(s_udxus,s_udlus,s_umxgs&s_uduss&g_gy&eshref(s_umgl&g_urg&s_udus&g_urg&s_umxg&g_urg&g_u3&g_urz,77),s_umtjs&s_uduss&g_gy&e_ur1&g_gx&s_uduss&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) or (aibj(aireq("eesrz"),"提交验证") and len(aireq("em"))>4) or (aibj(aireq("eesrz"),"提交认证") and not ainull(aireq("zs"))) then
if aireqx("sn,sj,er,em") and (aibj(aireq("id"),e_uid) or aibj(aireq("sj"),e_uer) or e_gdj>3 or e_uty>2)then
if gysfm(uslie("form"),usbiao,"us_id="&aiint(aireq("id"))&" or (us_id<>"&aiint(aireq("id"))&" and (us_sn='"&aistr(aireq("sn"))&"' or us_em='"&aistr(aireq("em"))&"' or us_er='"&aistr(aireq("er"))&"'))","us_",2) then
if aibj(aireq("eesrz"),"提交验证") and len(aireq("em"))>4 then
Call usergx("em",aireq("em"))
e_ma=e_ma&aigo(s_umxgs&s_uduss&s_ztcg&"\n\n即将进入电子邮箱验证页面。",eshref(s_druser&"?email/1"&g_urz,3))
else
e_ma=e_ma&aigo(s_umxgs&s_uduss&s_ztcg,e_ur0)
end if
else
e_ma=e_ma&aigo(s_umxgs&s_uduss&s_ztsb&"[邮箱或账户已被使用]",1)
end if
else
e_ma=e_ma&aigo(s_umxgs&s_uduss&s_ztsb&"\n\n请您认真填写表单内容后提交！",1)
end if
else
if usfqx=1 then
if ainull(g_u3) then
uswhere="us_id="&aiint(e_uid)&""
else
uswhere="us_id="&aiint(g_u3)&""
end if
elseif ainull(g_u2) then
uswhere="us_id="&aiint(e_uid)&""
else
uswhere="us_id="&aiint(g_u2)&""
end if
if gysread(uslie("all"),usbiao,uswhere,"") then
ew_bt=us_er&","&ew_bt:ew_zt=us_er&","&ew_zt:ew_nr=us_er&","&ew_nr
e_ma=usform(1,usfqx)&e_ma
else
e_ma=e_ma&aigo(s_uduss&s_ztno,1)
end if
end if
End Function
'-----------------------------------
'del
'=usdel()
'-----------------------------------
Function usdel()
ew_bt=s_uduss&s_umscs&","&ew_bt:ew_zt=s_uduss&s_umscs&","&ew_zt:ew_nr=s_uduss&s_umscs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; "&s_uduss&s_umscs&""
e_mt=esbts(s_udxus,s_udlus,s_umscs&s_uduss,s_umtjs&s_uduss&g_gy&e_ur1&g_gx&s_uduss&s_umlbs&g_gy&e_ur0)
if e_uty>2 then
if aiint(g_u3)>0 then
if gysdel(usbid,usbiao,"us_id="&aiint(g_u3)) then
e_ma=e_ma&aitiao(s_uduss&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduss&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u2,s_umsc&"-x") then
if gysdel(usbid,usbiao,0) then
e_ma=e_ma&aitiao(s_uduss&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduss&s_umscs&s_ztsb,1)
end if
end if
end if
End Function
'-----------------------------------
'us read
'=usread(er)
'-----------------------------------
Function uslx(usfty,usfxy,usfer,usfem,usfuk)
if not aibj(usfer,e_uer) or e_gdj>2 then
uslx=uslx&"<a href=""#"" onclick=""FTC('"&eshref(s_udux&g_urg&s_umfb&g_urg&usfer&g_urz,66)&"','"&s_udux&"','456','128')"" class=""y-n0"">"&s_ztcd&"</a>"
if i_xkadd>0 then
uslx=uslx&"<a href=""#"" onclick=""FTC('"&eshref(s_uduy&g_urg&usfty&g_urg&s_umfb&g_urg&usfer&g_urz,66)&"','"&s_udukw&"','598','358')"" class=""y-n1"">"
if usfty=8 then
uslx=uslx&"提供服务"
else
uslx=uslx&s_ztcy
end if
uslx=uslx&"</a>"
if usfty=8 then uslx=uslx&"<a href="""&eshref(s_udus&g_urg&s_umzs&g_urg&usfer&g_urz,66)&""" class=""y-n2"">会员信息</a>"
end if
if aiint(usfxy)>i_xkxy and e_uxy>i_xkxy then uslx=uslx&"<a target=""_blank"" href="""&eshref(s_druser&"?email/"&usfem&g_urz,3)&""" class=""y-n2"">"&s_ztcj&"</a>"
uslx=uslx&"<a href=""#"" onclick=""FTC('"&eshref(s_uduu&g_urg&s_umtj&g_urg&usfer&g_urz,66)&"','"&s_uduu&"','456','68')"" class=""y-n3"">"&s_umtjs&s_uduus&"</a>"
uslx=uslx&ictc(2)
end if
End Function
'-----------------------------------
'us read
'=usread(er)
'-----------------------------------
Function usread(usfer)
dim usder:usder=usfer
us_id=0:us_sn="":us_sj="":us_er="":us_mm="":us_zj=0:us_zy=0:us_zs="":us_ef="":us_ct="":us_dz="":us_bt="":us_nr="":us_dh="":us_em="":us_la="":us_lb="":us_lc="":us_ld="":us_tm="":us_t1="":us_t2="":us_ip="":us_ty=0:us_fl="":us_xy=0:us_hi=0:us_xi=0:us_xo=0:us_px=0:us_jd=0:us_jq=0:us_jt=0:us_jb=0:us_jy=0:us_up="":us_ot="":us_qm="":us_cj="":us_ch="":us_xt=""
if not aibj(usder,"0") and not ainull(usder) and not aibj(usder,s_umqb) then
if gysread(uslie("all"),usbiao,"us_er='"&aistr(usder)&"'","") then
usread=us_bt
else
usread=""
end if
end if
End Function
'-----------------------------------
'show
'=usshow()
'-----------------------------------
Function usshow(usfty)
if usfty=1 then
if ainull(g_u3) then
uswhere="us_sn='"&aistr(e_usn)&"'"
elseif aibj(g_u2,s_umzs) then
uswhere="us_er='"&aistr(g_u3)&"'"
else
uswhere="us_sn='"&aistr(g_u3)&"'"
end if
else
if ainull(g_u2) then
uswhere="us_sn='"&aistr(e_usn)&"'"
elseif aibj(g_u1,s_umzs) then
uswhere="us_er='"&aistr(g_u2)&"'"
else
uswhere="us_sn='"&aistr(g_u2)&"'"
end if
end if
if gysread(uslie("alls"),usbiao,uswhere,"") then
ef_sn=us_ef
ew_bt=us_er&","&ew_bt:ew_zt=us_er&","&ew_zt:ew_nr=us_er&","&ew_nr:ew_cp=us_er&","&ew_cp
e_wl=e_wl&"&gt;&gt; <a href="""&eshref(s_udus&g_urg&s_umxx&g_urg&us_sn&g_urz,66)&""">"&us_er&"</a>"
dim usdpur,usdpg
usdpg=aiint(g_u3)
usdpur=eshref(s_udus&g_urg&g_u0&g_urg&us_sn&g_urz,66)
if aiint(us_ty)>2 then
d_ussx=2
elseif aiint(us_ty)>0 then
d_ussx=1
else
d_ussx=0
end if
if aibj(g_u1,s_umzs) or aibj(g_u2,s_umzs) then
e_mt=esbts(0,s_udlus,s_umzss&s_uduss&g_gy&eshref(s_udus&g_urg&s_umzs&g_urg&us_er&g_urz,66),s_uduss&s_umxxs&g_gy&eshref(s_udus&g_urg&s_umxx&g_urg&us_sn&g_urz,66)&g_gx&s_uduss&s_umlbs&g_gy&e_ur0)
else
e_mt=esbts(0,s_udlus,s_uduss&s_umxxs&g_gy&eshref(s_udus&g_urg&s_umxx&g_urg&us_sn&g_urz,66),s_umzss&s_uduss&g_gy&eshref(s_udus&g_urg&s_umzs&g_urg&us_er&g_urz,66)&g_gx&s_uduss&s_umlbs&g_gy&e_ur0)
end if
if e_gdj>1 or aiint(us_xy)>0 or aibj(us_er,e_uer) then
icdcb=us_er
if not ainull(us_bt) then icdcb=icdcb&"<span>"&us_bt&"</span>"
'--------------------------------HENG 0
icdcd=eshi(6,us_id,us_hi)
if not ainull(us_tm) then icdcd=icdcd&"注册时间："&aitm(us_tm,9)
if not ainull(us_t1) then
if cdate(us_t1)>cdate(us_tm) then icdcd=icdcd&" 最近登录："&aitm(us_t1,0)
end if
if not ainull(us_ip) then icdcd=icdcd&" 登录地点："&us_ip
'--------------------------------HENG 1
if aiint(usdpg)<2 then
icdcf=""
if not ainull(us_up)  then
icdcf=icdcf&uspic(us_up,us_bt,us_bt,us_up,4)
elseif len(ew_pt)>3 then
icdcf=ew_pt
else
icdcf=""
end if
icdcg=""
if aiint(us_zj)>0 then icdcg=icdcg&"<li>认证："&aiarr(i_buszj,"|",aiint(us_zj))&"</li>"
if aiint(us_ch)>0 then icdcg=icdcg&"<li>称号："&aiarr(s_ztch&"|"&us_cj,"|",aiint(us_ch))&"</li>"
if aiint(us_ty)>0 then icdcg=icdcg&"<li>类型："&aiarr(i_busty,"|",aiint(us_ty))&"</li>"
if not ainull(us_sj) and not aibj(us_sj,"0") then icdcg=icdcg&"<li>邀请："&us_sj&"</li>"
if not ainull(us_dh) and not aibj(us_dh,"0") and e_uty>2 then icdcg=icdcg&"<li>电话："&us_dh&"</li>"
if not ainull(us_em) and not aibj(us_em,"0") and e_uxy>i_xkxy then icdcg=icdcg&"<li>邮箱："&us_em&"</li>"
if not ainull(us_la) and not aibj(us_la,"0") and e_uxy>i_xkxy then icdcg=icdcg&"<li>ＱＱ：<a target=""_blank"" Href=""http://wpa.qq.com/msgrd?v=3&uin="&us_la&"&site="&e_tur&"&menu=yes"" title=""点击这里给ＱＱ["&us_la&"]发送消息""><img border=""0"" src="""&eshref(i_msk&"sys/qqonline.gif",3)&"""></a>　"&us_la&"</li>"
if not ainull(us_qm) and not aibj(us_qm,"0") then icdcg=icdcg&"<li><b>『"&us_qm&"』</b></li>"
if e_uxy>0 then
icdcg=icdcg&"<div class=""c-k tc"">"&uslx(7,us_xy,us_er,us_em,uk_ur)&"</div>"
end if
end if
'--------------------------------CONTENT 0
icdci=esnrgys(us_nr,usdpur,usdpg)
icdci=icdci&esfx()
'--------------------------------CONTENT 1
if ew_pj>0 then icdcm=icdcm&"<div class=""c-l"">"&eshi(2,us_id,us_xi)&"</div>"
icdty=9
e_ma=e_ma&icnr(icdty,s_uduss,icdcb,icdcc,icdcd,icdcf,icdcg,icdci,icdcj,icdcm)
e_ma=e_ma&espl(eshref(s_udus&g_urg&s_umxx&g_urg&us_sn&g_urz,66),us_id,0,us_xt,usbiao,"us_xt","us_id","")
else
e_ma=e_ma&aigo(s_uduss&s_ztno&"(或未认证,暂不公开).",1)
end if
else
e_ma=e_ma&aigo(s_uduss&s_ztno,1)
end if
End Function
'-----------------------------------
'list
'=uslist()
'-----------------------------------
Function uslist(usfqx)
if ef_id>0 then e_wl=e_wl&" &gt;&gt; <a href="""&eshref(s_udus&g_urg&ef_sn&g_urz,66)&""">"&ef_bt&"</a>"
if (e_gdj>3 or e_uty>2) and usfqx=1 then
e_mt=esbts(s_udxus,s_udlus,s_uduss&s_umlbs&g_gy&e_ur0,s_umtjs&s_uduss&g_gy&e_ur1&g_gx&aiarr(i_buszj,"|",1)&s_uduss&g_gy&eshref(s_umgl&g_urg&s_udus&g_urg&""&g_urg&""&g_urg&""&g_urg&""&g_urg&""&g_urg&"11"&g_urz,66))
elseif e_uxy>i_xkxy then
e_mt=esbts(s_udxus,s_udlus,s_uduss&s_umlbs&g_gy&e_ur0,"<i>"&s_ztyq&s_uduss&"</i>"&g_gy&e_ur1)
else
e_mt=esbts(s_udxus,s_udlus,s_uduss&s_umlbs&g_gy&e_ur0,"")
end if
dim uslpg,uslps,uslpuq,uslpuh,uslpur,uslgrr
if usfqx=1 then
uslpuq=eshref(s_umgl&g_urg&s_udus,66)
uslef=g_u2
lidms=g_u3
uslpuh=g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10
uslpur=uslpuq&g_urg&uslef&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&uslpuh&g_urz
uslpg=aiint(g_u4)
uslps=aiint(g_u5)
else
uslpuq=eshref(s_udus,66)
uslef=g_u1
lidms=g_u2
uslpuh=g_u5&g_urg&g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9
uslpur=uslpuq&g_urg&uslef&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&uslpuh&g_urz
uslpg=aiint(g_u3)
uslps=aiint(g_u4)
end if
if usfqx=1 then e_ma=e_ma&replace(icmenu("","","1|"&s_udus,ef_sn,4004,0,14,28,0),s_udus&g_urg,s_umgl&g_urg&s_udus&g_urg)

iclls="<div class=""l-tb"&estt(lidms,s_umlb)&"""><a href="""&uslpuq&g_urg&uslef&g_urg&s_umlb&g_urg&g_urg&g_urg&uslpuh&g_urz&""">"&s_umlbs&"</a></div><div class=""l-tb"&estt(left(lidms,3),"hun")&"""><a href="""&uslpuq&g_urg&uslef&g_urg&s_umlh&g_urg&g_urg&g_urg&uslpuh&g_urz&""">"&s_umlhs&"</a><li><a href="""&uslpuq&g_urg&uslef&g_urg&s_umlj&g_urg&g_urg&g_urg&uslpuh&g_urz&""">"&s_umljs&"</a></li><li><a href="""&uslpuq&g_urg&uslef&g_urg&s_umlc&g_urg&g_urg&g_urg&uslpuh&g_urz&""">"&s_umlcs&"</a></li></div><div class=""l-tb"&estt(lidms,s_umlp)&"""><a href="""&uslpuq&g_urg&uslef&g_urg&s_umlp&g_urg&g_urg&g_urg&uslpuh&g_urz&""">"&s_umlps&"</a></div><div class=""l-tb"&estt(lidms,s_umyq)&"""><a href="""&uslpuq&g_urg&uslef&g_urg&s_umyq&g_urg&g_urg&g_urg&uslpuh&g_urz&""">"&s_umyqs&"</a></div>"

Call usss(0)
e_ma=e_ma&icliq(iclls,uslpuq&g_urg&uslef&g_urg&lidms,uslpuh,e_gdj,usfqx,"us")
Call ustj(s_udus&g_urg&uslef&g_urg&uslpuh,0,0)
if uslps=0 then
if aibj(lidms,s_umyq) then
uslps=i_nmhc
else
uslps=i_nmlb
end if
end if

'@@us_id,1us_sn,2us_sj,3us_er,4us_zj,5us_bt,6us_dh,7us_em,8us_ty,9us_xy,10us_hi,11us_xi,12us_xo,13us_px,14us_jd,15us_jq,16us_jt,17us_jb,18us_jy,19us_up,20us_qm,21us_t1,22us_ip,23us_tm,24us_nr
if gyslist(usbid,uslie(s_umlb)&",us_nr",usbiao,uswhere,usorder,uslpur,uslpg,uslps,200,"") then
lidti=""
'top------0
if aibj(lidms,s_umlb) then
 if usfqx=1 then lidti=lidti&"<b>管理</b>"
lidti=lidti&"<u>状态</u>"
lidti=lidti&"<u>最后登录</u>"
lidti=lidti&"<u>注册时间</u>"
lidti=lidti&"<i>等级</i>"
lidti=lidti&"<i>经验</i>"
lidti=lidti&"<i>金币</i>"
lidti=lidti&"<i>差评</i>"
lidti=lidti&"<i>我顶</i>"
lidti=lidti&"<i>浏览</i>"
lidti=lidti&"<u>类型</u>"
lidti=lidti&"<u>认证</u>"
lidti=lidti&"账户"
end if
'top------1
e_ma=e_ma&iclisttop(lidms,lidti)
gysax=split(gysar,g_gx)
for gysi=0 to ubound(gysax)
lids1=""
lids2=""
lids3=""
lids4=""
gysay=split(gysax(gysi),g_gy)
lidbt=uslic(1,0,0,gysay(9),gysay(10),gysay(13),gysay(23),gysay(19))&gysay(3)&uslic(1,1,0,gysay(9),gysay(10),gysay(13),gysay(23),gysay(19))
lidtt="账户："&gysay(3)&vbNewLine
if ew_dj>2 then lidtt=lidtt&"浏览："&aiint(gysay(10)&g_gg&"0")&"次"&vbNewLine
if ew_pj>1 then lidtt=lidtt&"我顶："&aiint(gysay(11)&g_gg&"0")&"次"&vbNewLine
if ew_pj>1 then lidtt=lidtt&"差评："&aiint(gysay(12)&g_gg&"0")&"次"&vbNewLine
lidtt=lidtt&"登录时间："&gysay(21)&vbNewLine
lidtt=lidtt&"注册时间："&gysay(23)
if usfqx=1 then
lidlj=eshref(s_umgl&g_urg&s_udus&g_urg&s_umxx&g_urg&gysay(1)&g_urz,66)
lidgl="<b><input type=""checkbox"" id=""sid"" name=""sid"" value="""&gysay(0)&""">"&aibuttonk(eshref(s_umgl&g_urg&s_udus&g_urg&s_umxg&g_urg&gysay(0)&g_urz,66),"","","","f-se","Edit")&aibuttonk(eshref(s_umgl&g_urg&s_udus&g_urg&s_umsc&g_urg&gysay(0)&g_urz,66),s_umscs&s_uduss&s_ztqr,"","","f-se","Del")&"</b>"
else
lidlj=eshref(s_udus&g_urg&s_umxx&g_urg&gysay(1)&g_urz,66)
end if

if aibj(lidms,s_umyq) then
lids1=int(gysay(8)+1)*int(gysay(10))
if usfqx=0 and aiint(e_uty)>=aiint(gysay(8)) and (aibj(e_usn,gysay(1)) or aibj(e_usn,gysay(2)))then lids2=lids2&"<a href="""&eshref(s_udus&g_urg&s_umxg&g_urg&gysay(0)&g_urz,66)&""">编辑</a>"
elseif aibj(lidms,s_umlb) then
if usfqx=0 and aiint(e_uty)>=aiint(gysay(8)) and (aibj(e_usn,gysay(1)) or aibj(e_usn,gysay(2)))then lids1=lids1&"<a href="""&eshref(s_udus&g_urg&s_umxg&g_urg&gysay(0)&g_urz,66)&""">编辑</a>"
lids1=lids1&"<u>"&aiarr(i_bxy,"|",aiint(gysay(9)))&"</u>"
lids1=lids1&"<u>"&gysay(21)&"</u>"
lids1=lids1&"<u>"&gysay(23)&"</u>"
lids1=lids1&"<i>"&gysay(14)&"</i>"
lids1=lids1&"<i>"&gysay(18)&"</i>"
lids1=lids1&"<i>"&gysay(17)&"</i>"
lids1=lids1&"<i>"&gysay(12)&"</i>"
lids1=lids1&"<i>"&gysay(11)&"</i>"
lids1=lids1&"<i>"&gysay(10)&"</i>"
lids1=lids1&"<u>"&aiarr(i_busty,"|",aiint(gysay(8)))&"</u>"
lids1=lids1&"<u>"&aiarr(i_buszj,"|",aiint(gysay(4)))&"</u>"
elseif aibj(lidms,s_umlp) then
lids1=uspic(gysay(19),gysay(3),lidtt,lidlj,0)
else
lids1=gysay(5)
if ew_dj>2 then lids2=lids2&"浏览："&aiint(gysay(10)&g_gg&"0")&"次 "
lids2=lids2&"注册时间："&aitm(gysay(23),2)&" 登录时间："&aitm(gysay(21),2)

if not ainull(gysay(24)) or aibj(lidms,s_umlh) then
lids3=lids3&"<div class=""l-cd lh"">"
if aibj(lidms,s_umlh) then lids3=lids3&uspic(gysay(19),gysay(3),lidtt,lidlj,1)
if aibj(lidms,s_umlc) then
lids3=lids3&uspic(gysay(19),gysay(3),lidtt,lidlj,2)&gysay(24)
else
lids3=lids3&left(gysay(24),500)
end if
lids3=lids3&"</div>"
end if

end if
e_ma=e_ma&iclist(lidms,lidti,gysi,lidbt,lidtt,lidlj,lidgl,lids1,lids2,lids3,lids4)
next
'end

e_ma=e_ma&iclistend(lidms,"")
else
e_ma=e_ma&"<div class=""l-tc"">"&s_ztkl&"</div>"
end if

e_ma=e_ma&iclih(gyspage,e_gdj,usfqx,eshref(s_umgl&g_urg&s_udus&g_urg&s_umsc&"-x"&g_urz,77),"us")
End Function
'-----------------------------------
'=uspic("")
'-----------------------------------
Function uspic(usfstr,usfbt,usfbx,usflj,usfty)
if usfty=0 then
usfstr=esups(usfstr,11)
else
usfstr=esups(usfstr,1)
end if
if not ainull(usfstr) then
dim eslbta,eslbts,eslbtx
if not ainull(usfbt) then
eslbta=" alt="""&usfbt&""""
eslbtx=" title="""&usfbt&""""
if usfty=2 then
eslbts="<span>"&usfbt&"</span>"
else
eslbts="<font>"&usfbt&"</font>"
end if
end if
if not ainull(usfbx) then eslbtx=" title="""&usfbx&""""
if usfty<3 then
uspic=uspic&"<a href="""&usflj&""""&eslbtx&"><img src="""&usfstr&""""&eslbta&"></a>"
elseif usfty=3 or usfty=4 then'show
if left(usflj,1)<>"/" and not aibj(left(usflj,7),"http://") then
if not ainull(usflj) then usflj=esups(usflj,1)
end if
if usfty=3 then uspic="<div class=""c-u"">"
if not ainull(usflj) then uspic=uspic&"<a href="""&usflj&""""&eslbtx&">"
uspic=uspic&"<img src="""&usfstr&""""&eslbta&">"
if usfty=3 then uspic=uspic&"<br>"&eslbts
if not ainull(usflj) then uspic=uspic&"</a>"
if usfty=3 then uspic=uspic&"</div>"
end if
end if
End Function
'-----------------------------------
'=uslic(1,"")
'-----------------------------------
Function uslic(usfkg,usfty,usfsx,usfxy,usfhi,usfpx,usftm,usfup)
uslic=""
usfsx=aiint(usfsx)
if usfkg=1 and usfty=0 then
uslic=uslic&icqz(1,usfxy,usfpx)
elseif usfkg=1 and usfty=1 then
uslic=uslic&ichz(1,usftm,usfhi,usfup)
end if
End Function
'-----------------------------------
'=ussersql(usfef)
'-----------------------------------
Function ussersql(usfef)
Call icserq()
if not ainull(uswhere) then
if not ainull(iclwhere) then uswhere=iclwhere&" and "&uswhere
else
uswhere=iclwhere
end if
if not ainull(iclorder) then usorder=iclorder
'order
if ainull(usorder) then usorder=usordermo
'admin
if not aibj(g_u0,s_umgl) and instr(uswhere,"us_xy>0")=0 then
if not ainull(uswhere) then uswhere=" and "&uswhere
uswhere="us_xy>0"&uswhere
end if
if not aibj(usfef,s_umqb) and not ainull(usfef) and not aibj(usfef,"0") then
if not ainull(uswhere) then uswhere=uswhere&" and "
uswhere=uswhere&"us_ef like '"&esnf(usfef)&"%'"
end if
End Function

'-----------------------------------
'=usss()
'Call usss()
'-----------------------------------
Function usss(usfty)
dim icdspx,icdsfx,icdsxx
icdssp="排序|浏览|我顶|差评|排行|等级|金币|经验|登录|注册|过期|推荐|类型|认证|证级|"
icdspx="us_id desc|us_hi desc|us_xi desc|us_xo desc|us_px desc|us_jd desc|us_jb desc|us_jy desc|us_t1 desc|us_tm desc|us_t2 desc|us_xy desc|us_ty desc|us_zy desc|us_zj desc|us_ux desc|us_uy desc|us_jq desc|us_jt desc|"
if e_gdj>2 then icdssp=icdssp&"短信|交易|金钱|金条|"

icdssf="范围|正式|三星|四星|五星|图片|认证|"
icdsfx="|us_xy>"&i_xkxy+1&"|us_xy>2|us_xy>3|us_xy>4|(us_up<>'' and us_up<>'0' and us_up<>'null')|(us_zj>1 and us_zs<>'' and us_xy>"&i_xkxy&")|"
icdssf=icdssf&"T100|T600|"
icdsfx=icdsfx&"100|600|"
icdssf=icdssf&esqday(0)&"|"
icdsfx=icdsfx&esqday("us_tm")&"|us_xy="&i_xkxy&"|us_xy=0|(us_zj=1 and us_zs<>'' and us_xy>"&i_xkxy&")|"
if e_gdj>2 then icdssf=icdssf&"普通|禁用|申证|"

icdssx="项目|账户|名字|介绍|签名|编码|电邮|电话|地区|地址|成就|其他|上级|分类|时间|更新|"
icdsxx="us_er|us_er|us_bt|us_nr|us_qm|us_sn|us_em|us_dh|us_ct|us_dz|us_ot|us_cj|us_sj|us_ef|us_tm|us_t1|us_xt|"
if e_gdj>2 then icdssx=icdssx&"系统|"

if right(icdssp,1)="|" then icdssp=left(icdssp,len(icdssp)-1)
if right(icdssf,1)="|" then icdssf=left(icdssf,len(icdssf)-1)
if right(icdssx,1)="|" then icdssx=left(icdssx,len(icdssx)-1)
icdssm=i_bsm
icdrrp=split(icdspx,"|")
icdrrf=split(icdsfx,"|")
icdrrx=split(icdsxx,"|")
End Function
'-----------------------------------
'=ustj(usfstr=频道ep/1分类ef/2排序ssp/3范围ssf/4项目ssx/5模式ssm/6关键词sss,usffl=分类样式-多选分类|单选分类,usfty)
'-----------------------------------
Function ustj(usfstr,usffl,usfty)
dim icdarr,icdsep,icdsef,icdbx
icdarr=split(usfstr&"//////","/")
uswhere="6=6"
usorder=""
icdbx=0

icdsep=trim(icdarr(0))
if aibj(icdsep,s_umqb) or aibj(icdsep,"0") or dkdir(0,icdsep) then icdsep=""
icdsef=trim(icdarr(1))
if aibj(icdsef,s_umqb) or aibj(icdsef,"0") or dkdir(0,icdsef) then icdsef=""
icvsp=aiint(icdarr(2))
icvsf=aiint(icdarr(3))
icvsx=aiint(icdarr(4))
icvsm=aiint(icdarr(5))
icvss=aijie(trim(icdarr(6)))
if aibj(icvss,s_umqb) or aibj(icvss,"0") or dkdir(0,icvss) then icvss=""

'ef
if icdsef<>"" then
icdbx=1
dim icdfvi,icdfvrr,icdfvrrx,icdfvrrxu,icdfvrrxi,icdfvrrxw
'----------------------------------ef0
if aiint(usffl)>0 then
icdsef=icdsef
if len(icdsef&"0")>3 then
icdfvrr=split(icdsef,g_ura)
for icdfvi=0 to ubound(icdfvrr)
if not aibj(icdsef,s_umqb) and icdfvrr(icdfvi)<>"" then
if not ainull(uswhere) then uswhere=uswhere&" and "
if left(icdfvrr(icdfvi),1)="0" then
'★★★★★this do for tags 0
dim usltlie,usltliez,usltliezrr
usltlie=right(left(icdfvrr(icdfvi),3),2)
if instr("xy,px,hi,xi,bd,bc,jg,jy,oz,oy",usltlie)>0 then
usltliez=right(icdfvrr(icdfvi),len(icdfvrr(icdfvi))-3)
usltliezrr=split(usltliez&"-","-")
if usltliezrr(0)=usltliezrr(1) then
uswhere=uswhere&"us_"&usltlie&"="&aiint(usltliezrr(0))&""
elseif usltliezrr(0)<>"" and usltliezrr(1)<>"" then
uswhere=uswhere&"us_"&usltlie&">="&aiint(usltliezrr(0))&" and us_"&usltlie&"<="&aiint(usltliezrr(1))&""
elseif usltliezrr(0)<>"" then
uswhere=uswhere&"us_"&usltlie&">="&aiint(usltliezrr(0))&""
elseif usltliezrr(1)<>"" then
uswhere=uswhere&"us_"&usltlie&"<="&aiint(usltliezrr(1))&""
else
uswhere=uswhere&icdfvi&"="&icdfvi
end if
else
if not aibj(icdfvrr(icdfvi),s_umqb) then
icdbx=1
uswhere=uswhere&"us_ef like '"&icdfvrr(icdfvi)&"%'"
else
uswhere=uswhere&"6=6"
end if
end if
'★★★★★this do for tags 1
else
if instr(icdfvrr(icdfvi),g_urb)>1 or (instr(icdfvrr(icdfvi),g_urb)>0 and right(icdfvrr(icdfvi),len(g_urb))<>g_urb) then
icdfvrrx=split(icdfvrr(icdfvi),g_urb)
icdfvrrxu=ubound(icdfvrrx)
icdfvrrxw=""
for icdfvrrxi=0 to icdfvrrxu
if not ainull(icdfvrrxw) and icdfvrrx(icdfvrrxi)<>"" and not aibj(icdfvrrx(icdfvrrxi),s_umqb) then icdfvrrxw=icdfvrrxw&" or "
if icdfvrrx(icdfvrrxi)<>"" and not aibj(icdfvrrx(icdfvrrxi),s_umqb) then icdfvrrxw=icdfvrrxw&"us_ef like '"&icdfvrrx(icdfvrrxi)&"%'"
next
if icdfvrrxw<>"" then
uswhere=uswhere&"("&icdfvrrxw&")"
else
uswhere=uswhere&icdfvi&"="&icdfvi
end if
else
if not aibj(icdfvrr(icdfvi),s_umqb) then
icdbx=1
uswhere=uswhere&"us_ef like '"&icdfvrr(icdfvi)&"%'"
else
uswhere=uswhere&"6=6"
end if
end if
end if
end if
next
end if
'cdv 1
else
'ef
icdbx=1
if not ainull(uswhere) then uswhere=" and "&uswhere
'uswhere="us_ef='"&icdsef&"'"&uswhere
uswhere="us_ef like '"&icdsef&"%'"&uswhere
end if
'----------------------------------ef1
end if

'sp
if icvsp>0 then
usorder=icdrrp(icvsp)
else
usorder=usordermo
end if

'ss
if icvss<>"" then
dim icvssrr,icvssi,icvssud,icvsslin
icvssrr=split(icvss," ")
icvssud=ubound(icvssrr)
icvsslin=""
for icvssi=0 to icvssud
if icvsslin<>"" then icvsslin=icvsslin&" or "
if icvssrr(icvssi)<>"" then
if icvsm=2 then
icvsslin=icvsslin&icdrrx(icvsx)&"='"&icvssrr(icvssi)&"'"
else
icvsslin=icvsslin&icdrrx(icvsx)&" like '%"&icvssrr(icvssi)&"%'"
end if
end if
next
if icvsslin<>"" then
uswhere=uswhere&" and ("&icvsslin&")"
iclapp=1
icdbx=1
end if
end if

'sf
if icvsf>0 then
dim icvsflin
icvsflin=icdrrf(icvsf)
if aibj(right(icvsflin,2),"00") then
uswhere="us_id in (select top "&aiint(icvsflin)&" us_id from "&susdbqz&"us where "&uswhere&" order by us_id desc)"
else
uswhere=uswhere&" and "&icvsflin
end if
end if

'admin
if not aibj(g_u0,s_umgl) or e_gdj<3 then
if instr(uswhere,"us_xy>0")=0 then
if not ainull(uswhere) then uswhere=uswhere&" and "
uswhere=uswhere&"(us_xy>0 or us_er='"&e_uer&"')"
end if
elseif e_gdj>2 then
iclapp=1
end if

uswhere=replace(uswhere,"6=6 and ","")
End Function
%>