<%
dim e_uid,e_usn,e_usj,e_uer,e_uzj,e_uzy,e_uef,e_ubt,e_udh,e_uem,e_uty,e_uxy,e_uhi,e_uxi,e_uxo,e_upx,e_ujd,e_ujq,e_ujt,e_ujb,e_ujy,e_uup,e_ula

dim e_uexit,e_ulogin,e_ureg,e_uuser
e_uexit=i_dir&s_druser&"?exit.html"
e_ulogin=i_dir&s_druser&"?login.html"
e_ureg=i_dir&s_druser&"?reg.html"
e_uuser=i_dir&s_druser

if aiks(i_xkhc,i_hcchy,"",2)<>"" then
dim userarr
userarr=split(aimm(g_gmm,aiks(i_xkhc,i_hcchy,"",2),1),g_gx)
if ubound(userarr)=22 then
e_uid=aiint(userarr(0))
e_usn=aistr(userarr(1))
e_usj=aistr(userarr(2))
e_uer=aistr(userarr(3))
e_uzj=aiint(userarr(4))
e_uzy=aiint(userarr(5))
e_uef=aiint(userarr(6))
e_ubt=aistr(userarr(7))
e_udh=aistr(userarr(8))
e_uem=aistr(userarr(9))
e_uty=aiint(userarr(10))
e_uxy=aiint(userarr(11))
e_uhi=aiint(userarr(12))
e_uxi=aiint(userarr(13))
e_uxo=aiint(userarr(14))
e_upx=aiint(userarr(15))
e_ujd=aiint(userarr(16))
e_ujq=aiint(userarr(17))
e_ujt=aiint(userarr(18))
e_ujb=aiint(userarr(19))
e_ujy=aiint(userarr(20))
e_uup=aistr(userarr(21))
e_ula=aistr(userarr(22))
else
e_uid=0:e_uzj=0:e_uzy=0:e_uty=0:e_uxy=0:e_uhi=0:e_uxi=0:e_uxo=0:e_upx=0:e_ujd=0:e_ujq=0:e_ujt=0:e_ujb=0:e_ujy=0
end if
elseif i_xklg=1 then
e_uid=0
e_usn="EESai"
e_uer="EESai"
e_uzj=0
e_uzy=0
e_ubt="EESai"
e_uty=aiint(i_xklx)
e_uxy=2
e_uhi=0
e_uxi=0
e_uxo=0
e_upx=0
e_ujd=0
e_ujq=0
e_ujt=0
e_ujb=0
e_ujy=0
else
e_uid=0:e_uzj=0:e_uzy=0:e_uty=0:e_uxy=0:e_uhi=0:e_uxi=0:e_uxo=0:e_upx=0:e_ujd=0:e_ujq=0:e_ujt=0:e_ujb=0:e_ujy=0
end if
Function usergx(usfty,usfva)
if aiks(i_xkhc,i_hcchy,"",2)<>"" then
dim usdurr,usduii,usduts
usduts=userarr(0)
usdurr=split("id,sn,sj,er,zj,zy,ef,bt,dh,em,ty,xy,hi,xi,xo,px,jd,jq,jt,jb,jy,up,la",",")
for usduii=1 to ubound(usdurr)
if aibj(usfty,usdurr(usduii)) then
usduts=usduts&g_gx&usfva
if aibj(usfty,"jy") or aibj(usfty,"jb") then
usergx="<script language=""javascript"">function boxts(){var boxtsdiv=document.getElementById(""bbtsbox"");boxtsdiv.style.display=""none"";}setTimeout(""boxts()"",3000);</script><div id=""bbtsbox"" class=""boxts"">提示：感谢您的支持 "
if aibj(usfty,"jy") then
usergx=usergx&"经验 "&aiint(usfva)-aiint(e_ujy)&"(您还有 "&usfva&" 经验)"
elseif aibj(usfty,"jb") then
usergx=usergx&"金币 "&aiint(usfva)-aiint(e_ujb)&"(您还有 "&usfva&" 金币)"
elseif aibj(usfty,"jq") then
usergx=usergx&"金钱 "&aiint(usfva)-aiint(e_ujq)&"(您还有 "&usfva&" 金币)"
end if
usergx=usergx&"</div>"
end if
else
usduts=usduts&g_gx&userarr(usduii)
end if
next
Call aiks(i_xkhc,i_hcchy,aimm(g_gmm,replace(usduts," ",""),0),1)
end if
End Function
'-----------------------------------
'=usrqm(usfty=len(<2no|3no-read)+left(1no-dt|2dt|3fl|4fr)+right(0user|1up|2us-up|3qm|4us-qm|5us-up-qm|6us-up-qm-sx),usfus,usfstr)
'-----------------------------------
Function usrqm(usfty,usfer,usfstr)
dim usdwc,usdwl,usdwr
dim usdl0,usdl1,usdl2,usdlin

