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

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

if e_xa<1 and (aibj(g_u0,s_udux) or aibj(g_u1,s_udux)) then
e_xa=e_xa+1
Call esq()
Call doq(1,e_uer,6,g_u0,s_udux,s_uduxs&s_umlbs)

if (e_gdj>2 or e_uty>1) and aibj(g_u0,s_umgl) and aibj(g_u1,s_udux) and aibj(g_u2,s_umtj) then
Call uxadd(1)
elseif aibj(g_u0,s_udux) and aibj(g_u1,s_umfb) then
e_skc=dosk("a","frm",""):Call uxadd(0)
elseif aibj(g_u0,s_udux) and aibj(g_u1,s_umtj) then
Call uxadd(0)
elseif (e_gdj>2 or e_uty>1) and aibj(g_u0,s_umgl) and aibj(g_u1,s_udux) and aibj(g_u2,s_umxg) and aiint(g_u3)>0 then
Call uxedit(1)
elseif aibj(g_u0,s_udux) and aibj(g_u1,s_umxg) then
Call uxedit(0)
elseif (e_gdj>2 or e_uty>1) and aibj(g_u0,s_umgl) and aibj(g_u1,s_udux) and (aibj(g_u2,s_umxx) or aibj(g_u2,s_umzs)) and not ainull(g_u3) then
Call uxshow(g_u3)
elseif aibj(g_u0,s_udux) and (aibj(g_u1,s_umxx) or aibj(g_u1,s_umzs)) and not ainull(g_u2) then
Call uxshow(g_u2)
elseif (e_gdj>2 or e_uty>1) and aibj(g_u0,s_umgl) and aibj(g_u1,s_udux) and ((aibj(g_u2,s_umsc) and aiint(g_u3)>0) or aibj(g_u2,s_umsc&"-x")) then
Call uxdel(1)
elseif aibj(g_u0,s_udux) and ((aibj(g_u1,s_umsc) and aiint(g_u2)>0) or aibj(g_u1,s_umsc&"-x")) then
Call uxdel(0)
elseif (e_gdj>2 or e_uty>1) and aibj(g_u0,s_umgl) and aibj(g_u1,s_udux) and dkdir(2,g_u2) then
Call uxlist(1)
elseif aibj(g_u0,s_udux) and dkdir(2,g_u1) then
Call uxlist(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","ux")
end if
end if
'------get skin 1
Response.Write esr(0,e_skc):Response.End()
end if
'-----------------------------------
'Data Table
'=uxlie()
'-----------------------------------
Function uxlie(uxfty)
if uxfty="form" then
uxlie="sn,co,tm,us,u1,px,xy,ot,xt"
elseif uxfty=s_umlb then
uxlie="ux_id,ux_sn,ux_co,ux_tm,ux_us,ux_u1,ux_px,ux_xy"
elseif uxfty="all" then
uxlie="ux_id,ux_sn,ux_co,ux_tm,ux_us,ux_u1,ux_px,ux_xy,ux_ot,ux_xt"
end if
End Function
'-----------------------------------
'add/edit form
'=uxform()
'-----------------------------------
Function uxform(uxfty,uxfqx)
if uxfty=0 then
ux_us=e_uer
ux_sn="SM"&aisn(1)
ux_tm=now()
if uxfqx=1 then
if not ainull(g_u3) then ux_u1=aistr(g_u3)
else
if not ainull(g_u2) then ux_u1=aistr(g_u2)
end if
ux_px=0
ux_xy=1
ux_xt=espxx("发送"&i_gg&e_uer)
else
ux_xt=ux_xt&espxx("修改"&i_gg&e_uer)
end if
uxform="<div class=""l-f""><form id=""EESaiForm"" name=""EESaiForm"" action="""" method=""post"" AUTOCOMPLETE=""off""><ul>"
if uxfqx=1 then
uxform=uxform&"<li class=""l-1"">发送："&aiinput("","us","",66,50,"*发送人(系统信息发送人"&ew_kt&")","f-a1|f-b1|f-c1",ux_us)&"接收："&aiinput("","u1","",66,50,"*接收人(公共信息请发送到"&ew_kg&")","f-a1|f-b1|f-c1",ux_u1)&"时间："&aiinput("","tm","",99,200,"*","f-a2|f-b2|f-c2",ux_tm)&"<script src="""&eshref(i_dir&"GuoYanSai/FTM.js",3)&"""></script></li>"
uxform=uxform&"<li>内容："&aiinput("","co","",0,200,"*内容","f-a4|f-b4|f-c4",ux_co)&"</li>"
uxform=uxform&"<li class=""l-1"">其他："&aiinput("","ot","",0,200,"*其他信息","f-a4|f-b4|f-c4",ux_ot)&"</li>"
uxform=uxform&"<li>编码："&aiinput("","sn","",3,50,"*","f-a2|f-b2|f-c2",ux_sn)&"排序："&aiinput("","px","",6,20,"*","f-a1|f-b1|f-c1",ux_px)&"状态："&aiselect("xy","","*","f-s1",ux_xy,0,i_buxxy)&"</li>"
uxform=uxform&"<li class=""l-1"">系统："&eseditxt(ux_xt,"xt",1)&"</li>"
else
if uxfty=1 and aibj(ux_u1,e_uer) then
uxform=uxform&"<li class=""l-1"">状态："&aiselect("xy","","*","f-s1",ux_xy,0,replace(i_buxxy,aiarr(i_buxxy,"|",0),"垃圾短信"))&"其他："&aiinput("","ot","",0,200,"其他信息（可用作短信回复信息）","f-a3|f-b3|f-c3",ux_ot)&"</li>"
uxform=uxform&aiinput("hidden","u1","",0,0,"","",ux_u1)&aiinput("hidden","co","",0,0,"","",ux_co)&aiinput("hidden","us","",0,0,"","",ux_us)&aiinput("hidden","tm","",0,0,"","",ux_tm)&aiinput("hidden","sn","",0,0,"","",ux_sn)&aiinput("hidden","px","",0,0,"","",ux_px)&aiinput("hidden","xt","",0,0,"","",ux_xt)
elseif uxfty=1 and aibj(ux_us,e_uer) then
uxform=uxform&"<li class=""l-1"">接收："&aiinput("","u1","",66,50,"*接收人(公共信息请发送到"&ew_kg&")","f-a1|f-b1|f-c1",ux_u1)&"内容："&aiinput("","co","",0,200,"*内容","f-a3|f-b3|f-c3",ux_co)&"</li>"
uxform=uxform&aiinput("hidden","us","",0,0,"","",ux_us)&aiinput("hidden","tm","",0,0,"","",ux_tm)&aiinput("hidden","ot","",0,0,"","",ux_ot)&aiinput("hidden","sn","",0,0,"","",ux_sn)&aiinput("hidden","px","",0,0,"","",ux_px)&aiinput("hidden","xy","",0,0,"","",ux_xy)&aiinput("hidden","xt","",0,0,"","",ux_xt)
elseif uxfty=0 then
if aibj(g_u1,s_umfb) then
uxform=uxform&"<li class=""l-1"">接收："&aiinput("","u1","",66,50,"","f-a1|f-b1|f-c1",ux_u1)&"*接收人账号(公共信息请发送到"&ew_kg&")</li>"
uxform=uxform&"<li>内容："&aiinput("","co","",0,200,"*内容","f-a3|f-b3|f-c3",ux_co)&"</li>"
else
uxform=uxform&"<li class=""l-1"">接收："&aiinput("","u1","",66,50,"*接收人(公共信息请发送到"&ew_kg&")","f-a1|f-b1|f-c1",ux_u1)&"内容："&aiinput("","co","",0,200,"*内容","f-a3|f-b3|f-c3",ux_co)&"</li>"
end if
uxform=uxform&aiinput("hidden","us","",0,0,"","",ux_us)&aiinput("hidden","tm","",0,0,"","",ux_tm)&aiinput("hidden","ot","",0,0,"","",ux_ot)&aiinput("hidden","sn","",0,0,"","",ux_sn)&aiinput("hidden","px","",0,0,"","",ux_px)&aiinput("hidden","xy","",0,0,"","",ux_xy)&aiinput("hidden","xt","",0,0,"","",ux_xt)
end if
end if
uxform=uxform&eskyx(0,1,2)
if uxfty=1 then
uxform=uxform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umxgs)&aiinput("hidden","id","",0,0,"","",ux_id)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
elseif uxfty=0 then
uxform=uxform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb","发送")&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
end if
uxform=uxform&"</ul></form></div>"
End Function
'-----------------------------------
'add action
'=uxadd()
'-----------------------------------
Function uxadd(uxfqx)
ew_bt="发送"&s_uduxs&","&ew_bt:ew_zt="发送"&s_uduxs&","&ew_zt:ew_nr="发送"&s_uduxs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&e_ur1&""">发送"&s_uduxs&"</a>"
e_mt=esbts(s_udxux,s_udlux,"发送"&s_uduxs&g_gy&e_ur1,s_uduxs&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) then
if aireqx("sn,us,u1,co") then
if gysat("us_ux",usbiao,"us_er='"&aitit(aireq("u1"))&"'","+1") then
if gysfm(uxlie("form"),uxbiao,"ux_sn='"&aistr(aireq("sn"))&"'","ux_",1) then
Call aisn(0)
if aibj(g_u1,s_umfb) then
e_ma=e_ma&aigo("发送"&s_uduxs&s_ztcg,1)
else
e_ma=e_ma&aigo("发送"&s_uduxs&s_ztcg,e_ur0)
end if
else
e_ma=e_ma&aigo("发送"&s_uduxs&s_ztsb,1)
end if
else
e_ma=e_ma&aigo("发送"&s_uduxs&s_ztsb&"[不存在的用户名]",1)
end if
else
e_ma=e_ma&aigo("发送"&s_uduxs&s_ztsb&"[填写完整表单]",1)
end if
else
e_ma=uxform(0,uxfqx)&e_ma
end if
End Function
'-----------------------------------
'edit action
'=uxedit()
'-----------------------------------
Function uxedit(uxfqx)
ew_bt=s_umxgs&s_uduxs&","&ew_bt:ew_zt=s_umxgs&s_uduxs&","&ew_zt:ew_nr=s_umxgs&s_uduxs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&eshref(s_umgl&g_urg&s_udux&g_urg&s_umxg&g_urg&g_u3&g_urz,77)&""">"&s_umxgs&s_uduxs&"</a>"
e_mt=esbts(s_udxux,s_udlux,s_umxgs&s_uduxs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umxg&g_urg&g_u3&g_urz,77),"发送"&s_uduxs&g_gy&e_ur1&g_gx&s_uduxs&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) then
if aireqx("sn,us,u1,co") then
if gysfm(uxlie("form"),uxbiao,"ux_id="&aiint(aireq("id"))&" or (ux_id<>"&aiint(aireq("id"))&" and ux_sn='"&aistr(aireq("sn"))&"')","ux_",2) then
e_ma=e_ma&aigo(s_umxgs&s_uduxs&s_ztcg,e_ur0)
else
e_ma=e_ma&aigo(s_umxgs&s_uduxs&s_ztsb,1)
end if
else
e_ma=e_ma&aigo(s_umxgs&s_uduxs&s_ztsb,1)
end if
else
if uxfqx=1 then
uxwhere="ux_id="&aiint(g_u3)&""
else
uxwhere="ux_id="&aiint(g_u2)&""
end if
if gysread(uxlie("all"),uxbiao,uxwhere,"") then
ew_bt=ux_us&","&ew_bt:ew_zt=ux_us&","&ew_zt:ew_nr=ux_us&","&ew_nr
e_ma=uxform(1,uxfqx)&e_ma
else
e_ma=e_ma&aigo(s_uduxs&s_ztno,1)
end if
end if
End Function
'-----------------------------------
'del
'=uxdel(uxfqx)
'-----------------------------------
Function uxdel(uxfqx)
ew_bt=s_uduxs&s_umscs&","&ew_bt:ew_zt=s_uduxs&s_umscs&","&ew_zt:ew_nr=s_uduxs&s_umscs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; "&s_uduxs&s_umscs&""
e_mt=esbts(s_udxux,s_udlux,s_umscs&s_uduxs,"发送"&s_uduxs&g_gy&e_ur1&g_gx&s_uduxs&s_umlbs&g_gy&e_ur0)
if uxfqx=1 then
if e_uty>2 then
if aiint(g_u3)>0 then
if gysdel(uxbid,uxbiao,"ux_id="&aiint(g_u3)) then
e_ma=e_ma&aitiao(s_uduxs&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduxs&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u2,s_umsc&"-x") then
if gysdel(uxbid,uxbiao,0) then
e_ma=e_ma&aitiao(s_uduxs&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduxs&s_umscs&s_ztsb,1)
end if
end if
end if
else
if aiint(g_u2)>0 then
if gysdel(uxbid,uxbiao,"ux_us='"&e_uer&"' and ux_xy<3 and ux_id="&aiint(g_u2)) then
e_ma=e_ma&aitiao(s_uduxs&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduxs&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u1,s_umsc&"-x") then
if gysdel(uxbid,uxbiao,"ux_us='"&e_uer&"' and ux_xy<3") then
e_ma=e_ma&aitiao(s_uduxs&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_uduxs&s_umscs&s_ztsb,1)
end if
end if
end if
End Function
'-----------------------------------
'show
'=uxshow()
'-----------------------------------
Function uxshow(uxfsn)
if aibj(g_u0,s_umgl) then
uxwhere="ux_sn='"&aistr(uxfsn)&"'"
else
uxwhere="ux_sn='"&aistr(uxfsn)&"' and ux_xy>0 and (ux_u1='"&ew_kg&"' or ux_u1='"&e_uer&"' or ux_us='"&ew_kt&"' or ux_us='"&e_uer&"')"
end if
if gysread(uxlie("all"),uxbiao,uxwhere,"") then
ew_bt=usren(ux_us)&","&ew_bt:ew_zt=usren(ux_us)&","&ew_zt:ew_nr=usren(ux_us)&","&ew_nr:ew_cp=usren(ux_us)&","&ew_cp
dim uxdsx,uxdpur,uxdpg,lidgl
if aibj(g_u0,s_umgl) then
e_wl=e_wl&"&gt;&gt; <a href="""&eshref(s_umgl&g_urg&s_udux&g_urg&s_umxx&g_urg&ux_sn&g_urz,77)&""">"&usren(ux_us)&s_uduxs&"</a>"
uxdpg=aiint(g_u4)
uxdpur=eshref(s_umgl&g_urg&s_udux&g_urg&g_u1&g_urg&ux_sn&g_urz,77)
'admin 0
lidgl=""
lidgl=lidgl&g_gx&"编辑"&s_uduxs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umxg&g_urg&ux_id&g_urz,77)&g_gx&"再发"&s_uduxs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umtj&g_urg&ux_u1&g_urz,77)
lidgl=lidgl&g_gx&"处理"&s_uduxs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umxg&g_urg&ux_id&g_urz,77)&g_gx&"<i>回复"&s_uduxs&"</i>"&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umtj&g_urg&ux_us&g_urz,77)
lidgl=lidgl&g_gx&"删除"&s_uduxs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umsc&g_urg&ux_id&g_urz,77)
'admin 1
e_mt=esbts(uxdsx,s_udlux,s_uduxs&s_umxxs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umxx&g_urg&ux_sn&g_urz,77),s_uduxs&s_umlbs&g_gy&eshref(s_umgl&g_urg&s_udux&g_urg&s_umlb&g_urz,77)&lidgl)
else
e_wl=e_wl&"&gt;&gt; <a href="""&eshref(s_udux&g_urg&s_umxx&g_urg&ux_sn&g_urz,66)&""">"&usren(ux_us)&s_uduxs&"</a>"
uxdpg=aiint(g_u3)
uxdpur=eshref(s_udux&g_urg&g_u0&g_urg&ux_sn&g_urz,66)
'admin 0
lidgl=""
if aibj(ux_us,e_uer) then lidgl=lidgl&g_gx&"编辑"&s_uduxs&g_gy&eshref(s_udux&g_urg&s_umxg&g_urg&ux_id&g_urz,66)&g_gx&"再发"&s_uduxs&g_gy&eshref(s_udux&g_urg&s_umtj&g_urg&ux_u1&g_urz,66)
if aibj(ux_u1,e_uer) then lidgl=lidgl&g_gx&"处理"&s_uduxs&g_gy&eshref(s_udux&g_urg&s_umxg&g_urg&ux_id&g_urz,66)&g_gx&"<i>回复"&s_uduxs&"</i>"&g_gy&eshref(s_udux&g_urg&s_umtj&g_urg&ux_us&g_urz,66)
if aibj(ux_us,e_uer) and aiint(ux_xy)<3 then lidgl=lidgl&g_gx&"删除"&s_uduxs&g_gy&eshref(s_udux&g_urg&s_umsc&g_urg&ux_id&g_urz,66)
'admin 1
e_mt=esbts(uxdsx,s_udlux,s_umzss&s_uduxs&g_gy&eshref(s_udux&g_urg&s_umzs&g_urg&ux_sn&g_urz,66),s_uduxs&s_umlbs&g_gy&eshref(s_udux&g_urg&s_umlb&g_urz,66)&lidgl)
end if
icdcb=usren(ux_us)
icdcb=icdcb&" 发给<span>"&usren(ux_u1)&"</span> 的"&s_uduxs&""
'--------------------------------HENG 0
icdcd=s_uduxs&"状态："&aiarr(i_buxxy,"|",aiint(ux_xy))
if not ainull(ux_tm) then icdcd=icdcd&" 发送时间："&aitm(ux_tm,9)
if aiint(ux_px)>0 then icdcd=icdcd&" 排序："&ux_px
'--------------------------------HENG 1
'--------------------------------CONTENT 0
icdci=esnrgys(ux_co,uxdpur,uxdpg)
if not ainull(ux_ot) and not aibj(ux_ot,"0") then icdcm=usren(ux_u1)&" 回复说："&ux_ot
icdty=9
e_ma=e_ma&icnr(icdty,s_uduxs,icdcb,icdcc,icdcd,icdcf,icdcg,icdci,icdcj,icdcm)
if aibj(ux_xy,"1") and not aibj(ux_us,e_uer) then
Call gysgx(uxbiao,"ux_xy=2,ux_xt=ux_xt&'"&espxx("阅读"&i_gg&e_uer)&"'","ux_id="&ux_id)
Call gysat("us_ux",usbiao,"us_er='"&e_uer&"'","-1")
end if
'--------------------------------CONTENT 1
e_ma=e_ma&replace(espl(eshref(s_udux&g_urg&s_umxx&g_urg&ux_sn&g_urz,66),ux_id,0,ux_xt,uxbiao,"ux_xt","ux_id",""),"点评","附加信息")
e_ma=e_ma&"<div class=""cr""></div></div>"
else
e_ma=e_ma&aigo(s_uduxs&s_ztno,1)
end if
End Function
'-----------------------------------
'list
'=uxlist()
'-----------------------------------
Function uxlist(uxfqx)
e_mt=esbts(s_udxux,s_udlux,s_uduxs&s_umlbs&g_gy&e_ur0,"<i>发送"&s_uduxs&"</i>"&g_gy&e_ur1)
dim uxlpg,uxlps,uxlpuq,uxlpuh,uxlpur,uxlgrr
if uxfqx=1 then
uxlpuq=eshref(s_umgl&g_urg&s_udux,66)
lidms=g_u2
uxlpuh=g_u5&g_urg&g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9
uxlpur=uxlpuq&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&uxlpuh&g_urz
uxlpg=aiint(g_u3)
uxlps=aiint(g_u4)
else
uxlpuq=eshref(s_udux,66)
lidms=g_u1
uxlpuh=g_u4&g_urg&g_u5&g_urg&g_u6&g_urg&g_u7&g_urg&g_u8
uxlpur=uxlpuq&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&uxlpuh&g_urz
uxlpg=aiint(g_u2)
uxlps=aiint(g_u3)
end if

iclls="<div class=""l-tb"&estt(lidms,s_umlb)&"""><a href="""&uxlpuq&g_urg&s_umlb&g_urg&g_urg&g_urg&uxlpuh&g_urz&""">"&s_umlbs&"</a></div><div class=""l-tb"&estt(lidms,s_umlj)&"""><a href="""&uxlpuq&g_urg&s_umlj&g_urg&g_urg&g_urg&uxlpuh&g_urz&""">"&s_umljs&"</a></div><div class=""l-tb"&estt(lidms,s_umyq)&"""><a href="""&uxlpuq&g_urg&s_umyq&g_urg&g_urg&g_urg&uxlpuh&g_urz&""">"&s_umyqs&"</a></div>"

Call uxsers()
e_ma=e_ma&icliq(iclls,uxlpuq&g_urg&lidms,uxlpuh,e_gdj,uxfqx,"ux")
Call uxsersql()

if uxlps=0 then
if aibj(lidms,s_umyq) then
uxlps=i_nmhc
else
uxlps=i_nmlb
end if
end if

'@@ux_id,1ux_sn,2ux_co,3ux_tm,4ux_us,5ux_u1,6ux_px,7ux_xy
if gyslist(uxbid,uxlie(s_umlb)&",ux_co",uxbiao,uxwhere,uxorder,uxlpur,uxlpg,uxlps,200,"") then
lidti=""
'top------0
if aibj(lidms,s_umlb) then
if uxfqx=1 then lidti=lidti&"<b>操作</b>"
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)
if aibj(lidms,s_umlb) then
lidbt=uxlic(1,0,gysay(7),gysay(3))&usren(gysay(4))&"：＂"&gysay(2)&"＂"&uxlic(1,1,gysay(7),gysay(3))
else
lidbt=uxlic(1,0,gysay(7),gysay(3))&usren(gysay(4))&" 发给 <span>"&usren(gysay(5))&"</span> 的"&s_uduxs&uxlic(1,1,gysay(7),gysay(3))
end if
if aibj(gysay(7),"1") and not aibj(gysay(4),e_uer) then lidbt=lidbt&"<sup class=""ts"">未读消息</sup>"
lidtt="发件人："&usren(gysay(4))&vbNewLine
lidtt=lidtt&"收件人："&usren(gysay(5))&vbNewLine
lidtt=lidtt&s_uduxs&"状态："&aiarr(i_buxxy,"|",aiint(gysay(7)))&vbNewLine
lidtt=lidtt&"发送时间："&gysay(3)
if uxfqx=1 then
lidlj=eshref(s_umgl&g_urg&s_udux&g_urg&s_umxx&g_urg&gysay(1)&g_urz,66)
else
lidlj=eshref(s_udux&g_urg&s_umxx&g_urg&gysay(1)&g_urz,66)
end if
if uxfqx=1 then
lidgl="<b>"
lidgl=lidgl&"<input type=""checkbox"" id=""sid"" name=""sid"" value="""&gysay(0)&""">"&aibuttonk(eshref(s_umgl&g_urg&s_udux&g_urg&s_umxg&g_urg&gysay(0)&g_urz,66),"","","","f-se","Edit")&aibuttonk(eshref(s_umgl&g_urg&s_udux&g_urg&s_umsc&g_urg&gysay(0)&g_urz,66),s_umscs&s_uduxs&s_ztqr,"","","f-se","Del")
lidgl=lidgl&"</b>"
end if
'yunqian
if aibj(lidms,s_umyq) then
lids1=int(gysay(7)+1)*(int(gysay(6))+1)
elseif aibj(lidms,s_umlb) then
lids1=lids1&"<u"
if aiint(gysay(7))=1 then lids1=lids1&" class=""ftt"""
lids1=lids1&">"&aiarr(i_buxxy,"|",aiint(gysay(7)))&"</u>"
lids1=lids1&"<u>"&gysay(3)&"</u>"
lids1=lids1&"<u>"&usren(gysay(5))&"</u>"
else
lids2=lids2&"发送时间："&aitm(gysay(3),9)&"　"&s_uduxs&"状态："&aiarr(i_buxxy,"|",aiint(gysay(7)))
lids3=lids3&"<div class=""l-cd lh"">"
lids3=lids3&left(gysay(2),100)
lids3=lids3&"</div>"
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,uxfqx,eshref(s_umgl&g_urg&s_udux&g_urg&s_umsc&"-x"&g_urz,77),"ux")
End Function
'-----------------------------------
'=uxlic(1,"")
'-----------------------------------
Function uxlic(uxfkg,uxfty,uxfxy,uxftm)
uxlic=""
if uxfkg=1 and uxfty=0 then
uxlic=uxlic&icqz(1,uxfxy,0)
elseif uxfkg=1 and uxfty=1 then
uxlic=uxlic&ichz(1,uxftm,0,"")
end if
End Function
'-----------------------------------
'=uxsers()
'Call uxsers()
'-----------------------------------
Function uxsers()
icdssp="排序|最新|时间|排序|状态"
icdrrp=split("ux_id desc|ux_id desc|ux_tm desc|ux_px desc|ux_xy desc","|")
icdssf="范围|"&usren(ew_kt)&"|"&usren(ew_kg)&"|"&esqday(0)&"|发送|接收|未读|已读|加锁|公开|禁用"
icdrrf=split("|ux_us='"&ew_kt&"'|ux_u1='"&ew_kg&"'|"&esqday("ux_tm")&"|ux_us='"&e_uer&"'|ux_u1='"&e_uer&"'|ux_xy=1|ux_xy=2|ux_xy=3|ux_xy=4|ux_xy=0","|")
icdssx="项目|内容|编码|发送|接收|其他|系统"
icdrrx=split("ux_co|ux_co|ux_sn|ux_us|ux_u1|ux_ot|ux_xt","|")
icdssm=i_bsm
End Function
'-----------------------------------
'=uxsersql()
'-----------------------------------
Function uxsersql()
Call icserq()
uxwhere=iclwhere
uxorder=iclorder
iclapp=1
'order
if ainull(uxorder) then uxorder=uxordermo
'admin
if not aibj(g_u0,s_umgl) then
if not ainull(uxwhere) then uxwhere=uxwhere&" and "
uxwhere=uxwhere&"ux_xy>0 and (ux_u1='"&ew_kg&"' or ux_u1='"&e_uer&"' or ux_us='"&ew_kt&"' or ux_us='"&e_uer&"')"
end if
End Function
%>