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

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

if e_xa<1 and (aibj(g_u0,s_udey) or aibj(g_u1,s_udey)) then
e_xa=e_xa+1
Call esq()
Call doq(1,e_uer,7,g_u0,s_udey,s_udeys&s_umlbs)

if e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udey) and aibj(g_u3,s_umtj) then
Call eyadd(1)
elseif aibj(g_u0,s_udey) and aibj(g_u2,s_umtj) then
Call eyadd(0)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udey) and aibj(g_u3,s_umxg) and aiint(g_u4)>0 then
Call eyedit(1)
elseif aibj(g_u0,s_udey) and aibj(g_u2,s_umxg) then
Call eyedit(0)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udey) and (aibj(g_u3,s_umxx) or aibj(g_u3,s_umzs)) and aiint(g_u4)>0 then
Call eyshow(g_u4)
elseif aibj(g_u0,s_udey) and (aibj(g_u2,s_umxx) or aibj(g_u2,s_umzs)) and aiint(g_u3)>0 then
Call eyshow(g_u3)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udey) and ((aibj(g_u3,s_umsc) and aiint(g_u4)>0) or aibj(g_u3,s_umsc&"-x")) then
Call eydel(1)
elseif aibj(g_u0,s_udey) and ((aibj(g_u2,s_umsc) and aiint(g_u3)>0) or aibj(g_u2,s_umsc&"-x")) then
Call eydel(0)
elseif e_gdj>2 and aibj(g_u0,s_umgl) and aibj(g_u1,s_udey) and dkdir(2,g_u3) then
Call eylist(1)
elseif aibj(g_u0,s_udey) and dkdir(2,g_u2) then
Call eylist(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","ey")
end if
end if
'------get skin 1
Response.Write esr(0,e_skc):Response.End()
end if
'-----------------------------------
'Data Table
'=eylie()
'-----------------------------------
Function eylie(eyfty)
if eyfty="form" then
eylie="ew,ty,es,em,er,mm,bt,yr,tm,yh,t1,xy,ot,ip"
elseif eyfty=s_umlb then
eylie="ey_id,ey_ew,ey_ty,ey_es,ey_em,ey_er,ey_mm,ey_bt,ey_yr,ey_tm,ey_yh,ey_t1,ey_xy,ey_ot,ey_ip"
elseif eyfty="all" then
eylie="ey_id,ey_ew,ey_ty,ey_es,ey_em,ey_er,ey_mm,ey_bt,ey_yr,ey_tm,ey_yh,ey_t1,ey_xy,ey_ot,ey_ip"
end if
End Function
'-----------------------------------
'ey menu
'=eyme()
'-----------------------------------
Function eyme()
eyme="<div class=""l-ra""><ul>"
dim eymi
for eymi=0 to 4
if eymi mod 2=0 then
eyme=eyme&"<li class=""l-1"">"
else
eyme=eyme&"<li>"
end if
eyme=eyme&""&icmenuico(1,1)&"<a"
if aibj(eylfl,eymi) then eyme=eyme&" class=""l-va"""
eyme=eyme&" href="""&eshref(s_udey&g_urg&eymi&g_urg&d_seyls&g_urz,1)&""">"&aiarr(replace(i_beyty,aiarr(i_beyty,"|",0),"全部留言"),"|",eymi)&"</a>"
if eymi>0 then eyme=eyme&"<a href="""&eshref(s_udey&g_urg&eymi&g_urg&s_umtj&g_urz,1)&""">"&s_umtjs&"</a>"
eyme=eyme&"</li>"
next
eyme=eyme&"</ul></div>"
End Function
'-----------------------------------
'add/edit form
'=eyform()
'-----------------------------------
Function eyform(eyfty,eyfqx)
if eyfty=0 then
ey_ew=ew_sn
if ainull(e_ubt) then
ey_er=e_uer
else
ey_er=e_ubt
end if
ey_es=e_udh
ey_em=e_uem
ey_ip=aiip()
if eyfqx=1 then
if aiint(g_u2)>0 then
ey_ty=aiint(g_u2)
else
ey_ty=2
end if
else
if aiint(g_u1)>0 then
ey_ty=aiint(g_u1)
else
ey_ty=2
end if
end if
ey_tm=now()
ey_xy=0
else
ey_t1=now()
end if
eyform="<div class=""l-f""><form id=""EESaiForm"" name=""EESaiForm"" action="""" method=""post"" AUTOCOMPLETE=""off""><ul>"&aibutian(1)
if eyfqx=1 then
eylfl=aiint(g_u2)
eyform=eyform&"<li class=""l-1"">称呼："&aiinput("","er","",0,50,"*留言联系人称呼","f-a1|f-b1|f-c1",ey_er)&"标题："&aiinput("","bt","",0,200,"*请输入留言标题","f-a3|f-b3|f-c3",ey_bt)&"</li>"
eyform=eyform&"<li>手机："&aiinput("","es","",6,20,"请输入常用手机号码(固话请直接输入数字)","f-a1|f-b1|f-c1",ey_es)&"邮箱："&aiinput("","em","",0,100,"*请输入常用邮箱","f-a1|f-b1|f-c1",ey_em)&"时间："&aiinput("","tm","",99,200,"*","f-a2|f-b2|f-c2",ey_tm)&"</li>"
eyform=eyform&"<li class=""l-1"">类型："&aiselect("ty","","*请选择留言的类型","f-s1",ey_ty,0,i_beyty)&"密钥："&aiinput("","mm","",3,50,"*请输入留言查看的密钥","f-a1|f-b1|f-c1",aimm(g_gmm,ey_mm,1))&"地址："&aiinput("","ip","",0,200,"*留言者IP地址","f-a1|f-b1|f-c1",ey_ip)&"其他："&aiinput("","ot","",0,200,"*其他信息","f-a1|f-b1|f-c1",ey_ot)&"</li>"
eyform=eyform&"<li>内容："&aitext("yr","","",0,8000,"*留言内容","f-x4|f-y4|f-z4",ey_yr)&"</li>"
eyform=eyform&"<li class=""l-1"">回复："&aitext("yh","","",0,8000,"回复内容","f-x4|f-y4|f-z4",ey_yh)&"</li>"
eyform=eyform&"<li>状态："&aiselect("xy","","*","f-s1",ey_xy,0,i_bxy)&"网站："&ewselect(0,ey_ew)&"更新："&aiinput("","t1","",99,50,"*","f-a2|f-b2|f-c2",ey_t1)&"<script src="""&eshref(i_dir&"GuoYanSai/FTM.js",3)&"""></script></li>"
else
eylfl=aiint(g_u1)
eyform=eyform&"<li class=""l-1"">称呼："&aiinput("","er","",0,50,"*留言联系人称呼","f-a1|f-b1|f-c1",ey_er)&"标题："&aiinput("","bt","",0,200,"*请输入留言标题","f-a3|f-b3|f-c3",ey_bt)&"</li>"
eyform=eyform&"<li>手机："&aiinput("","es","",6,20,"请输入常用手机号码(固话请直接输入数字)","f-a1|f-b1|f-c1",ey_es)
if g_u1="0" or ainull(g_u1) then
eyform=eyform&"邮箱："&aiinput("","em","",0,100,"请输入常用邮箱","f-a1|f-b1|f-c1",ey_em)&"类型："&aiselect("ty","","*请选择留言的类型","f-s1",ey_ty,0,replace(i_beyty,aiarr(i_beyty,"|",0),"全部留言"))&""
else
eyform=eyform&"邮箱："&aiinput("","em","",0,100,"请输入常用邮箱","f-a2|f-b2|f-c2",ey_em)&aiinput("hidden","ty","",0,0,"","",ey_ty)
end if
eyform=eyform&"密钥："&aiinput("password","mm","",3,50,"请输入留言查看的密钥","f-a1|f-b1|f-c1",aimm(g_gmm,ey_mm,1))&"</li>"
eyform=eyform&"<li class=""l-1"">内容："&aitext("yr","","",0,8000,"*留言内容","f-x4|f-y4|f-z4",ey_yr)&"</li>"&aiinput("hidden","tm","",0,0,"","",ey_tm)&aiinput("hidden","t1","",0,0,"","",ey_t1)&aiinput("hidden","ew","",0,0,"","",ey_ew)&aiinput("hidden","xy","",0,0,"","",ey_xy)&aiinput("hidden","yh","",0,0,"","",ey_yh)&aiinput("hidden","ot","",0,0,"","",ey_ot)&aiinput("hidden","ip","",0,0,"","",ey_ip)

end if
eyform=eyform&eskyx(0,2,2)
if eyfty=1 then
eyform=eyform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umxgs)&aiinput("hidden","id","",0,0,"","",ey_id)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
elseif eyfty=0 then
eyform=eyform&"<li class=""l-sb"">"&aibutton(2,"","","f-sb",s_umtjs)&aibutton(1,"","","f-sb",s_ztcz)&"</li>"
end if
eyform=eyform&"</ul></form></div>"
End Function
'-----------------------------------
'add action
'=eyadd()
'-----------------------------------
Function eyadd(eyfqx)
ew_bt=s_umtjs&s_udeys&","&ew_bt:ew_zt=s_umtjs&s_udeys&","&ew_zt:ew_nr=s_umtjs&s_udeys&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&e_ur1&""">"&s_umtjs&s_udeys&"</a>"
e_mt=esbts(s_udxey,s_udley,s_umtjs&s_udeys&g_gy&e_ur1,s_udeys&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) then
if aireqx("bt,yr,er") then
if gysfm(eylie("form"),eybiao,"ey_es='"&aireq("es")&"' and ey_bt='"&aireq("bt")&"'","ey_",1) then
Call aisn(0)
e_ma=e_ma&aigo(s_umtjs&s_udeys&s_ztcg,e_ur0)
else
e_ma=e_ma&aigo(s_umtjs&s_udeys&s_ztsb,1)
end if
else
e_ma=e_ma&aigo(s_umtjs&s_udeys&s_ztsb,1)
end if
else
e_ma=eyform(0,eyfqx)&e_ma
end if
End Function
'-----------------------------------
'edit action
'=eyedit()
'-----------------------------------
Function eyedit(eyfqx)
ew_bt=s_umxgs&s_udeys&","&ew_bt:ew_zt=s_umxgs&s_udeys&","&ew_zt:ew_nr=s_umxgs&s_udeys&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; <a href="""&eshref(s_umgl&g_urg&s_udey&g_urg&s_umxg&g_urg&g_u3&g_urz,77)&""">"&s_umxgs&s_udeys&"</a>"
e_mt=esbts(s_udxey,s_udley,s_umxgs&s_udeys&g_gy&eshref(s_umgl&g_urg&s_udey&g_urg&s_umxg&g_urg&g_u3&g_urz,77),s_umtjs&s_udeys&g_gy&e_ur1&g_gx&s_udeys&s_umlbs&g_gy&e_ur0)
if esky(1,e_uzj) then
if aireqx("bt,yr,er") then
if gysfm(eylie("form"),eybiao,"ey_id="&aiint(aireq("id"))&"","ey_",2) then
e_ma=e_ma&aigo(s_umxgs&s_udeys&s_ztcg,e_ur0)
else
e_ma=e_ma&aigo(s_umxgs&s_udeys&s_ztsb,1)
end if
else
e_ma=e_ma&aigo(s_umxgs&s_udeys&s_ztsb,1)
end if
else
if eyfqx=1 then
eywhere="ey_id="&aiint(g_u4)&""
else
eywhere="ey_id="&aiint(g_u3)&""
end if
if gysread(eylie("all"),eybiao,eywhere,"") then
ew_bt=ey_bt&","&ew_bt:ew_zt=ey_bt&","&ew_zt:ew_nr=ey_bt&","&ew_nr
e_ma=eyform(1,eyfqx)&e_ma
else
e_ma=e_ma&aigo(s_udeys&s_ztno,1)
end if
end if
End Function
'-----------------------------------
'del
'=eydel(eyfqx)
'-----------------------------------
Function eydel(eyfqx)
ew_bt=s_udeys&s_umscs&","&ew_bt:ew_zt=s_udeys&s_umscs&","&ew_zt:ew_nr=s_udeys&s_umscs&","&ew_nr:ew_cp=e_ubt&","&ew_cp
e_wl=e_wl&" &gt;&gt; "&s_udeys&s_umscs&""
e_mt=esbts(s_udxey,s_udley,s_umscs&s_udeys,s_umtjs&s_udeys&g_gy&e_ur1&g_gx&s_udeys&s_umlbs&g_gy&e_ur0)
if eyfqx=1 then
eylfl=aiint(g_u2)
if e_uty>2 then
if aiint(g_u4)>0 then
if gysdel(eybid,eybiao,"ey_id="&aiint(g_u4)) then
e_ma=e_ma&aitiao(s_udeys&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_udeys&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u3,s_umsc&"-x") then
if aiint(g_u2)=0 then
eywhere="ey_ew="&ew_sn
else
eywhere="ey_ty="&aiint(g_u2)&" and ey_ew="&ew_sn
end if
if gysdel(eybid,eybiao,eywhere) then
e_ma=e_ma&aitiao(s_udeys&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_udeys&s_umscs&s_ztsb,1)
end if
end if
end if
else
if aiint(g_u3)>0 then
if gysdel(eybid,eybiao,"ey_bt='"&e_uer&"' and ey_xy<3 and ey_id="&aiint(g_u2)) then
e_ma=e_ma&aitiao(s_udeys&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_udeys&s_umscs&s_ztsb,1)
end if
elseif aibj(g_u2,s_umsc&"-x") then
if gysdel(eybid,eybiao,"ey_bt='"&e_uer&"' and ey_ty=0 and ey_xy=0") then
e_ma=e_ma&aitiao(s_udeys&s_umscs&s_ztcg,e_ur0,i_nmtz)
else
e_ma=e_ma&aigo(s_udeys&s_umscs&s_ztsb,1)
end if
end if
end if
End Function
'-----------------------------------
'show
'=eyshow()
'-----------------------------------
Function eyshow(eyfid)
if aibj(g_u0,s_umgl) then
eywhere="ey_id="&aiint(eyfid)&""
else
eywhere="ey_id="&aiint(eyfid)&" and (ey_ip='"&aiip()&"' or (ey_ty>1 and ey_xy>0))"
end if
if gysread(eylie("all"),eybiao,eywhere,"") then
eylfl=aiint(ey_ty)
ew_bt=ey_bt&","&ew_bt:ew_zt=ey_bt&","&ew_zt:ew_nr=ey_bt&","&ew_nr:ew_cp=ey_bt&","&ew_cp
dim eydsx,eydpur,eydpg,eylmm,eylnr
if aibj(g_u0,s_umgl) then
eydpg=aiint(g_u5)
eylmm=aistr(g_u6)
e_wl=e_wl&"&gt;&gt; <a href="""&eshref(s_umgl&g_urg&s_udey&g_urg&s_umxx&g_urg&ey_id&g_urz,77)&""">"&ey_bt&"</a>"
eydpur=eshref(s_umgl&g_urg&s_udey&g_urg&ey_ty&g_urg&g_u2&g_urg&ey_id&g_urg&g_gp&g_urg&eylmm&g_urz,77)
e_mt=esbts(eydsx,s_udley,s_udeys&s_umxxs&g_gy&eshref(s_umgl&g_urg&s_udey&g_urg&ey_ty&g_urg&s_umxx&g_urg&ey_id&g_urz,1),s_udeys&s_umlbs&g_gy&eshref(s_umgl&g_urg&s_udey&g_urg&ey_ty&g_urg&d_seyls&g_urz,1)&g_gx&s_umzss&s_udeys&g_gy&eshref(s_umgl&g_urg&s_udey&g_urg&ey_ty&g_urg&s_umzs&g_urg&ey_id&g_urz,1))
else
eydpg=aiint(g_u4)
eylmm=aistr(g_u5)
e_wl=e_wl&"&gt;&gt; <a href="""&eshref(s_udey&g_urg&s_umxx&g_urg&ey_id&g_urz,1)&""">"&ey_bt&"</a>"
eydpur=eshref(s_udey&g_urg&ey_ty&g_urg&g_u2&g_urg&ey_id&g_urg&g_gp&g_urg&eylmm&g_urz,1)
e_mt=esbts(eydsx,s_udley,s_udeys&s_umxxs&g_gy&eshref(s_udey&g_urg&ey_ty&g_urg&s_umxx&g_urg&ey_id&g_urz,1),s_udeys&s_umlbs&g_gy&eshref(s_udey&g_urg&ey_ty&g_urg&d_seyls&g_urz,1))
end if
icdcb=ey_bt&" <span>"&ey_er&"</span>"
'--------------------------------HENG 0
icdcd=s_udeys&"类型："&aiarr(i_beyty,"|",aiint(ey_ty))
if not ainull(ey_tm) then icdcd=icdcd&" "&s_udeys&"时间："&aitm(ey_tm,9)
icdcd=icdcd&" "&s_udeys&"状态："&aiarr(i_bxy,"|",aiint(ey_xy))
'--------------------------------HENG 1
'--------------------------------CONTENT 0
icdcg=""
if not ainull(ey_er) then icdcg=icdcg&"<li>称呼："&ey_er&"</li>"
if aibj(aiip(),ey_ip) then
if not ainull(ey_es) then icdcg=icdcg&"<li>手机："&ey_es&"</li>"
if not ainull(ey_em) then icdcg=icdcg&"<li>邮箱："&ey_em&"</li>"
if not ainull(ey_ip) then icdcg=icdcg&"<li>主机："&ey_ip&"</li>"
if not ainull(ey_mm) then icdcg=icdcg&"<li>密钥："&aimm(g_gmm,ey_mm,1)&"</li>"
if not ainull(ey_ot) then icdcg=icdcg&"<li>其他："&ey_ot&"</li>"
icdcg=icdcg&"<li>(*提示：以上信息仅您和管理员可看，他人无法查看。)</li>"
end if
eylnr=esnrgys(ey_yr,eydpur,eydpg)
if not ainull(ey_yh) and not aibj(ey_yh,"0") then eylnr=eylnr&"<div class=""ftt""><br><br>"&aitm(ey_t1,9)&"回复：<br><br>"&ey_yh&"</div>"
icdci=esmm(0,eylnr,eshref(s_udey&g_urg&ey_ty&g_urg&g_u2&g_urg&ey_id&g_urg&g_u4&g_urg&g_gg&g_urz,11),ey_mm,aimm(g_gmm,eylmm,0))
'icnr(icdty=0标题|1,icddm=短名,icdcb=标题,icdcc=摘要,icdcd=横条备注,icdcf=左侧封面图,icdcg=右侧备注,icdci=内容,icdcj=媒体展示,icdcm=点评分享区)
icdty=9
e_ma=e_ma&icnr(icdty,icddm,icdcb,icdcc,icdcd,icdcf,icdcg,icdci,icdcj,icdcm)
'--------------------------------CONTENT 1
else
e_ma=e_ma&aigo(s_udeys&s_ztno,1)
end if
End Function
'-----------------------------------
'list
'=eylist()
'-----------------------------------
Function eylist(eyfqx)
e_mt=esbts(s_udxey,s_udley,s_udeys&s_umlbs&g_gy&e_ur0,s_umtjs&s_udeys&g_gy&e_ur1)
dim eylpg,eylps,eylpuq,eylpuh,eylpur,eylgrr,eylpum
if eyfqx=1 then
eylfl=aiint(g_u2)
eylpum=77
eylpuq=s_umgl&g_urg&s_udey&g_urg&g_u2
lidms=g_u3
eylpuh=g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9&g_urg&g_u10
eylpur=eshref(eylpuq&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&eylpuh&g_urz,eylpum)
eylpg=aiint(g_u4)
eylps=aiint(g_u5)
else
eylfl=aiint(g_u1)
eylpum=1
eylpuq=s_udey&g_urg&g_u1
lidms=g_u2
eylpuh=g_u5&g_urg&g_u6&g_urg&g_u7&g_urg&g_u8&g_urg&g_u9
eylpur=eshref(eylpuq&g_urg&lidms&g_urg&g_gp&g_urg&g_gp&g_urg&eylpuh&g_urz,eylpum)
eylpg=aiint(g_u3)
eylps=aiint(g_u4)
end if
e_ur0=e_ur0&g_urg&g_urg&eylfl
e_ur1=e_ur1&g_urg&eylfl
iclls="<div class=""l-tb"&estt(lidms,s_umlb)&"""><a href="""&eshref(eylpuq&g_urg&s_umlb&g_urg&g_urg&g_urg&eylpuh&g_urz,eylpum)&""">"&s_umlbs&"</a></div><div class=""l-tb"&estt(lidms,s_umlj)&"""><a href="""&eshref(eylpuq&g_urg&s_umlj&g_urg&g_urg&g_urg&eylpuh&g_urz,eylpum)&""">"&s_umljs&"</a></div><div class=""l-tb"&estt(lidms,s_umyq)&"""><a href="""&eshref(eylpuq&g_urg&s_umyq&g_urg&g_urg&g_urg&eylpuh&g_urz,eylpum)&""">"&s_umyqs&"</a></div>"

Call eysers()
e_ma=e_ma&icliq(iclls,eylpuq&g_urg&lidms,eylpuh,e_gdj,eyfqx,"ey")
Call eysersql()

if eylps=0 then
if aibj(lidms,s_umyq) then
eylps=i_nmhc
else
eylps=i_nmlb
end if
end if
'@@ey_id,1ey_ew,2ey_ty,3ey_es,4ey_em,5ey_er,6ey_mm,7ey_bt,8ey_yr,9ey_tm,10ey_yh,11ey_t1,12ey_xy,13ey_ot,14ey_ip
if gyslist(eybid,eylie(s_umlb),eybiao,eywhere,eyorder,eylpur,eylpg,eylps,200,"") then
lidti=""
'top------0
if aibj(lidms,s_umlb) then
if eyfqx=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)
lidbt=eylic(1,0,gysay(12),gysay(9))&"["&aiarr(i_beyty,"|",aiint(gysay(2)))&"] "&gysay(7)&eylic(1,1,gysay(12),gysay(9))
lidtt="标题："&gysay(7)&vbNewLine
lidtt=lidtt&"称呼："&gysay(5)&vbNewLine
lidtt=lidtt&s_udeys&"类型："&aiarr(i_beyty,"|",aiint(gysay(2)))&vbNewLine
lidtt=lidtt&"留言时间："&gysay(9)
if eyfqx=1 then
lidlj=eshref(s_umgl&g_urg&s_udey&g_urg&gysay(2)&g_urg&s_umxx&g_urg&gysay(0)&g_urz,77)
lidgl="<b>"
lidgl=lidgl&"<input type=""checkbox"" id=""sid"" name=""sid"" value="""&gysay(0)&""">"&aibuttonk(eshref(s_umgl&g_urg&s_udey&g_urg&gysay(2)&g_urg&s_umxg&g_urg&gysay(0)&g_urz,1),"","","","f-se","Edit")&aibuttonk(eshref(s_umgl&g_urg&s_udey&g_urg&gysay(2)&g_urg&s_umsc&g_urg&gysay(0)&g_urz,1),s_umscs&s_udeys&s_ztqr,"","","f-se","Del")
lidgl=lidgl&"</b>"
else
lidlj=eshref(s_udey&g_urg&gysay(2)&g_urg&s_umxx&g_urg&gysay(0)&g_urz,1)
end if
'yunqian
if aibj(lidms,s_umyq) then
lids1=len(gysay(8)&gysay(10))
elseif aibj(lidms,s_umlb) then
lids1=lids1&"<u"
if aiint(gysay(2))>2 then lids1=lids1&" class=""ftt"""
lids1=lids1&">"&aiarr(i_beyty,"|",aiint(gysay(2)))&"</u>"
lids1=lids1&"<u>"&gysay(9)&"</u>"
lids1=lids1&"<u>"&gysay(5)&"</u>"
else
lids2=lids2&"留言人："&gysay(5)&" 留言时间："&aitm(gysay(9),2)
lids3=lids3&"<div class=""l-cd lh"">"
lids3=lids3&left(gysay(8),100)
if not ainull(gysay(10)) and not aibj(gysay(10),"0") then lids3=lids3&"<br><br><font class=""ftt"">"&aitm(gysay(11),9)&"回复：</font><br>"&left(gysay(10),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,eyfqx,eshref(s_umgl&g_urg&s_udey&g_urg&g_u2&g_urg&s_umsc&"-x"&g_urz,77),"ey")
End Function
'-----------------------------------
'=eylic(1,"")
'-----------------------------------
Function eylic(eyfkg,eyfty,eyfxy,eyftm)
eylic=""
if eyfkg=1 and eyfty=0 then
eylic=eylic&icqz(1,eyfxy,0)
elseif eyfkg=1 and eyfty=1 then
eylic=eylic&ichz(1,eyftm,0,"")
end if
End Function
'-----------------------------------
'=eysers()
'Call eysers()
'-----------------------------------
Function eysers()
icdssp="排序|最新|时间|类型|状态"
icdrrp=split("ey_id desc|ey_id desc|ey_tm desc|ey_ty desc|ey_xy desc","|")
icdssf="范围|推荐|"&esqday(0)&"|未回|已回|普通"
if e_gdj>2 then icdssf=icdssf&"|禁用"
icdrrf=split("|ey_xy>1|"&esqday("ey_tm")&"|(ey_yh="" or ey_yh='null' or ey_yh='0')|ey_yh<>"" and ey_yh<>'null' and ey_yh<>'0'|ey_xy=1|ey_xy=0","|")
icdssx="项目|留言|回复"
if e_gdj>2 then icdssx=icdssx&"|手机|邮箱|称呼|地址|其他"
icdrrx=split("ey_yr|ey_yr|ey_yh|ey_es|ey_em|ey_er|ey_ip|ey_ot","|")
icdssm=i_bsm
End Function
'-----------------------------------
'=eysersql()
'-----------------------------------
Function eysersql()
Call icserq()
eywhere=iclwhere
eyorder=iclorder
iclapp=1
'order
if ainull(eyorder) then eyorder=eyordermo
'admin
if aibj(g_u0,s_umgl) then
if aiint(g_u2)>0 then
if not ainull(eywhere) then eywhere=eywhere&" and "
eywhere=eywhere&"ey_ty="&aiint(g_u2)&""
end if
else
if not ainull(eywhere) then eywhere=eywhere&" and "
eywhere=eywhere&"(ey_ip='"&aiip()&"' or (ey_ty>1 and ey_xy>0))"
if aiint(g_u1)>0 then
if not ainull(eywhere) then eywhere=eywhere&" and "
eywhere=eywhere&"ey_ty="&aiint(g_u1)&""
end if
end if
End Function
%>