<%
'@@0manage/1s_uduk/2list|yun/3page/4psize/5ssx/6ssm/7ssf/8ssp/9sss.HTML
'@@0manage/1s_uduk/2edit|add|del/3*id.HTML

'@@0s_uduk/1list|yun/2page/3psize/4ssx/5ssm/6ssf/7ssp/8sss.HTML
'@@0s_uduk/1edit|add/2*id.HTML
'@@0s_uduk/1show/2*sn|-.HTML

if e_xa<1 and (aibj(g_u0,s_uduk) or aibj(g_u1,s_uduk)) then
e_xa=e_xa+1
ep_id=0:ep_ew=ew_sn:ep_el=0:ep_sn=s_uduk: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()
ep_sn=s_uduk
Call doq(1,e_uer,6,g_u0,s_uduk,s_uduks&s_umlbs)

if e_uty>1 and aibj(g_u0,s_umgl) and aibj(g_u1,s_uduk) and aibj(g_u2,s_umtj) then
Call ukadd(1)
elseif aibj(g_u0,s_uduk) and aibj(g_u1,s_umtj) then
Call ukadd(0)
elseif e_uty>1 and aibj(g_u0,s_umgl) and aibj(g_u1,s_uduk) and aibj(g_u2,s_umxg) and aiint(g_u3)>0 then
Call ukedit(1)
elseif aibj(g_u0,s_uduk) and aibj(g_u1,s_umxg) then
Call ukedit(0)
elseif e_uty>1 and aibj(g_u0,s_umgl) and aibj(g_u1,s_uduk) and (aibj(g_u2,s_umxx) or aibj(g_u2,s_umzs)) and not ainull(g_u3) then
Call ukshow(g_u3)
elseif aibj(g_u0,s_uduk) and (aibj(g_u1,s_umxx) or aibj(g_u1,s_umzs)) and not ainull(g_u2) then
Call ukshow(g_u2)
elseif aibj(g_u0,s_uduk) and aibj(g_u1,s_udukw) and not ainull(g_u2) and ainull(g_u3) then
Call ukshowx(g_u2)
elseif e_uty>1 and aibj(g_u0,s_umgl) and aibj(g_u1,s_uduk) and ((aibj(g_u2,s_umsc) and aiint(g_u3)>0) or aibj(g_u2,s_umsc&"-x")) then
Call ukdel(1)
elseif aibj(g_u0,s_uduk) and ((aibj(g_u1,s_umsc) and aiint(g_u2)>0) or aibj(g_u1,s_umsc&"-x")) then
Call ukdel(0)
elseif e_uty>1 and aibj(g_u0,s_umgl) and aibj(g_u1,s_uduk) and dkdir(2,g_u3) then
Call efread(esnff(g_u2))
Call uklist(1)
elseif aibj(g_u0,s_uduk) and dkdir(2,g_u2) then
Call efread(esnff(g_u1))
Call uklist(0)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_uduk) and aibj(g_u4,s_udef) and aibj(g_u5,s_umtj) then
Call ukread(g_u2)
Call epread(g_u3)
e_man=s_udukw&uk_ur&ep_sn
Call ukfltj():e_skc=dosk("d",uk_cy,"admin")
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","uk")
end if
end if
'------get skin 1
Response.Write esr(0,e_skc):Response.End()






elseif e_xa<1 and (aibj(g_u0,s_udukw) or aibj(g_u1,s_udukw)) then
e_xa=e_xa+1
Call esq()
if aibj(g_u0,s_umgl) then
Call doq(4,g_u2,2,g_u0,g_u3,g_u4)
else
Call doq(4,g_u1,2,g_u0,g_u2,g_u3)
end if

if aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) then
e_man=s_udukw&uk_ur&ep_sn
e_skc=ukks(12,uk_cy,uk_kd)
end if
'KJ-----------------------0
if aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u3,len(s_umxg)),s_umxg) and g_u4<>"" then
Call eaedit(312,g_u3,g_u4)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u3,len(s_umsc)),s_umsc) and g_u4<>"" then
Call eadel(312,g_u3,g_u4,g_u5)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u4,len(s_umtj)),s_umtj) then
Call eaadd(311,g_u4)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u4,len(s_umxg)),s_umxg) and g_u5<>"" then
Call eaedit(311,g_u4,g_u5)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u4,len(s_umsc)),s_umsc) and g_u5<>"" then
Call eadel(311,g_u4,g_u5,g_u6)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u5,len(s_umtj)),s_umtj) then
Call eaadd(310,g_u5)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u5,len(s_umxg)),s_umxg) and g_u6<>"" then
Call eaedit(310,g_u5,g_u6)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and aibj(left(g_u5,len(s_umsc)),s_umsc) and g_u6<>"" then
Call eadel(310,g_u5,g_u6,g_u7)

elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u2,len(s_umxg)),s_umxg) and g_u3<>"" then
e_skc=ukks(11,uk_cy,uk_kd):Call eaedit(32,g_u2,g_u3)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u2,len(s_umsc)),s_umsc) and g_u3<>"" then
e_skc=ukks(11,uk_cy,uk_kd):Call eadel(32,g_u2,g_u3,g_u4)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u3,len(s_umtj)),s_umtj) then
e_skc=ukks(4,uk_cy,uk_kd):Call eaadd(31,g_u3)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u3,len(s_umxg)),s_umxg) and g_u4<>"" then
e_skc=ukks(4,uk_cy,uk_kd):Call eaedit(31,g_u3,g_u4)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u3,len(s_umsc)),s_umsc) and g_u4<>"" then
e_skc=ukks(4,uk_cy,uk_kd):Call eadel(31,g_u3,g_u4,g_u5)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u4,len(s_umtj)),s_umtj) then
e_skc=ukks(4,uk_cy,uk_kd):Call eaadd(30,g_u4)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u4,len(s_umxg)),s_umxg) and g_u5<>"" then
e_skc=ukks(4,uk_cy,uk_kd):Call eaedit(30,g_u4,g_u5)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u4,len(s_umsc)),s_umsc) and g_u5<>"" then
e_skc=ukks(4,uk_cy,uk_kd):Call eadel(30,g_u4,g_u5)

elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and aibj(left(g_u3,len(s_umzs)),s_umzs) and g_u4<>"" then
Call eashow(312,0,g_u4):e_skc=ukks(10,uk_cy,uk_kd)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and aibj(left(g_u3,len(s_umxx)),s_umxx) and g_u4<>"" then
Call eashow(312,1,g_u4):e_skc=ukks(4,uk_cy,uk_kd)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and aibj(left(g_u4,len(s_umzs)),s_umzs) and g_u5<>"" then
Call eashow(311,0,g_u5):e_skc=ukks(10,uk_cy,uk_kd)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and aibj(left(g_u4,len(s_umxx)),s_umxx) and g_u5<>"" then
Call eashow(311,1,g_u5):e_skc=ukks(4,uk_cy,uk_kd)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and aibj(left(g_u5,len(s_umzs)),s_umzs) and g_u6<>"" then
Call eashow(310,0,g_u6):e_skc=ukks(10,uk_cy,uk_kd)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and aibj(left(g_u5,len(s_umxx)),s_umxx) and g_u6<>"" then
Call eashow(310,1,g_u6):e_skc=ukks(4,uk_cy,uk_kd)

elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u2,len(s_umzs)),s_umzs) and g_u3<>"" then
Call eashow(32,0,g_u3):e_skc=ukks(10,uk_cy,uk_kd)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u2,len(s_umxx)),s_umxx) and g_u3<>"" then
Call eashow(32,1,g_u3):e_skc=ukks(4,uk_cy,uk_kd)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u3,len(s_umzs)),s_umzs) and g_u4<>"" then
Call eashow(31,0,g_u4):e_skc=ukks(10,uk_cy,uk_kd)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u3,len(s_umxx)),s_umxx) and g_u4<>"" then
Call eashow(31,1,g_u4):e_skc=ukks(4,uk_cy,uk_kd)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u4,len(s_umzs)),s_umzs) and g_u5<>"" then
Call eashow(30,0,g_u5):e_skc=ukks(10,uk_cy,uk_kd)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and aibj(left(g_u4,len(s_umxx)),s_umxx) and g_u5<>"" then
Call eashow(30,1,g_u5):e_skc=ukks(4,uk_cy,uk_kd)

elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and dkdir(2,g_u3) then
Call ealist(312,eshrej(s_umgl,uk_ur,"",1),"",g_u3,g_u4,g_u5,g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and not ainull(g_u3) and dkdir(2,g_u4) then
Call ealist(311,eshrej(s_umgl,uk_ur,ep_sn,1),"",g_u4,g_u5,g_u6,g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10&g_urg&g_u11)
elseif aibj(g_u0,s_umgl) and aibj(g_u1,s_udukw) and not ainull(g_u2) and not ainull(g_u3) and not ainull(g_u4) and dkdir(2,g_u5) then
Call ealist(310,eshrej(s_umgl,uk_ur,ep_sn,1),g_u4,g_u5,g_u6,g_u7,g_u8&g_urg&g_u9&g_urg&g_u10&g_urg&g_u11&g_urg&g_u12)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and ainull(g_u2) and ainull(g_u3) then
e_skc=ukks(1,uk_cy,uk_ka):Call ealist(32,eshrej("",uk_ur,"",1),"",g_u2,g_u3,g_u4,g_u5&g_urg&g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and not ainull(g_u2) and ainull(g_u3) and ainull(g_u4) then
e_skc=ukks(2,uk_cy,uk_kb):Call ealist(30,eshrej("",uk_ur,ep_sn,1),g_u3,g_u4,g_u5,g_u6,g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10&g_urg&g_u11)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and not ainull(g_u2) and dkdir(2,g_u3) then
e_skc=ukks(3,uk_cy,uk_kc):Call ealist(31,eshrej("",uk_ur,ep_sn,1),"",g_u3,g_u4,g_u5,g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10)
elseif aibj(g_u0,s_udukw) and not ainull(g_u1) and dkdir(2,g_u4) then
e_skc=ukks(3,uk_cy,uk_kc):Call ealist(30,eshrej("",uk_ur,ep_sn,1),g_u3,g_u4,g_u5,g_u6,g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10&g_urg&g_u11)
end if
'KJ-----------------------1
'------get skin 0
if ainull(e_skc) then
if aibj(g_u0,s_umgl) then
e_skc=dosk("d",uk_cy,"admin")
else
e_skc=dosk("d",uk_cy,"sai")
end if
end if
'------get skin 1
Response.Write esr(ukskin,e_skc):Response.End()
end if
'-----------------------------------
'Data Table
'=uklie()
'-----------------------------------
Function uklie(ukfty)
if ukfty="form" then
uklie="ew,us,sn,ef,cy,cs,ka,kb,kc,kd,fl,up,mc,bt,co,nr,zt,ur,xy,px,ot,tm,tn,t1,xt"
elseif ukfty="top" then
'@@0uk_id,1uk_sn,2uk_mc.3,uk_tm,4uk_tn,5uk_px,6uk_us,7uk_up,8uk_co,9uk_xy,10uk_ef,11uk_ur
uklie="uk_id,uk_sn,uk_mc,uk_tm,uk_tn,uk_px,uk_us,uk_up,uk_co,uk_xy,uk_ef,uk_ur"
elseif ukfty=s_umlb then
'@@uk_id,1uk_ew,2uk_us,3uk_sn,4uk_up,5uk_mc,6uk_bt,7uk_co,8uk_nr,9uk_zt,10uk_ur,11uk_xy,12uk_px,13uk_tm,14uk_tn
uklie="uk_id,uk_ew,uk_us,uk_sn,uk_up,uk_mc,uk_bt,uk_co,uk_nr,uk_zt,uk_ur,uk_xy,uk_px,uk_tm,uk_tn"
elseif ukfty="all" then
uklie="uk_id,uk_ew,uk_us,uk_sn,uk_ef,uk_cy,uk_cs,uk_ka,uk_kb,uk_kc,uk_kd,uk_fl,uk_up,uk_mc,uk_bt,uk_co,uk_nr,uk_zt,uk_ur,uk_xy,uk_px,uk_ot,uk_tm,uk_tn,uk_t1,uk_xt"
end if
End Function
'-----------------------------------
'top uk list arr
'=ukrr(ukfnm,ukfps=0ep/1ef/2ssp/3ssf/4ssx/5ssm/6sss,)
'-----------------------------------
Function ukrr(ukfnm,ukfps)
Call ukss(0)
Call uktj(ukfps,0,0)
if ukfnm=0 or ainull(ukfnm) then
ukfnm=i_nmhc
else
ukfnm=aiint(ukfnm)
end if
if e_aiidl<>"" and e_aiidl<>"," then
dim ukdidl
ukdidl=left(e_aiidl,len(e_aiidl)-1)
if not ainull(ukwhere) then ukwhere=ukwhere&" and "
ukwhere=ukwhere&"uk_id not in ("&ukdidl&")"
end if
if e_aiids<>"" and e_aiids<>"," then
dim ukdids
ukdids=left(e_aiids,len(e_aiids)-1)
if ew_cf=0 or (ew_cf=1 and aibj(right(ukfps,len(s_umqb)),s_umqb)) then
if not ainull(ukwhere) then ukwhere=ukwhere&" and "
ukwhere=ukwhere&"uk_id not in ("&ukdids&")"
end if
end if
if gystop(ukfnm,ukbid,uklie("top"),ukbiao,ukwhere,ukorder,"") then
ukrr=gysar
end if
End Function
'-----------------------------------
'skin read
'=ukks()
'-----------------------------------
Function ukks(ukfty,ukfcy,ukfstr)
if ukfstr<>"" and ukfstr<>"0" then ukskin=ukfstr
ukfcy=aiint(ukfcy)
if ukfty=1 then
ukks=dosk("d",ukfcy,"default")
elseif ukfty=2 then
ukks=dosk("d",ukfcy,"index")
elseif ukfty=3 then
ukks=dosk("d",ukfcy,"list")
elseif ukfty=4 then
ukks=dosk("d",ukfcy,"info")
elseif ukfty=10 then
ukks=dosk("d",ukfcy,"show")
elseif ukfty=11 then
ukks=dosk("d",ukfcy,"sai")
elseif ukfty=12 then
ukks=dosk("d",ukfcy,"admin")
end if
End Function
'-----------------------------------
'top
'=uklogo()
'-----------------------------------
Function uklogo()
uklogo=""
if len(ew_ig)>3 then
uklogo=uklogo&"<a href="""&eshrej("",uk_ur,"",1)&""" title="""&uk_bt&""">"
if len(uk_up)>2 then uklogo=uklogo&"<img src="""&eshref(uk_up,3)&""">"
uklogo=uklogo&"<b>"&uk_bt&"</b>"
if not ainull(uk_co) then uklogo=uklogo&"<br><font>"&uk_co&"</font>"
uklogo=uklogo&"</a>"
end if
End Function
'-----------------------------------
'ukmp
'=ukmp(uklty)
'-----------------------------------
Function ukmp(uklty)
ukmp=""
if ainull(us_er) then Call usread(uk_us)
if uklty=1 or uklty=2 then
if uklty=2 then ukmp=ukmp&esbts(s_udxuk,s_udluk,"网站名片"&g_gy&eshref(s_udukw&g_urg&s_umxx&g_urg&uk_ur&g_urz,1),"")
ukmp=ukmp&"<div class=""c-a"">"
if not ainull(uk_up) and uklty=1 then
ukmp=ukmp&"<div class=""c-f"">"&ukpic(uk_up,uk_mc,uk_bt,uk_up,4)&"</div>"
elseif len(ew_pt)>3 and uklty=1 then
ukmp=ukmp&"<div class=""c-f"">"&ew_pt&"</div>"
end if
ukmp=ukmp&"<div class=""c-g"">"
ukmp=ukmp&"<li class=""l-0 ftt"">"&uk_mc&"　"&aiarr(i_bxy,"|",aiint(uk_xy))&"</li>"
ukmp=ukmp&"<li>网址：<a href="""&e_tur&eshrej("",uk_ur,"",2)&""">"&e_tur&eshrej("",uk_ur,"",2)&"</a></li>"
if aiint(uk_tn)>0 then ukmp=ukmp&"<li>积分："&uk_tn&"</li>"
if not ainull(uk_tm) then
ukmp=ukmp&"<li>开通："&aitm(uk_tm,2)&""
if not ainull(uk_t1) then 
if cdate(uk_t1)>date() then ukmp=ukmp&"　到期："&aitm(uk_t1,2)&""
end if
ukmp=ukmp&"</li>"
end if
ukmp=ukmp&"<li>标题："&uk_bt&"</li>"
ukmp=ukmp&"<li>主题："&uk_zt&"</li>"
if not ainull(uk_co) then ukmp=ukmp&"<li>简介："&uk_co&"</li>"
if not ainull(uk_ot) then ukmp=ukmp&"<li>公告："&uk_ot&"</li>"
ukmp=ukmp&"</div><div class=""cr""></div></div>"

ukmp=ukmp&"<li class=""c-h"">"&usren(uk_us&g_gg&us_bt)&" 联系方式</li>"'tit
if not ainull(us_up) and uklty=1 then
ukmp=ukmp&"<div class=""c-f"">"&uspic(us_up,us_bt,us_bt,us_up,4)&"</div>"
elseif len(ew_pt)>3 and uklty=1 then
ukmp=ukmp&"<div class=""c-f"">"&ew_pt&"</div>"
end if
ukmp=ukmp&"<div class=""c-g"">"
ukmp=ukmp&"<li>会员："&uk_us&"</li>"
if not ainull(us_bt) then ukmp=ukmp&"<li>称呼："&us_bt&"</li>"
if not ainull(us_dh) then ukmp=ukmp&"<li>电话："&us_dh&"</li>"
if not ainull(us_ct) then ukmp=ukmp&"<li>地址："&us_ct&""&us_dz&"</li>"
if not ainull(us_em) then ukmp=ukmp&"<li>邮箱：<a href=""#"" onclick=""FTC('"&eshref(g_email&"?@@"&us_em,3)&"','email','480','380')"" class=""k-jur"">"&us_em&"</a></li>"
if not ainull(us_qm) then ukmp=ukmp&"<li>签名："&us_qm&"</li>"
ukmp=ukmp&ictc(2)&"</div>"

else'index show info
ukmp=ukmp&"<div class=""k-j"&uk_xy&"""><span class=""k-jxy"">"&aiarr(i_bxy,"|",aiint(uk_xy))&"</span><span class=""k-jjf"">"&uk_tn&"</span></div>"
ukmp=ukmp&"<div class=""k-j k-jbg"&uk_xy&"""><ul>"
ukmp=ukmp&"<li class=""ftt"">"&uk_mc&"</li>"
ukmp=ukmp&"<li><a class=""k-jur"" href="""&e_tur&eshrej("",uk_ur,"",2)&""">"&e_tur&eshrej("",uk_ur,"",2)&"</a></li>"
if not ainull(uk_ot) then ukmp=ukmp&"<li class=""k-jgg""><b>网站公告：</b>"&uk_ot&"</li>"
ukmp=ukmp&"<li>负责会员："&uk_us&"</li>"
if not ainull(uk_tm) then
ukmp=ukmp&"<li"
if not ainull(uk_t1) then
if cdate(uk_t1)>date() then ukmp=ukmp&" title=""到期："&aitm(uk_t1,2)&""""
end if
ukmp=ukmp&">驻站时间："&aitm(uk_tm,10)&"</li>"
end if
if not aibj(uk_us,e_uer) then
ukmp=ukmp&"<div>"
ukmp=ukmp&"<a href=""#"" onclick=""FTC('"&eshref(s_udux&g_urg&s_umfb&g_urg&uk_us&g_urz,66)&"','"&s_udux&"','456','128')"" class=""y-n0"">"&s_ztcd&"</a>"
if i_xkadd>0 then ukmp=ukmp&"<a href=""#"" onclick=""FTC('"&eshref(s_uduy&g_urg&"7"&g_urg&s_umfb&g_urg&uk_us&g_urz,66)&"','"&s_udukw&"','598','358')"" class=""y-n1"">"&s_ztcy&"</a>"
ukmp=ukmp&"</div><div class=""crg""></div>"
end if
if not ainull(us_dh) or not ainull(us_em) or not ainull(us_ct) then
ukmp=ukmp&"<li class=""k-jmp""><b>联系方式：</b>"
if not ainull(us_bt) then ukmp=ukmp&"<br>称呼："&us_bt&""
if not ainull(us_em) then ukmp=ukmp&"<br>邮箱：<a href=""#"" onclick=""FTC('"&eshref(g_email&"?@@"&us_em,3)&"','email','480','380')"" class=""k-jur"">"&us_em&"</a>"
if not ainull(us_dh) then ukmp=ukmp&"<br>电话："&us_dh&""
if not ainull(us_ct) then ukmp=ukmp&"<br>地址："&us_ct&""&us_dz&""
ukmp=ukmp&"</li>"
if not ainull(us_qm) then ukmp=ukmp&"<li><b>会员签名：</b><br>"&us_qm&"</li>"
end if
ukmp=ukmp&ictc(2)&"</ul></div>"
end if
End Function
'-----------------------------------
'uk menu
'=ukmenu(ukfty,ukfmo,ukfnm,ukfwd)
'-----------------------------------
Function ukmenu(ukfty,ukfmo,ukfnm,ukfdw,ukfwd)
dim ukepall
ukmenu=ukmenu&"0"&g_gy&ew_sn&g_gy&"0"&g_gy&"0"&g_gy&"1"&g_gy&"00"&g_gy&eshrej("",uk_ur,"",1)&g_gy&"网站主页"&g_gy&g_gy&g_gy&g_gy&"0"&g_gy&"2"&g_gy&""&g_gx&"0"&g_gy&ew_sn&g_gy&"0"&g_gy&"0"&g_gy&"1"&g_gy&"00"&g_gy&eshref(s_uduk&g_urg&s_umxx&g_urg&uk_ur&g_urz,1)&g_gy&"关于我们"&g_gy&g_gy&g_gy&g_gy&"0"&g_gy&"2"&g_gy&""
ukepall=epall
if ukepall<>"" then
gysaxbb=split(ukepall,g_gx)
for gysibb=0 to ubound(gysaxbb)
gysaybb=split(gysaxbb(gysibb),g_gy)
if aiint(gysaybb(10))<2 then
ukmenu=ukmenu&g_gx&gysaybb(0)&g_gy&ew_sn&g_gy&"0"&g_gy&"0"&g_gy&"1"&g_gy&"00"&g_gy&eshrej("",uk_ur,gysaybb(1),1)&g_gy&gysaybb(2)&g_gy&g_gy&g_gy&g_gy&"0"&g_gy&"2"&g_gy&""
end if
next
end if
if ew_lt>1 then ukmenu=ukmenu&g_gx&"0"&g_gy&ew_sn&g_gy&"0"&g_gy&"0"&g_gy&"1"&g_gy&"00"&g_gy&s_udbb&g_gy&"社区论坛"&g_gy&"论坛"&g_gy&g_gy&g_gy&"0"&g_gy&"2"&g_gy&""
if not ainull(e_man) then ukfmo=e_man
ukmenu=icmenushow(ep_sx,"",ukmenu,ukfmo,70,ukfnm,"14px","45px","1|"&ukfdw&"|100%|"&ukfwd)
End Function
'-----------------------------------
'uk menu
'=ukme(ukfty)
'-----------------------------------
Function ukme(ukfty)
dim ukdlin,ukdmo
ukme=""
ukdlin=""
if ukfty="0" or ukfty="3" then
ukdmo=icvss
elseif ukfty="1" then
ukdmo=ai_eq
elseif not ainull(ukfty) then
ukdmo=ukfty
end if

dim uksdrr,uksi,uksud,ukfdrr,ukfi,ukfud
uksdrr=split(uk_fl,"==")
uksud=ubound(uksdrr)
if uksud>1 then
for uksi=1 to uksud
if aibj(ep_sn,uksdrr(uksi)) or aibj(ukdmo,uksdrr(uksi)) then
uksi=uksi+1
ukfdrr=split(uksdrr(uksi),"||")
ukfud=ubound(ukfdrr)
for ukfi=0 to ukfud
if ukfty<>"3" then
if ukfi mod 2=0 then
ukdlin=ukdlin&"<li class=""l-1"">"
else
ukdlin=ukdlin&"<li>"
end if
end if
ukdlin=ukdlin&""&icmenuico(1,1)&"<a"
if instr(ukdmo,trim(ukfdrr(ukfi)))>1 or aibj(ukdmo,trim(ukfdrr(ukfi))) then ukdlin=ukdlin&" class=""l-va"""
ukdlin=ukdlin&" href="""&eshrej("",uk_ur,esnk(ep_sn)&g_urg&efhrl(ep_ls)&g_urg&"0"&g_urg&"0"&g_urg&"0"&g_urg&g_urg&"2"&g_urg&g_urg&aijia(trim(ukfdrr(ukfi)))&g_urz,1)&""">"&trim(ukfdrr(ukfi))&"</a>"
if ukfty<>"3" then ukdlin=ukdlin&"</li>"
next
exit for
end if
next
if ainull(ep_dm) then ep_dm="导航"
if ainull(ukdlin) then
ukme=ukme&""
else
if ukfty<>"3" then ukme=ukme&esbts(ep_sx,ep_el,ep_dm&"目录"&g_gy&eshrej("",uk_ur,ep_sn&g_urz,1),"")
if ukfty<>"3" then ukme=ukme&"<div class=""l-ra""><ul>"
ukme=ukme&ukdlin
if ukfty<>"3" then ukme=ukme&"</ul></div><div class=crg></div>"
end if
else
ukme=ukme&""
end if
End Function
'-----------------------------------
'ukmy
'=ukefall()
'-----------------------------------
Function ukefall()
if not ainull(ep_sn) and not dkdir(0,ep_sn) then
ukefall=esbts(ep_sx,ep_el,ep_dm&s_udefs&g_gy&eshref(ep_sn&g_urz,1),"")
ukefall=ukefall&replace(replace(icmenu("","","1|"&ep_sn,ef_sn,22,0,14,28,20),ep_sn&g_urg,eshrej("",uk_ur,ep_sn&g_urg,1)),"?/?","?")
else
ukefall=""
end if
End Function
'-----------------------------------
'us read
'=ukusread(sn)
'-----------------------------------
Function ukusread(ukfus)
dim ukdus:ukdus=ukfus
if not aibj(ukfus,"0") and not ainull(ukfus) and not aibj(ukfus,s_umqb) then Call usread(ukdus)
uk_id=0:uk_ew=ew_sn:uk_us="":uk_sn="":uk_ef="":uk_cy=0:uk_cs="":uk_ka="":uk_kb="":uk_kc="":uk_kd="":uk_fl="":uk_up="":uk_mc="":uk_bt="":uk_co="":uk_nr="":uk_zt="":uk_ur=0:uk_xy=0:uk_px=0:uk_ot="":uk_tm="":uk_tn=0:uk_t1="":uk_xt=""
if not aibj(us_er,"0") and not ainull(us_er) and not aibj(us_er,s_umqb) then
if gysread(uklie("all"),ukbiao,"uk_us='"&aistr(lcase(us_er))&"' and "&esrew("uk",ew_sn)&"","") then
ukusread=uk_mc
else
ukusread=""
end if
end if
End Function
'-----------------------------------
'uk read
'=ukread(sn)
'-----------------------------------
Function ukread(ukfur)
dim ukdur:ukdur=ukfur
uk_id=0:uk_ew=ew_sn:uk_us="":uk_sn="":uk_ef="":uk_cy=0:uk_cs="":uk_ka="":uk_kb="":uk_kc="":uk_kd="":uk_fl="":uk_up="":uk_mc="":uk_bt="":uk_co="":uk_nr="":uk_zt="":uk_ur=0:uk_xy=0:uk_px=0:uk_ot="":uk_tm="":uk_tn=0:uk_t1="":uk_xt=""
if not aibj(ukdur,"0") and not ainull(ukdur) and not aibj(ukdur,s_umqb) then
if gysread(uklie("all"),ukbiao,"uk_ur='"&aistr(lcase(ukdur))&"' and "&esrew("uk",ew_sn)&"","") then
ukread=uk_mc
else
ukread=""
end if
end if
Call usread(uk_us)
End Function
'-----------------------------------
'uk show select
'=ukselect()
'-----------------------------------
Function ukselect(ukfep,ukfnm,ukfstr,ukfval)
ukselect=""
if not ainull(ukfstr) then
dim uksdrr,uksi,uksud,ukfdrr,ukfi,ukfud,ukvdrr,ukvi,ukvud
uksdrr=split(ukfstr,"==")
uksud=ubound(uksdrr)
ukvdrr=split(ukfval,",")
ukvud=ubound(ukvdrr)
if uksud>1 then
for uksi=1 to uksud
if aibj(ukfep,uksdrr(uksi)) then
uksi=uksi+1
if uksdrr(uksi)<>"" then
ukfdrr=split(uksdrr(uksi),"||")
ukfud=ubound(ukfdrr)
for ukfi=0 to ukfud
ukselect=ukselect&"<input type=""checkbox"""
if not ainull(ukfval) then
for ukvi=0 to ukvud
if aibj(trim(ukvdrr(ukvi)),ukfdrr(ukfi)) then ukselect=ukselect&" checked"
next
end if
ukselect=ukselect&" id="""&ukfnm&""" name="""&ukfnm&""" value="""&ukfdrr(ukfi)&""">"&ukfdrr(ukfi)
next
end if
else
uksi=uksi+1
end if
next
end if
end if
if not ainull(ukselect) then
ukselect="目录："&ukselect
end if
End Function
'-----------------------------------
'add/edit form
'=ukform()
'-----------------------------------
Function ukform(ukfty,ukfqx)
dim ukdupd,ukdmbs
if ukfty=0 then
uk_ew=ew_sn
uk_us=e_uer
uk_ur=e_uer
uk_sn=e_usn&"-"&aisn(1)
uk_cy=0
uk_xy=1
uk_px=0
uk_tm=now()
uk_tn=0
uk_t1=date()
uk_fl=""
uk_xt=espxx("开通"&s_uduks&i_gg&e_uer)
else
uk_t1=date()
uk_xt=uk_xt&espxx("修改"&i_gg&e_uer)
end if
ukdupd=i_upfh&s_uduk&"/web"&ew_sn&"/"&left(uk_sn,4)&"/"
Response.Cookies("EESaiUps")=i_upfh&s_uduk&"/web"&ew_sn&"/"&left(uk_sn,4)&"/"&uk_sn&"_"'if no_ else into uk_sn dir
'编辑风格模板
ukdmbs="<li class=""l-1"">选择："&aiselect("cy","","*","f-s1",uk_cy,0,i_bukcy)&""
if i_xkumb>0 or ukfqx=1 then
ukdmbs=ukdmbs&"提示：编辑模板高级功能开关　<input type=""button""  onclick=""document.getElementById('easmid').style.display='block';"" class=""f-se"" value=""打开""><input type=""button""  onclick=""document.getElementById('easmid').style.display='none';"" class=""f-se"" value=""关闭"">"
else
ukdmbs=ukdmbs&"提示：选中模板提交后，即可至前台查看效果。"
end if
ukdmbs=ukdmbs&"</li><ul id=""easmid"" style=""display:none;"">"
ukdmbs=ukdmbs&"<li>样式："&aitext("cs","","",0,8000,"直接输入样式表","f-x3|f-y3|f-z3",uk_cs)&"</li>"
ukdmbs=ukdmbs&"<li class=""l-1"">首页："&aitext("ka","","",0,8000,"直接输入首页模板","f-x3|f-y3|f-z3",uk_ka)&"<input type=""button""  onclick=""document.getElementById('ka').value=document.getElementById('kay').value;"" class=""f-se"" value=""还原为系统模板""></li>"
ukdmbs=ukdmbs&"<li>频道："&aitext("kb","","",0,8000,"直接输入频道模板","f-x3|f-y3|f-z3",uk_kb)&"<input type=""button""  onclick=""document.getElementById('kb').value=document.getElementById('kby').value;"" class=""f-se"" value=""还原为系统模板""></li>"
ukdmbs=ukdmbs&"<li class=""l-1"">列表："&aitext("kc","","",0,8000,"直接输入列表模板","f-x3|f-y3|f-z3",uk_kc)&"<input type=""button""  onclick=""document.getElementById('kc').value=document.getElementById('kcy').value;"" class=""f-se"" value=""还原为系统模板""></li>"
ukdmbs=ukdmbs&"<li>展示："&aitext("kd","","",0,8000,"直接输入展示模板","f-x3|f-y3|f-z3",uk_kd)&"<input type=""button""  onclick=""document.getElementById('kd').value=document.getElementById('kdy').value;"" class=""f-se"" value=""还原为系统模板""></li>"
ukdmbs=ukdmbs&"<li class=""l-1""><strong>常用标签：</strong><br>&lt;%=e_mt%&gt; 内容标题栏调用<br>&lt;%=e_ma%&gt; *模板中内容显示调用<br>&lt;%=ew_bt%&gt; 优化后的标题<br>&lt;%=ew_zt%&gt; 关键词，主题词<br>&lt;%=ew_nr%&gt; 简介<br>&lt;%=ew_cp%&gt; 版权<br>&lt;%=escss%&gt; *样式表<br>注意：带*号的标签为页面必须调用内容！"
ukdmbs=ukdmbs&"<div style=""display:none;"">"&aitext("kay","","",0,8000,"","f-x2|f-y2|f-z2",aip2t(anfile(1,i_char,0,0,eshref(dosk("d",uk_cy,"default"),3))))&""&aitext("kby","","",0,8000,"","f-x2|f-y2|f-z2",aip2t(anfile(1,i_char,0,0,eshref(dosk("d",uk_cy,"index"),3))))&""&aitext("kcy","","",0,8000,"","f-x2|f-y2|f-z2",aip2t(anfile(1,i_char,0,0,eshref(dosk("d",uk_cy,"list"),3))))&""&aitext("kdy","","",0,8000,"","f-x2|f-y2|f-z2",aip2t(anfile(1,i_char,0,0,eshref(dosk("d",uk_cy,"info"),3))))&"</div></li>"
Call dosk("","","")
ukdmbs=ukdmbs&"</ul>"
'编辑风格模板

ukform="<div class=""l-f""><form id=""EESaiForm"" name=""EESaiForm"" action="""" method=""post"" AUTOCOMPLETE=""off""><ul>"
if ukfqx=1 then
ukform=ukform&"<li class=""l-1"">名称："&aiinput("","mc","",0,50,"*空间名称","f-a2|f-b2|f-c2",uk_mc)&"账号："&aiinput("","ur","",66,50,"*将作为三级域名的前缀","f-a1|f-b1|f-c1",uk_ur)&"编码："&aiinput("","sn","",3,50,"*","f-a1|f-b1|f-c1",uk_sn)&"</li>"
else
if ukfty=0 then
ukform=ukform&"<li class=""l-1"">名称："&aiinput("","mc","",0,50,"*空间名称","f-a2|f-b2|f-c2",uk_mc)&"账号："&aiinput("","ur","",66,50,"*将作为三级域名的前缀","f-a2|f-b2|f-c2",uk_ur)&aiinput("hidden","sn","",0,0,"","",uk_sn)&"</li>"
else
ukform=ukform&"<li class=""l-1"">名称："&aiinput("","mc","",0,50,"*空间名称","f-a2|f-b2|f-c2",uk_mc)&"账号："&aiinput("read","ur","",66,50,"*将作为三级域名的前缀（已经生成，无法修改。）","f-a2|f-b2|f-c2",uk_ur)&aiinput("hidden","sn","",0,0,"","",uk_sn)&"</li>"
end if
end if
ukform=ukform&"<li>标题："&aiinput("","bt","",0,200,"*","f-a2|f-b2|f-c2",uk_bt)&"主题："&aiinput("","zt","",0,200,"*关键词","f-a2|f-b2|f-c2",uk_zt)&"</li>"
ukform=ukform&"<li class=""l-1"">简介："&aiinput("","co","",0,200,"*空间介绍","f-a4|f-b4|f-c4",uk_co)&"</li>"
if ukfqx=1 then
ukform=ukform&"<li>网站："&ewselect(0,uk_ew)&"公告："&aiinput("","ot","",0,200,"*","f-a3|f-b3|f-c3",uk_ot)&"</li>"
ukform=ukform&"<li class=""l-1"">标志："&aiinput("","up","",0,200,"标志图片或LOGO图片","f-a2|f-b2|f-c2",uk_up)&esup("0|1|"&uk_sn&"|"&ukdupd&"|0|EESaiForm|up|"&ew_py&"|"&ew_ps&"|0|0.ees")&"</li>"
ukform=ukform&""&efselect(0,i_xkfl,"ef",ew_kj,uk_ef)&""
ukform=ukform&"<li class=""l-1"">目录："&aitext("fl","","",0,8000,"空间目录","f-x4|f-y4|f-z4",uk_fl)&"</li>"
ukform=ukform&"<li>介绍："&esedit(esnr(uk_nr),"nr",8)&"</li>"
ukform=ukform&"<li class=""l-1"">会员："&aiinput("","us","",66,50,"*","f-a1|f-b1|f-c1",uk_us)&"排序："&aiinput("","px","",6,20,"*","f-a1|f-b1|f-c1",uk_px)&"积分："&aiinput("","tn","",6,20,"*","f-a1|f-b1|f-c1",uk_tn)&"状态："&aiselect("xy","","*","f-s1",uk_xy,0,i_bxy)&"</li>"
ukform=ukform&"<li>时间："&aiinput("","tm","",99,200,"*注册时间","f-a2|f-b2|f-c2",uk_tm)&"到期："&aiinput("","t1","",99,200,"*特殊功能到期时间","f-a2|f-b2|f-c2",uk_t1)&"<script src="""&eshref(i_dir&"GuoYanSai/FTM.js",3)&"""></script></li>"
ukform=ukform&"<li class=""l-1"">系统："&eseditxt(uk_xt,"xt",1)&"</li>"
ukform=ukform&ukdmbs
else
ukform=ukform&"<li>公告："&aiinput("","ot","",0,200,"*","f-a4|f-b4|f-c4",uk_ot)&"</li>"
ukform=ukform&"<li class=""l-1"">标志："&aiinput("","up","",0,200,"标志图片或LOGO图片","f-a2|f-b2|f-c2",uk_up)&esup("0|1|"&uk_sn&"|"&ukdupd&"|0|EESaiForm|up|"&ew_py&"|"&ew_ps&"|0|0.ees")&"</li>"
ukform=ukform&aiinput("hidden","fl","",0,0,"","",uk_fl)
ukform=ukform&""&efselect(0,i_xkfl,"ef",ew_kj,uk_ef)&""
ukform=ukform&"<li class=""l-1"">介绍："&esedit(esnr(uk_nr),"nr",8)&"</li>"
if ukfty=1 then
ukform=ukform&ukdmbs
else
ukform=ukform&aiinput("hidden","cy","",0,0,"","",uk_cy)&aiinput("hidden","cs","",0,0,"","",uk_cs)&aiinput("hidden","ka","",0,0,"","",uk_ka)&aiinput("hidden","kb","",0,0,"","",uk_kb)&aiinput("hidden","kc","",0,0,"","",uk_kc)&aiinput("hidden","kd","",0,0,"","",uk_kd)
end if
ukform=ukform&aiinput("hidden","ew","",0,0,"","",uk_ew)&aiinput("hidden","us","",0,0,"","",uk_us)&aiinput("hidden","px","",0,0,"","",uk_px)&aiinput("hidden","tn","",0,0,"","",uk_tn)&aiinput("hidden","xy","",0,0,"","",uk_xy)&aiinput("hidden","tm","",0,0,"","",uk_tm)&aiinput("hidden","t1","",0,0,"","",uk_t1)&aiinput("hidden","xt","",0,0,"","",uk_xt)
end if
ukform=ukform&eskyx(1,1,2)
if ukfty=1 then
ukform=ukform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umxgs)&aiinput("hidden","id","",0,0,"","",uk_id)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
elseif ukfty=0 then
ukform=ukform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umtjs)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
end if
ukform=ukform&"</ul></form></div>"
End Function
'-----------------------------------
'add action
'=ukadd()
'-----------------------------------
Function ukadd(ukfqx)
ew_bt=s_umtjs&s_uduks&","&ew_bt:ew_zt=s_umtjs&s_uduks&","&ew_zt:ew_nr=s_umtjs&s_uduks&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&e_ur1&""">"&s_umtjs&s_uduks&"</a>"
e_mt=esbts(s_udxuk,s_udluk,s_umtjs&s_uduks&g_gy&e_ur1,s_uduks&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) then
if aireqx("sn,mc,bt,us,ur") then
if gysfm(uklie("form"),ukbiao,"uk_sn='"&aistr(aireq("sn"))&"' or ("&esrew("uk",ew_sn)&" and uk_ur='"&aistr(aireq("ur"))&"') or ("&esrew("uk",ew_sn)&" and uk_us='"&e_uer&"')","uk_",1) then
Call aisn(0)
e_ma=e_ma&aigo(s_umtjs&s_uduks&s_ztcg,e_ur0)
else
e_ma=e_ma&aigo(s_umtjs&s_uduks&s_ztsb,1)
end if
else
e_ma=e_ma&aigo(s_umtjs&s_uduks&s_ztsb,1)
end if
else
e_ma=ukform(0,ukfqx)&e_ma
end if
End Function
'-----------------------------------
'edit action
'=ukedit()
'-----------------------------------
Function ukedit(ukfqx)
ew_bt=s_umxgs&s_uduks&","&ew_bt:ew_zt=s_umxgs&s_uduks&","&ew_zt:ew_nr=s_umxgs&s_uduks&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&eshref(s_umgl&g_urg&s_uduk&g_urg&s_umxg&g_urg&g_u3&g_urz,77)&""">"&s_umxgs&s_uduks&"</a>"
if ukfqx=1 then
e_mt=esbts(s_udxuk,s_udluk,s_umxgs&s_uduks&g_gy&eshref(s_umgl&g_urg&s_uduk&g_urg&s_umxg&g_urg&g_u3&g_urz,77),s_umtjs&s_uduks&g_gy&e_ur1&g_gx&s_uduks&s_umlbs&g_gy&e_ur0)
else
e_mt=esbts(s_udxuk,s_udluk,s_umxgs&s_uduks&g_gy&eshref(s_uduk&g_urg&s_umxg&g_urg&g_u3&g_urz,77),"")
end if
if esky(1,e_uzj) then
if aireqx("sn,mc,bt,us,ur") then
if gysfm(uklie("form"),ukbiao,"uk_id="&aiint(aireq("id"))&" or (uk_id<>"&aiint(aireq("id"))&" and uk_sn='"&aistr(aireq("sn"))&"')","uk_",2) then
e_ma=e_ma&aigo(s_umxgs&s_uduks&s_ztcg,e_ur0)
else
e_ma=e_ma&aigo(s_umxgs&s_uduks&s_ztsb,1)
end if
else
e_ma=e_ma&aigo(s_umxgs&s_uduks&s_ztsb,1)
end if
else
if ukfqx=1 then
ukwhere="uk_id="&aiint(g_u3)&""
else
ukwhere=""&esrew("uk",ew_sn)&" and uk_us='"&e_uer&"'"
end if
if gysread(uklie("all"),ukbiao,ukwhere,"") then
ew_bt=uk_mc&","&ew_bt:ew_zt=uk_mc&","&ew_zt:ew_nr=uk_mc&","&ew_nr
e_ma=ukform(1,ukfqx)&e_ma
else
response.Redirect(eshref(s_uduk&g_urg&s_umtj&g_urz,66))
end if
end if
End Function
'-----------------------------------
'edit fl action
'=ukfltj()
'-----------------------------------
Function ukfltj()
ew_bt=s_umxgs&s_uduks&s_udefs&","&ew_bt:ew_zt=s_umxgs&s_uduks&s_udefs&","&ew_zt:ew_nr=s_umxgs&s_uduks&s_udefs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl="<a href="""&eshrej("",uk_ur,"",2)&""">"&uk_mc&"</a> &gt;&gt; <a href="""&eshrej(s_umgl,uk_ur,ep_sn&g_urz,2)&""">"&ep_mc&"</a> &gt;&gt; "&s_umxgs&ep_dm&"目录"
e_mt=esbts(ep_sx,ep_el,s_umxgs&s_uduks&"目录","")
dim uksdrr,uksi,uksud,ukfdrr,ukfi,ukfud
if esky(1,e_uzj) then
if aireqx("fl") then
dim uklfl,uklflj
uklfl=""
if not ainull(aireq("fly")) then
uksdrr=split(aireq("fly"),"==")
uksud=ubound(uksdrr)
if uksud>1 then
for uksi=1 to uksud
if aibj(g_u3,uksdrr(uksi)) then
uklflj="=="&g_u3&"=="&uksdrr(uksi+1)
end if
uksi=uksi+1
next
end if
end if
uklfl="=="&g_u3&"=="&replace(replace(replace(aireq("fl"),", ","||"),",",""),"||||","||")&replace(aireq("fly"),uklflj,"")
if gysgx(ukbiao,"uk_fl='"&uklfl&"'","uk_id="&aiint(aireq("id"))&" and "&esrew("uk",ew_sn)&" and uk_us='"&e_uer&"'") then
e_ma=e_ma&aigo(s_umxgs&s_uduks&s_ztcg,g_u)
else
e_ma=e_ma&aigo(s_umxgs&s_uduks&s_ztsb,1)
end if
else
e_ma=e_ma&aigo(s_umxgs&s_uduks&s_ztsb,1)
end if
else
ukwhere=""&esrew("uk",ew_sn)&" and uk_us='"&e_uer&"'"
if gysread("uk_id,uk_fl",ukbiao,ukwhere,"") then
e_ma=e_ma&"<div class=""l-f""><form id=""EESaiForm"" name=""EESaiForm"" action="""" method=""post"" AUTOCOMPLETE=""off""><ul>"
uksdrr=split(uk_fl,"==")
uksud=ubound(uksdrr)
if uksud>1 then
for uksi=1 to uksud
if aibj(g_u3,uksdrr(uksi)) then
uksi=uksi+1
ukfdrr=split(uksdrr(uksi),"||")
ukfud=ubound(ukfdrr)
for ukfi=0 to ukfud
if ukfi mod 2=0 then
e_ma=e_ma&"<li class=""l-1"">"
else
e_ma=e_ma&"<li>"
end if
e_ma=e_ma&"目录"&ukfi+1&"："&aiinput("","fl","",0,200,"*您可以修改目录名称（注意：不会修改已经发表内容的目录）","f-a2|f-b2|f-c2",trim(ukfdrr(ukfi)))&"</li>"
next
exit for
end if
next
e_ma=e_ma&"<li class=""l-1"">新增："&aiinput("","fl","",0,200,"*直接输入目录名称","f-a3|f-b3|f-c3","")&"</li>"
else
e_ma=e_ma&"<li class=""l-1"">新增："&aiinput("","fl","",0,200,"*直接输入目录名称","f-a3|f-b3|f-c3","")&"</li>"
end if
e_ma=e_ma&eskyx(0,1,2)
e_ma=e_ma&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umxgs)&aiinput("hidden","id","",0,0,"","",uk_id)&aiinput("hidden","fly","",0,0,"","",uk_fl)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
e_ma=e_ma&"</ul></form></div>"
else
response.Redirect(eshref(s_uduk&g_urg&s_umtj&g_urz,66))
end if
end if
End Function
'-----------------------------------
'del
'=ukdel(ukfqx)
'-----------------------------------
Function ukdel(ukfqx)
ew_bt=s_uduks&s_umscs&","&ew_bt:ew_zt=s_uduks&s_umscs&","&ew_zt:ew_nr=s_uduks&s_umscs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; "&s_uduks&s_umscs&""
e_mt=esbts(s_udxuk,s_udluk,s_umscs&s_uduks,s_umtjs&s_uduks&g_gy&e_ur1&g_gx&s_uduks&s_umlbs&g_gy&e_ur0)
if ukfqx=1 then
if e_uty>2 then
if aiint(g_u3)>0 then
if gysdel(ukbid,ukbiao,"uk_id="&aiint(g_u3)) then
e_ma=e_ma&aitiao(s_uduks&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduks&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u2,s_umsc&"-x") then
if gysdel(ukbid,ukbiao,""&esrew("uk",ew_sn)&" and uk_xy=0") then
e_ma=e_ma&aitiao(s_uduks&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduks&s_umscs&s_ztsb,1)
end if
end if
end if
else
if aiint(g_u2)>0 then
if gysdel(ukbid,ukbiao,"uk_us='"&e_uer&"' and uk_xy=0 and uk_id="&aiint(g_u2)) then
e_ma=e_ma&aitiao(s_uduks&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduks&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u1,s_umsc&"-x") then
if gysdel(ukbid,ukbiao,"uk_us='"&e_uer&"' and "&esrew("uk",ew_sn)&" and uk_xy=0") then
e_ma=e_ma&aitiao(s_uduks&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduks&s_umscs&s_ztsb,1)
end if
end if
end if
End Function
'-----------------------------------
'go show
'=ukshowx(ukfus)
'-----------------------------------
Function ukshowx(ukfus)
Call esq()
us_er=left(g_u2,100)
ew_bt=us_er&","&ew_bt:ew_zt=us_er&","&ew_zt:ew_nr=us_er&","&ew_nr:ew_cp=us_er&","&ew_cp
uk_ur=gysro("uk_ur",ukbiao,"uk_us='"&us_er&"' and "&esrew("uk",ew_sn)&" and uk_xy>0","")
if ainull(uk_ur) then
us_sn=gysro("us_sn",usbiao,"us_er='"&us_er&"'","")
if ainull(us_sn) then
Response.Write(aigo("提示：用户信息暂未审核或不存在。",eshref(s_udus&g_urz,1)))
else
Response.Redirect(eshref(s_udus&g_urg&s_umxx&g_urg&us_sn&g_urz,1))
end if
else
Response.Redirect(eshref(s_uduk&g_urg&s_umxx&g_urg&uk_ur&g_urz,1))
end if
End Function
'-----------------------------------
'show
'=ukshow(ukfty)
'-----------------------------------
Function ukshow(ukfur)
if aibj(g_u0,s_umgl) then
ukwhere="uk_ur='"&aistr(ukfur)&"'"
else
ukwhere="uk_ur='"&aistr(ukfur)&"' and uk_xy>0"
end if
if gysread(uklie("all"),ukbiao,ukwhere,"") then
ew_bt=uk_mc&","&ew_bt:ew_zt=uk_mc&","&ew_zt:ew_nr=uk_mc&","&ew_nr:ew_cp=uk_us&","&ew_cp
dim ukdsx,ukdpur,ukdpg,lidgl
if aibj(g_u0,s_umgl) then
e_wl="<a href="""&eshrej(s_umgl,uk_ur,"",2)&""">"&uk_mc&"</a> &gt;&gt; 关于我们"
ukdpg=aiint(g_u4)
ukdpur=eshref(s_umgl&g_urg&s_uduk&g_urg&g_u2&g_urg&uk_ur&g_urg&g_gp&g_urz,77)
'admin 0
lidgl=""
lidgl=lidgl&g_gx&"修改"&s_uduks&g_gy&eshref(s_umgl&g_urg&s_uduk&g_urg&s_umxg&g_urg&uk_id&g_urz,77)
lidgl=lidgl&g_gx&"删除"&s_uduks&g_gy&eshref(s_umgl&g_urg&s_uduk&g_urg&s_umsc&g_urg&uk_id&g_urz,77)
'admin 1
e_mt=esbts(ukdsx,s_udluk,uk_mc&g_gy&eshref(s_umgl&g_urg&s_uduk&g_urg&s_umxx&g_urg&uk_ur&g_urz,77),lidgl)
else
e_wl="<a href="""&eshrej("",uk_ur,"",2)&""">"&uk_mc&"</a> &gt;&gt; 关于我们"
ukdpg=aiint(g_u3)
ukdpur=eshref(s_uduk&g_urg&g_u1&g_urg&uk_ur&g_urg&g_gp&g_urz,66)
'admin 0
lidgl=""
if aibj(uk_us,e_uer) then
lidgl=lidgl&g_gx&"修改"&s_uduks&g_gy&eshref(s_uduk&g_urg&s_umxg&g_urg&uk_id&g_urz,66)
if aibj(uk_xy,"0") then lidgl=lidgl&g_gx&"删除"&s_uduks&g_gy&eshref(s_uduk&g_urg&s_umsc&g_urg&uk_id&g_urz,66)
end if
'admin 1
e_mt=esbts(ukdsx,s_udluk,uk_mc&g_gy&eshref(s_uduk&g_urg&uk_ur&g_urg&s_umzs&g_urz,66),s_uduks&s_umlbs&g_gy&eshref(s_uduk&g_urg&s_umlb&g_urz,66)&g_gx&s_uduks&s_umxxs&g_gy&eshref(s_uduk&g_urg&s_umxx&g_urg&uk_ur&g_urz,66)&lidgl)
end if
e_ma=e_ma&"<div class=""c-a"">"
'--------------------------------CONTENT 0
e_ma=e_ma&"<div class=""c-i"" id=""AsaiNR"">"
e_ma=e_ma&esnrgys(uk_nr,ukdpur,ukdpg)
e_ma=e_ma&"</div>"
'--------------------------------CONTENT 1
if aiint(ukdpg)<2 then
e_ma=e_ma&"<li class=""c-h"">"&uk_mc&" 介绍</li>"'tit
e_ma=e_ma&ukmp(1)
end if
e_ma=e_ma&espl(eshref(s_uduk&g_urg&s_umxx&g_urg&uk_ur&g_urz,66),uk_id,0,uk_xt,ukbiao,"uk_xt","uk_id","")
e_ma=e_ma&"</div>"
else
e_ma=e_ma&aigo(s_uduks&s_ztno,1)
end if
End Function
'-----------------------------------
'list
'=uktop(ukfty=0list/1list+tm/"wd-hei",ukffw=0all/1,ukfpx)
'-----------------------------------
Function uktop(ukfty,ukffw,ukfpx)
if aibj(ukfty,"0") then

elseif aibj(ukfty,"1") then

elseif not ainull(ukfty) then
dim ukdrr,ukdwd,ukdht
ukdrr=split(ukfty,"-")
if ubound(ukdrr)>0 then
ukdwd=ukdrr(0)
ukdht=ukdrr(1)


end if
end if
End Function
'-----------------------------------
'list
'=uklist()
'-----------------------------------
Function uklist(ukfqx)
e_mt=esbts(s_udxuk,s_udluk,s_uduks&s_umlbs&g_gy&e_ur0,"")
dim uklpg,uklps,uklpuq,uklpuh,uklpur,uklgrr
if ukfqx=1 then
uklpuq=eshref(s_umgl&g_urg&s_uduk,66)
uklef=g_u2
lidms=g_u3
uklpuh=g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10
uklpur=uklpuq&g_urg&uklef&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&uklpuh&g_urz
uklpg=aiint(g_u4)
uklps=aiint(g_u5)
else
uklpuq=eshref(s_uduk,66)
uklef=g_u1
lidms=g_u2
uklpuh=g_u5&g_urg&g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9
uklpur=uklpuq&g_urg&uklef&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&uklpuh&g_urz
uklpg=aiint(g_u3)
uklps=aiint(g_u4)
end if
if ukfqx=1 then e_ma=e_ma&replace(icmenu("","","1|"&ew_kj,ef_sn,4004,0,14,28,0),s_uduk&g_urg,s_umgl&g_urg&s_uduk&g_urg)

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

Call ukss(0)
e_ma=e_ma&icliq(iclls,uklpuq&g_urg&uklef&g_urg&lidms,uklpuh,e_gdj,ukfqx,"uk")
Call uktj(s_uduk&g_urg&uklef&g_urg&uklpuh,0,0)
if uklps=0 then
if aibj(lidms,s_umyq) then
uklps=i_nmhc
else
uklps=i_nmlb
end if
end if

'@@uk_id,1uk_ew,2uk_us,3uk_sn,4uk_up,5uk_mc,6uk_bt,7uk_co,8uk_nr,9uk_zt,10uk_ur,11uk_xy,12uk_px,13uk_tm,14uk_tn
if gyslist(ukbid,uklie(s_umlb),ukbiao,ukwhere,ukorder,uklpur,uklpg,uklps,200,"") then
lidti=""
'top------0
if aibj(lidms,s_umlb) then
if ukfqx=1 then lidti=lidti&"<b>管理</b>"
lidti=lidti&"<u>状态</u>"
lidti=lidti&"<u>开通时间</u>"
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=uklic(1,0,0,gysay(11),gysay(12),gysay(13),gysay(4))&gysay(5)&uklic(1,1,0,gysay(11),gysay(12),gysay(13),gysay(4))
lidtt="名称："&gysay(5)&vbNewLine
lidtt=lidtt&"账号："&gysay(10)&""&vbNewLine
lidtt=lidtt&"会员："&gysay(2)&""&vbNewLine
lidtt=lidtt&"账号状态："&aiarr(i_bxy,"|",aiint(gysay(11)))&vbNewLine
lidtt=lidtt&"注册时间："&gysay(13)
if ukfqx=1 then
lidlj=eshref(s_umgl&g_urg&s_uduk&g_urg&s_umxx&g_urg&gysay(10)&g_urz,77)
else
lidlj=eshrej("",gysay(10),"",66)
end if
if ukfqx=1 then lidgl="<b><input type=""checkbox"" id=""sid"" name=""sid"" value="""&gysay(0)&""">"&aibuttonk(eshref(s_umgl&g_urg&s_uduk&g_urg&s_umxg&g_urg&gysay(0)&g_urz,66),"","","","f-se","Edit")&aibuttonk(eshref(s_umgl&g_urg&s_uduk&g_urg&s_umsc&g_urg&gysay(0)&g_urz,66),s_umscs&s_uduks&s_ztqr,"","","f-se","Del")&"</b>"
if aibj(lidms,s_umyq) then
lids1=aiint(gysay(14))
elseif aibj(lidms,s_umlb) then
lids1=lids1&"<u>"&aiarr(i_bxy,"|",aiint(gysay(11)))&"</u>"
lids1=lids1&"<u>"&aitm(gysay(13),2)&"</u>"
lids1=lids1&"<u>"&gysay(2)&"</u>"
lids1=lids1&"<u>"&gysay(10)&"</u>"
elseif aibj(lidms,s_umlp) then
lids1=ukpic(gysay(4),gysay(5),lidtt,lidlj,0)
else
lids1=gysay(10)
lids2=lids2&"注册时间："&aitm(gysay(13),2)
if not ainull(gysay(8)) or aibj(lidms,s_umlh) then
lids3=lids3&"<div class=""l-cd lh"">"
if aibj(lidms,s_umlh) then lids3=lids3&ukpic(gysay(4),gysay(5),lidtt,lidlj,1)
if aibj(lidms,s_umlc) then
lids3=lids3&ukpic(gysay(4),gysay(5),lidtt,lidlj,2)&gysay(8)
else
lids3=lids3&left(gysay(8),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
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,ukfqx,eshref(s_umgl&g_urg&s_uduk&g_urg&s_umsc&"-x"&g_urz,77),"uk")
End Function
'-----------------------------------
'=ukpic("")
'-----------------------------------
Function ukpic(ukfstr,ukfbt,ukfbx,ukflj,ukfty)
if ukfty=0 then
ukfstr=esups(ukfstr,11)
else
ukfstr=esups(ukfstr,1)
end if
if not ainull(ukfstr) then
dim eslbta,eslbts,eslbtx
if not ainull(ukfbt) then
eslbta=" alt="""&ukfbt&""""
eslbtx=" title="""&ukfbt&""""
if ukfty=2 then
eslbts="<span>"&ukfbt&"</span>"
else
eslbts="<font>"&ukfbt&"</font>"
end if
end if
if not ainull(ukfbx) then eslbtx=" title="""&ukfbx&""""
if ukfty<3 then
ukpic=ukpic&"<a href="""&ukflj&""""&eslbtx&"><img src="""&ukfstr&""""&eslbta&"></a>"
elseif ukfty=3 or ukfty=4 then'show
if left(ukflj,1)<>"/" and not aibj(left(ukflj,7),"http://") then
if not ainull(ukflj) then ukflj=esups(ukflj,1)
end if
if ukfty=3 then ukpic="<div class=""c-u"">"
if not ainull(ukflj) then ukpic=ukpic&"<a href="""&ukflj&""""&eslbtx&">"
ukpic=ukpic&"<img src="""&ukfstr&""""&eslbta&">"
if ukfty=3 then ukpic=ukpic&"<br>"&eslbts
if not ainull(ukflj) then ukpic=ukpic&"</a>"
if ukfty=3 then ukpic=ukpic&"</div>"
end if
end if
End Function
'-----------------------------------
'=uklic(1,"")
'-----------------------------------
Function uklic(ukfkg,ukfty,ukfsx,ukfxy,ukfpx,ukftm,ukfup)
uklic=""
ukfsx=aiint(ukfsx)
if ukfkg=1 and ukfty=0 then
uklic=uklic&icqz(1,ukfxy,ukfpx)
elseif ukfkg=1 and ukfty=1 then
uklic=uklic&ichz(1,ukftm,0,ukfup)
end if
End Function

'-----------------------------------
'=ukss()
'Call ukss()
'-----------------------------------
Function ukss(ukfty)
dim icdspx,icdsfx,icdsxx
icdssp="排序|积分|推荐|排行|开通|到期|"
icdspx="uk_id desc|uk_tn desc|uk_xy desc|uk_px desc|uk_tm desc|uk_t1 desc|uk_us desc|uk_mc desc|uk_ur desc|"
if e_gdj>2 then icdssp=icdssp&"会员|名称|域名|"

icdssf="范围|推荐|三星|四星|五星|图片|"
icdsfx="|uk_xy>1|uk_xy>2|uk_xy>3|uk_xy>4|(uk_up<>'' and uk_up<>'0' and uk_up<>'null')|"
icdssf=icdssf&"过期|正常|"
if saidbty=0 then
icdssf=icdssf&"datediff('d',uk_tm,Now())>0|datediff('d',uk_tm,Now())<0|"
elseif saidbty=1 then
icdssf=icdssf&"datediff(d,uk_tm,'"&Now()&"')>0|datediff(d,uk_tm,'"&Now()&"')<0|"
end if
icdssf=icdssf&"T100|T600|"
icdsfx=icdsfx&"100|600|"
icdssf=icdssf&esqday(0)&"|"
icdsfx=icdsfx&esqday("uk_tm")&"|uk_xy=1|uk_xy=0|"
if e_gdj>2 then icdssf=icdssf&"普通|禁用|"

icdssx="项目|名称|标题|简介|主题|内容|网址|编码|分类|其他|会员|时间|"
icdsxx="uk_mc|uk_mc|uk_bt|uk_co|uk_zt|uk_nr|uk_ur|uk_sn|uk_ef|uk_ot|uk_us|uk_tm|uk_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
'-----------------------------------
'=uktj(ukfstr=频道ep/1分类ef/2排序ssp/3范围ssf/4项目ssx/5模式ssm/6关键词sss,ukffl=分类样式-多选分类|单选分类,ukfty)
'-----------------------------------
Function uktj(ukfstr,ukffl,ukfty)
dim icdarr,icdsep,icdsef,icdbx
icdarr=split(ukfstr&"//////","/")
ukwhere="6=6"
ukorder=""
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(ukffl)>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(ukwhere) then ukwhere=ukwhere&" and "
if left(icdfvrr(icdfvi),1)="0" then
'★★★★★this do for tags 0
dim ukltlie,ukltliez,ukltliezrr
ukltlie=right(left(icdfvrr(icdfvi),3),2)
if instr("xy,px,hi,xi,bd,bc,jg,jy,oz,oy",ukltlie)>0 then
ukltliez=right(icdfvrr(icdfvi),len(icdfvrr(icdfvi))-3)
ukltliezrr=split(ukltliez&"-","-")
if ukltliezrr(0)=ukltliezrr(1) then
ukwhere=ukwhere&"uk_"&ukltlie&"="&aiint(ukltliezrr(0))&""
elseif ukltliezrr(0)<>"" and ukltliezrr(1)<>"" then
ukwhere=ukwhere&"uk_"&ukltlie&">="&aiint(ukltliezrr(0))&" and uk_"&ukltlie&"<="&aiint(ukltliezrr(1))&""
elseif ukltliezrr(0)<>"" then
ukwhere=ukwhere&"uk_"&ukltlie&">="&aiint(ukltliezrr(0))&""
elseif ukltliezrr(1)<>"" then
ukwhere=ukwhere&"uk_"&ukltlie&"<="&aiint(ukltliezrr(1))&""
else
ukwhere=ukwhere&icdfvi&"="&icdfvi
end if
else
if not aibj(icdfvrr(icdfvi),s_umqb) then
icdbx=1
ukwhere=ukwhere&"uk_ef like '"&icdfvrr(icdfvi)&"%'"
else
ukwhere=ukwhere&"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&"uk_ef like '"&icdfvrrx(icdfvrrxi)&"%'"
next
if icdfvrrxw<>"" then
ukwhere=ukwhere&"("&icdfvrrxw&")"
else
ukwhere=ukwhere&icdfvi&"="&icdfvi
end if
else
if not aibj(icdfvrr(icdfvi),s_umqb) then
icdbx=1
ukwhere=ukwhere&"uk_ef like '"&icdfvrr(icdfvi)&"%'"
else
ukwhere=ukwhere&"6=6"
end if
end if
end if
end if
next
end if
'cdv 1
else
'ef
icdbx=1
if not ainull(ukwhere) then ukwhere=" and "&ukwhere
'ukwhere="uk_ef='"&icdsef&"'"&ukwhere
ukwhere="uk_ef like '"&icdsef&"%'"&ukwhere
end if
'----------------------------------ef1
end if

'sp
if icvsp>0 then
ukorder=icdrrp(icvsp)
else
ukorder=ukordermo
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
ukwhere=ukwhere&" and ("&icvsslin&")"
iclapp=1
icdbx=1
end if
end if

'ew
if aiint(ew_sn)>0 then ukwhere=ukwhere&" and uk_ew="&aiint(ew_sn)

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

ukwhere=replace(ukwhere,"6=6 and ","")

'sf
if icvsf>0 then
dim icvsflin
icvsflin=icdrrf(icvsf)
if aibj(right(icvsflin,2),"00") then
ukwhere="uk_id in (select top "&aiint(icvsflin)&" uk_id from "&sukdbqz&"uk where "&ukwhere&" order by uk_id desc)"
else
ukwhere=ukwhere&" and "&icvsflin
end if
end if
End Function
%>