usdwc=len(usfty)
if usdwc=1 then
usdwl=aiint(usfty)
usdwr=0
else
usdwl=aiint(left(usfty,1))
usdwr=aiint(right(usfty,1))
end if

usdl0=0
usdl1=""
usdl2=""
usdlin=""

if usdwr=0 then
usdl1=usfer
usdl0=1
else
if usdwc=3 then
dim usdarr,usdxy,usdqm,usdup,usdsn,usdbt
usdarr=split(usfstr&g_gg&g_gg&g_gg&g_gg&g_gg&g_gg,g_gg)
usdxy=aiint(usdarr(0))
usdqm=usdarr(1):usdup=usdarr(2):usdsn=usdarr(3):usdbt=usdarr(4)
else
dim usdqsql,usdqrs
usdqsql="select us_xy,us_qm,us_up,us_sn,us_bt from "&usbiao&" where us_er='"&usfer&"'"
Call saik(usdqrs,usdqsql,1,1)
if usdqrs.eof and usdqrs.bof then
if usdwl=2 then
usdl0=1
usdxy=1
usdqm="":usdup="":usdsn="":usdbt=usfer&"<br><br>("&ew_mc&"网友)"
end if
else
usdxy=aiint(usdqrs(0))
usdqm=usdqrs(1):usdup=usdqrs(2):usdsn=usdqrs(3):usdbt=usdqrs(4)
end if
Call saig(usdqrs)
end if

if usdxy>0 then
usdl0=1
if ainull(usdbt) then usdbt=usren(usfer)
if not ainull(usdup) then usdl1=usdl1&"<img src="""&eshref(usdup,3)&"""><br>"
if not ainull(usdbt) then
usdl1=usdl1&usdbt
if not ainull(usdsn) then usdl1="<a target=""_blank"" href="&eshref(s_udus&g_urg&s_umxx&g_urg&usdsn&g_urz,66)&">"&usdl1&"</a>"
end if
if usdwr>2 then usdl2=usdqm
end if
end if

if usdl0=1 and (usdl1<>"" or usdl2<>"") then

if usdwl=5 then
usdlin="<DL class=""u-a"" style=""margin:0px 0px 8px 8px;float:right;width:180px;"">"
elseif usdwl=4 then
usdlin="<DL class=""u-a"" style=""margin:0px 8px 8px 0px;float:left;width:180px;"">"
elseif usdwl=3 then
usdlin="<DL class=""u-a"">"
elseif usdwl=2 then
usdlin="<DL>"
end if
if usdl1<>"" then
if usdwl<3 then
usdlin=usdlin&""&usdl1&"<br>"
else
usdlin=usdlin&"<DT class=""u-b"">"&usdl1&"</DT>"
end if
end if
if usdl2<>"" then
if usdwl=2 then
usdlin=usdlin&"<DD class=""u-d"">"&usdl2&"</DD>"
elseif usdwl=1 then
usdlin=usdlin&""&usdl2&""
else
usdlin=usdlin&"<DD class=""u-c"">"&usdl2&"</DD>"
end if
end if
if usdwl>1 then usdlin=usdlin&"</DL>"
end if
usrqm=usdlin

End Function
'-----------------------------------
'=usrzj("ren")
'-----------------------------------
Function usrzj(usfer)
usrzj=gysro("us_zj",usbiao,"us_er='"&usfer&"'","")
End Function
'-----------------------------------
'=usren("ren")
'-----------------------------------
Function usren(usfer)
dim usdrr,usder,usdbt
usdrr=split(usfer&g_gg,g_gg)
usder=usdrr(0)
usdbt=usdrr(1)
if aibj(usder,ew_kx) then
usren="管理员"
elseif aibj(usder,ew_kz) then
usren="站长"
elseif aibj(usder,ew_kf) then
usren="客服"
elseif aibj(usder,ew_kg) then
usren="公共"
elseif aibj(usder,ew_kt) then
usren="系统"
elseif not ainull(usdbt) then
if aibj(left(usdbt,len(s_udusxt)),s_udusxt) then
usren=ew_mc&"网友"
else
usren=usdbt
end if
else
usren=usder
end if
End Function
%>