<%
'-----------------------------------
'list do top
'=icliq()
'-----------------------------------
Function icliq(icfls,icfsfq,icfsfh,icfdj,icfty,icfba)
icliq=""
if icfdj>2 and icfty=1 then icliq=icliq&"<script language=""JavaScript"">function eeselectall(action){var eeselectform=document.getElementById(""esindexForm"");for(var eeselecti=0;eeselecti<eeselectform.elements.length;eeselecti++){if(eeselectform.elements[eeselecti].type==""checkbox""){eeselectid=eeselectform.elements[eeselecti];eeselectid.checked=(action==""EESai"")?1:(!eeselectid.checked);}}}</script>"
if ew_lm>0 or ew_sp>0 or icfty=1 then
if ew_sp>0 and ew_lm=0 and icfty<>"1" then
e_lss=icser(icfsfq,icfsfh)
else
icliq=icliq&"<div class=""l-ta lh"">"
if ew_lm=1 or icfty=1 then icliq=icliq&icfls
icliq=icliq&""&icser(icfsfq,icfsfh)&"</div>"
end if
else
Call icser(icfsfq,icfsfh)
end if
if icfdj>2 and icfty=1 then
'do list
if esky(1,i_xkcdm) and request(s_fmsb)<>"" then
'del
if request(s_fmsb)="删除" and request("sid")<>"" then
if gysdel(icfba&"_id",saidbqz&icfba,""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]已经成功删除！</div>"
end if
'xy
elseif request(s_fmsb)="0" and request("sid")<>"" then
if gysgx(saidbqz&icfba,""&icfba&"_xy=0",""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]的状态已经成功设为[0]！</div>"
end if
elseif request(s_fmsb)="1" and request("sid")<>"" then
if gysgx(saidbqz&icfba,""&icfba&"_xy=1",""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]的状态已经成功设为[1]！</div>"
end if
elseif request(s_fmsb)="2" and request("sid")<>"" then
if gysgx(saidbqz&icfba,""&icfba&"_xy=2",""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]的状态已经成功设为[2]！</div>"
end if
elseif request(s_fmsb)="3" and request("sid")<>"" then
if gysgx(saidbqz&icfba,""&icfba&"_xy=3",""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]的状态已经成功设为[3]！</div>"
end if
elseif request(s_fmsb)="4" and request("sid")<>"" then
if gysgx(saidbqz&icfba,""&icfba&"_xy=4",""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]的状态已经成功设为[4]！</div>"
end if
elseif request(s_fmsb)="5" and request("sid")<>"" then
if gysgx(saidbqz&icfba,""&icfba&"_xy=5",""&icfba&"_id in ("&request("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&request("sid")&"]的状态已经成功设为[5]！</div>"
end if
elseif aibj(icfba,"us")  and aireq(s_fmsb)="认证" and aireq("sid")<>"" and trim(aireq("zj"))<>"" then
if gysgx(saidbqz&icfba,"us_zj="&aiint(aireq("zj"))&"",""&icfba&"_id in ("&aireq("sid")&")") then
icliq=icliq&"<div class=""l-tc"">ID=["&aireq("sid")&"]已经成功认证为["&aiarr(i_buszj,"|",aiint(aireq("zj")))&"]！</div>"
else
icliq=icliq&"<div class=""l-tc"">ID=["&aireq("sid")&"]认证失败！</div>"
end if

elseif (aibj(icfba,"ef") or aibj(icfba,"bb")) and aireq(s_fmsb)="移动" and trim(aireq("sn"))<>"" and aireq("sid")<>"" then
dim rspl,rmdxx,rmdsn,rmddx,rmdxh,icxpi
Call saik(rspl,"select "&icfba&"_xx,"&icfba&"_sn,"&icfba&"_dx,"&icfba&"_jx,"&icfba&"_sx from "&saidbqz&icfba&" where "&icfba&"_sn='"&trim(aireq("sn"))&"'",1,1)
rmdxx=rspl(""&icfba&"_xx")
rmdsn=rspl(""&icfba&"_sn")
rmddx=rspl(""&icfba&"_dx")
rmdxh=rspl(""&icfba&"_jx")
Call saig(rspl)
Call saik(rs,"select "&icfba&"_xx,"&icfba&"_sn,"&icfba&"_dx,"&icfba&"_jx,"&icfba&"_sx from "&saidbqz&icfba&" where "&icfba&"_id in ("&aireq("sid")&")",1,3)
If rs.BOF And rs.EOF Then
else
icxpi=0
Do While Not rs.EOF
icxpi=icxpi+1
rs(""&icfba&"_sx")=rmdsn
rs(""&icfba&"_xx")=rmdxx&right("000"&aisnk(icxpi,0),3)
if rmddx="0" then
rs(""&icfba&"_dx")=rmdsn
else
rs(""&icfba&"_dx")=rmddx
end if
if aireq("jx")="1" then
rs(""&icfba&"_jx")=aiint(rmdxh)+1
end if
rs.update
rs.movenext
Loop
End If
Call saig(rs)
icliq=icliq&"<div class=""l-tc"">ID=["&aireq("sid")&"]已经成功移至SN=["&trim(aireq("sn"))&"]下！</div>"
end if
end if
end if
if i_xksc=1 then icliq=icliq&"<div id="""&i_liys&""">"
if icfdj>2 then icliq=icliq&"<div style=""display:none""><form action="""" id=""esindexForm"" name=""esindexForm"" method=""post""></div>"
End Function
'-----------------------------------
'list page
'=iclist()
'-----------------------------------
Function iclisttop(icfms,icfti)
'top------0
if aibj(icfms,s_umyq) then
iclisttop="<div class=""l-qa"">"
elseif aibj(icfms,s_umlp) then
iclisttop="<div class=""l-pa"">"
elseif aibj(icfms,s_umlb) then
iclisttop="<div class=""l-sa"">"
if not ainull(icfti) then iclisttop=iclisttop&"<li class=""l-2"">"&icfti&"</li>"
else
iclisttop="<div class=""l-ca"">"
end if
'top------1
End Function
Function iclist(icfms,icfti,icfii,icfbt,icftt,icflj,icfgl,icfs1,icfs2,icfs3,icfs4)
iclist=""
'top loop------0
'yunqian list
if aibj(icfms,s_umyq) then
iclist=iclist&"<li>"
iclist=iclist&icfgl
if not ainull(icfs2) then iclist=iclist&icfs2
iclist=iclist&"<a href="""&icflj&""" title="""&icftt&""" style="""&esyqs(icfs1)&""">"
if not ainull(icfs4) then iclist=iclist&icfs4
iclist=iclist&icfbt&"</a>"
if not ainull(icfs3) then iclist=iclist&icfs3
iclist=iclist&"</li>"
'list
elseif aibj(icfms,s_umlb) then
if icfii mod 2=0 then
iclist=iclist&"<li class=""l-1"">"
else
iclist=iclist&"<li>"
end if
iclist=iclist&icfgl
iclist=iclist&icfs1
iclist=iclist&"<a href="""&icflj&""" title="""&icftt&""">"&icfbt&"</a>"
iclist=iclist&"</li>"
'pic
elseif aibj(icfms,s_umlp) then
iclist=iclist&"<li class=""l-pb"">"
iclist=iclist&icfgl
if icfii mod 4=0 then
iclist=iclist&"<div class=""l-pc1"">"
else
iclist=iclist&"<div class=""l-pc"">"
end if
iclist=iclist&"<a href="""&icflj&""" title="""&icftt&""">"
if ainull(icfs1) then
iclist=iclist&""
else
iclist=iclist&icfs1
end if
if not ainull(icfs2) then iclist=iclist&"<div class=l-pbu>"&icfs2&"</div>"
iclist=iclist&"<div class=l-pbi>"&icfbt&"</div>"
iclist=iclist&"</a></div></li>"
'other
else
if icfii mod 2=0 then
iclist=iclist&"<li class=""l-1"">"
else
iclist=iclist&"<li>"
end if
'response.Write trim(aitit(icfbt))&"<br>"&icfs1&"<br><br><br><br><br>"
if not ainull(trim(aitit(icfbt))) then
iclist=iclist&"<div class=""l-cb lh"">"&icfgl&"<a href="""&icflj&""" title="""&icftt&""">"&icfbt
if not ainull(icfs1) then iclist=iclist&" <i>"&icfs1&"</i>"
iclist=iclist&"</a></div>"
elseif not ainull(icfgl) then
iclist=iclist&"<div class=""l-cb lh"">"&icfgl&"</div>"
end if
if not ainull(icfs2) then iclist=iclist&"<div class=""l-cc lh"">"&icfs2&"</div>"
if not ainull(icfs3) then iclist=iclist&icfs3
if not ainull(icfs4) then iclist=iclist&"<div class=""l-cc lh"">"&icfs4&"</div>"
iclist=iclist&"<div class=""cr""></div></li>"
end if
'top loop------1
End Function
Function iclistend(icfms,icfti)
'end------0
if aibj(icfms,s_umyq) then
iclistend="</div>"
elseif aibj(icfms,s_umlp) then
iclistend="<div class=""cr""></div></div>"
elseif aibj(icfms,s_umlb) then
iclistend="</div>"
else
iclistend="</div>"
end if
'end------1
End Function
'-----------------------------------
'list do bottom
'=iclih()
'-----------------------------------
Function iclih(icfpg,icfdj,icfty,icfsc,icfba)
iclih=""
if i_xksc=1 then iclih=iclih&"</div>"&esscor(i_liys,icvss)
if not ainull(icfpg) then iclih=iclih&"<div class=""cr""></div><div class=""y-a"">"&icfpg&"</div>"
if icfdj>2 and icfty=1 then
iclih=iclih&"<div class=""l-h""><input class=""f-sb"" type=""button"" value=""全选"" onclick=""eeselectall('EESai')""><input class=""f-sb"" type=""button"" value=""取消"" onclick=""eeselectall()"">"
if not ainull(icfsc) and aiint(e_gdj)>5 then iclih=iclih&"<input class=""f-sb"" type=""button"" onclick=""{if(confirm('请确认此操作！')){javascript:window.location.href='"&icfsc&"';return true;}return false;}"" value=""清空"">"
if not ainull(icfsc) and aiint(e_gdj)>1 then iclih=iclih&"<input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定删除选定项吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""删除"">"
if not ainull(icfsc) and aiint(e_gdj)>1 then iclih=iclih&"<input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定操作选定项状态吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""0""><input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定操作选定项状态吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""1""><input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定操作选定项状态吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""2""><input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定操作选定项状态吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""3""><input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定操作选定项状态吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""4""><input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定操作选定项状态吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""5"">"
if aibj(icfba,"us") and aiint(e_gdj)>2 then iclih=iclih&aiselect("zj","","","f-s1","请选择认证级别",0,i_buszj)&"<input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定要执行认证操作吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""认证"">"
if (aibj(icfba,"ef") or aibj(icfba,"bb")) and aiint(e_gdj)>2 then iclih=iclih&"<input type=""text"" class=""f-a1"" name=""sn"" id=""sn"" value="""">"&aiselect("jx","","","f-s1","请选择级深调整","1|0","调深度|不调深度")&"<input class=""f-sb"" type=""submit"" onclick=""{if(confirm('确定要移动吗？')){this.document.esindexForm.submit();return true;}return false;}"" name="""&s_fmsb&""" id="""&s_fmsb&""" value=""移动"">"
iclih=iclih&eskyx(0,2,2)&"</div></form>"
end if
End Function
'-----------------------------------
'=icserr(icfrs)
'-----------------------------------
Function icserr(icfrs)
'0ssp/1ssf/2ssx/3ssm/4sss
icvrr=split(icfrs&g_urg&g_urg&g_urg&g_urg,g_urg)
icvsp=aiint(icvrr(0))
icvsf=aiint(icvrr(1))
icvsx=aiint(icvrr(2))
icvsm=aiint(icvrr(3))
icvss=aijie(aistr(icvrr(4)))
End Function
'-----------------------------------
'=icser(icfstr,icfrs)
'-----------------------------------
Function icser(icfstr,icfrs)
Call icserr(icfrs)
if aibj(g_u0,s_umgl) or ew_sp>0 then
if aibj(aireq(s_fmyms),s_fmyz) then
'0ssp/1ssf/2ssx/3ssm/4sss
if aibj(aireq("sss"),icvss) and aibj(aireq("ssx"),icvsx) and aibj(aireq("ssm"),icvsm) and aibj(aireq("ssf"),icvsf) and aibj(aireq("ssp"),icvsp) then
else
dim sssx
if aibj(aireq("sss"),s_ztks) then
sssx=""
else
sssx=aijia(aireq("sss"))
end if
response.Redirect(eshref(icfstr&g_urg&"0"&g_urg&"0"&g_urg&aireq("ssp")&g_urg&aireq("ssf")&g_urg&aireq("ssx")&g_urg&aireq("ssm")&g_urg&sssx&g_urz,11))
end if
'this is search form
else
icser=icser&"<form id=""EESaiFormSearch"" name=""EESaiFormSearch"" action="""" method=""post"">"
if aibj(g_u0,s_umgl) or ew_sp>1 then icser=icser&aiselect("ssp","","","f-s0",icvsp,"0",icdssp)
if aibj(g_u0,s_umgl) or ew_sp>2 then icser=icser&aiselect("ssf","","","f-s0",icvsf,"0",icdssf)
if aibj(g_u0,s_umgl) or ew_sp>1 then icser=icser&aiselect("ssx","","","f-s0",icvsx,"0",icdssx)
if aibj(g_u0,s_umgl) or ew_sp>2 then icser=icser&aiselect("ssm","","","f-s0",icvsm,"0",icdssm)
icser=icser&"<input class=""f-s0"" type=""text"" name=""sss"" size=""12"""
if ainull(icvss) then
icser=icser&" value="""&s_ztks&""""
else
icser=icser&" value="""&icvss&""""
end if
icser=icser&" onBlur=""if(this.value==''){this.value='"&s_ztks&"';}"" onFocus=""if(this.value=='"&s_ztks&"'){this.value='';}"" />"
icser=icser&aibutton(2,"","","f-se",s_ztss)&aiinput("hidden",s_fmyms,"",0,0,"","",s_fmyz)&"</form>"
end if
end if
End Function
'-----------------------------------
'=icserq()
'-----------------------------------
Function icserq()
g_app=""
iclwhere=""
iclorder=""
if icvsf>0 then
iclwhere=iclwhere&icdrrf(icvsf)
g_app=g_app&"_f"&icvsf
else
g_app=g_app&"_f0"
end if
if not ainull(icvss) then
iclapp=1
if not ainull(iclwhere) then iclwhere=iclwhere&" and "
if aibj(icvsx,"99") then
iclwhere=iclwhere&left(icdrrx(0),3)&"xt like '%!"&icvss&"!%'"
else
Call ekin(icvss)
iclwhere=iclwhere&icdrrx(icvsx)
if icvsm>1 then
iclwhere=iclwhere&"='"&icvss&"'"
else
iclwhere=iclwhere&" like '%"&icvss&"%'"
end if
end if
end if
if icvsp>0 then
iclorder=icdrrp(icvsp)
g_app=g_app&"_p"&icvsp
else
g_app=g_app&"_p0"
end if
End Function
'-----------------------------------
'=icggx(esfstr)
'-----------------------------------
Function icggx(esfstr)
dim icggxxp
Set icggxxp=new RegExp'regular expression
icggxxp.IgnoreCase=true'Ignore case
icggxxp.Global=true'Search string matching for all text
icggxxp.Pattern="\##([0-9A-Za-z-]{1,88})\##"'Find gg
icggx=icggxxp.replace(esfstr,"<script language=JavaScript charset=utf-8 src="&i_dir&s_drplug&"X/EESaiGG/?$1.js></script>")
Set icggxxp=nothing
End Function
'-----------------------------------
'=icgg()read gg
'-----------------------------------
Function icgg(ggfsn,ggfxy,ggfjk,ggfck,ggfcg,ggfbt,ggflj,ggfjg,ggftm,ggft1,ggfty,ggfxx,ggfnr)
icgg=""
ggfxy=aiint(ggfxy)
ggfjk=aiint(ggfjk)
ggfsn=trim(ggfsn)
if ggfxy>0 then
dim ggdvg,ggda1,ggda2
ggfck=aiint(ggfck)
ggfcg=aiint(ggfcg)
ggfjg=aiint(ggfjg)
ggfty=aiint(ggfty)
if ggfck<1 then ggfck=g_vdw
if ggfcg<1 then ggfcg=g_vdh
ggdvg=ggfcg
if not isdate(ggftm) then ggftm=now()
if not isdate(ggft1) then ggft1=date()+30
'文字|图片|图文|动画|动文|视频|视文|代码|代文
if ggft1>now() or ggfxy>3 then
if ainull(ggflj) then
ggda1=""
ggda2=""
else
if ggfjk>1 then ggflj=i_dir&s_drplug&"X/EESaiGG/?"&ggfsn&"-88.html"
ggda1="<a title="&ggfbt&" target=_blank href="&ggflj&">"
ggda2="</a>"
end if
if ggfty=0 then
icgg=icgg&ggda1&ggfbt&ggda2
if not ainull(ggfxx) then icgg=icgg&"<br>"&ggfxx
elseif ggfty=1 or ggfty=2 then
icgg=icgg&ggda1&"<img width="&ggfck&" height="&ggfcg&" src="&ggfxx&">"&ggda2
elseif ggfty=3 or ggfty=4 then
icgg=icgg&"<embed src="&ggfxx&" allowFullScreen=true quality=high width="&ggfck&" height="&ggfcg&" align=middle allowScriptAccess=always type=""application/x-shockwave-flash""></embed>"
elseif ggfty=5 or ggfty=6 then
icgg=icgg&"<object width="&ggfck&" height="&ggfcg&" classid=""CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"">"&_
VbCrlf&"<param name=url value="&ggfxx&" />"&_
VbCrlf&"</object>"
elseif ggfty=7 or ggfty=8 then
icgg=icgg&ggfnr
end if
if ggfty=2 or ggfty=4 or ggfty=6 or ggfty=8 or ggfty=10 then
ggdvg=ggdvg+20
icgg=icgg&"<br>"&ggda1&ggfbt&ggda2
end if
else
icgg=icgg&"提示：广告于"&ggft1&"到期"
end if
icgg="<div style=width:"&ggfck&"px;height:"&ggdvg&"px;overflow:hidden;clear:both;font-size:12px;text-align:center;>"&icgg&"</div>"
end if
End Function
'-----------------------------------
'=icnr()
'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)
'-----------------------------------
Function icnr(icfty,icfdm,icfcb,icfcc,icfcd,icfcf,icfcg,icfci,icfcj,icfcm)
dim icndlin
icfty=aiint(icfty)
icndlin=""
icnr="<div class=""c-a"">"
if not(ainull(icfcb) or icfty=0) then icnr=icnr&"<h1 class=""c-b l-0"">"&icfcb&"</h1>"
if not(ainull(icfcd) or icfty<3) then icnr=icnr&"<li class=""c-d"">"&icfcd&"</li>"
if not(ainull(icfcc) or icfty<2) then icnr=icnr&"<li class=""c-c l-1"">"&icfcc&"</li>"
if not(ainull(icfcf) or icfty<4) then icndlin=icndlin&"<div class=""c-f"">"&icfcf&"</div>"
if not(ainull(icfcg) or icfty<5) then
if ainull(icndlin) then
icndlin=icndlin&"<div>"
else
icndlin=icndlin&"<div class=""c-g"">"
end if
icndlin=icndlin&icfcg&"</div>"
end if
if not ainull(icndlin) then
icnr=icnr&"<div class=""c-e"">"&icndlin&"</div>"
if not(ainull(icfdm) or icfty<6) then
icnr=icnr&"<li class=""c-h"">"
if len(icfdm)>3 then
icnr=icnr&icfdm
else
icnr=icnr&icfdm&"详情"
end if
icnr=icnr&"</li>"
end if
end if

if not(ainull(icfcj) or icfty<7) then
icnr=icnr&"<li class=""c-j"">"&icfcj&"</li>"
if not(ainull(icfdm) or icfty<6) then icnr=icnr&"<li class=""c-h"">"&icfdm&"详情</li>"
end if

if not(ainull(icfci) or icfty<8) then icnr=icnr&"<div class=""c-i l-1"" id=""AsaiNR"">"&icfci&"</div>"
if not(ainull(icfcm) or icfty<9) then icnr=icnr&"<div class=""c-i c-m"">"&icfcm&"</div>"

icnr=icnr&"</div>"
End Function
'-----------------------------------
'=icico(1,"")
'-----------------------------------
Function iccg(icfzs,icfmo)
if right(icfzs,1)="%" or aibj(right(icfzs,2),"px") then
iccg=icfzs
elseif aiint(icfzs)>0 then
iccg=icfzs&"px"
else
iccg=icfmo
end if
End Function
'-----------------------------------
'=iccgx(1,10,12)
'-----------------------------------
Function iccgx(icfty,icfz1,icfz2)
if icfty=1 then
if right(icfz1,1)="%" and right(icfz2,1)="%" then
iccgx=aiint(replace(icfz1,"%",""))+aiint(replace(icfz2,"%",""))
iccgx=iccgx&"%"
else
iccgx=aiint(replace(icfz1,"px",""))+aiint(replace(icfz2,"px",""))
iccgx=iccgx&"px"
end if
elseif icfty=0 then
if right(icfz1,1)="%" and right(icfz2,1)="%" then
iccgx=aiint(replace(icfz1,"%",""))-aiint(replace(icfz2,"%",""))
iccgx=iccgx&"%"
elseif right(icfz1,1)="%" or right(icfz2,1)="%" then
iccgx="0px"
else
iccgx=aiint(replace(icfz1,"px",""))-aiint(replace(icfz2,"px",""))
iccgx=iccgx&"px"
end if
end if
End Function
'-----------------------------------
'=ictc(icfty=1ppt|2FTC)
'-----------------------------------
Function ictc(icfty)
if icfty=2 then
cstc=aiint(cstc)+1
if cstc=1 then
ictc="<script language=""JavaScript"" charset=""utf-8"" src="""&eshref(i_dir&"GuoYanSai/FTC.js",3)&"""></script>"
else
ictc=""
end if
else
csppt=aiint(csppt)+1
if csppt=1 then
ictc="<script language=""JavaScript"" charset=""utf-8"" src="""&i_asai&i_msk&"js/ppt.js""></script>"
else
ictc=""
end if
end if
End Function
'-----------------------------------
'=ictc(icfty=1ppt)
'-----------------------------------
Function icgd(icfty,icfwd,icfht,icfstr)
dim icdgcss
if icfty>2 then icdgcss="a"
e_ii=aiint(e_ii)+1
icgd=""
icgd=icgd&"<div id=""eesai"&e_ii&"gd"" class=""p-gd"&icdgcss&""" style=""width:"&iccg(icfwd,"auto")&";height:"&iccg(icfht,"100%")&""">"
if icdgcss="a" then icgd=icgd&"<div id=""eesai"&e_ii&"gda"" class=""p-gda"">"
icgd=icgd&"<div id=""eesai"&e_ii&"gd1"" class=""p-gd2"&icdgcss&""">"
icgd=icgd&icfstr
icgd=icgd&"</div><div id=""eesai"&e_ii&"gd2"" class=""p-gd2"&icdgcss&"""></div></div>"
if icdgcss="a" then icgd=icgd&"</div>"
icgd=icgd&"<script>var eesai"&e_ii&"sd=40;var eesai"&e_ii&"gd2=document.getElementById(""eesai"&e_ii&"gd2"");var eesai"&e_ii&"gd1=document.getElementById(""eesai"&e_ii&"gd1"");var eesai"&e_ii&"gd=document.getElementById(""eesai"&e_ii&"gd"");eesai"&e_ii&"gd2.innerHTML=eesai"&e_ii&"gd1.innerHTML;"
if icfty=1 then
icgd=icgd&"function eesai"&e_ii&"gg(){if(eesai"&e_ii&"gd2.offsetTop-eesai"&e_ii&"gd.scrollTop<=0){eesai"&e_ii&"gd.scrollTop-=eesai"&e_ii&"gd1.offsetHeight;}else{eesai"&e_ii&"gd.scrollTop++;}"
elseif icfty=2 then
icgd=icgd&"function eesai"&e_ii&"gg(){if(eesai"&e_ii&"gd2.offsetTop-eesai"&e_ii&"gd.scrollTop>=0){eesai"&e_ii&"gd.scrollTop+=eesai"&e_ii&"gd1.offsetHeight;}else{eesai"&e_ii&"gd.scrollTop--;}"
elseif icfty=3 then
icgd=icgd&"function eesai"&e_ii&"gg(){if(eesai"&e_ii&"gd2.offsetWidth-eesai"&e_ii&"gd.scrollLeft<=0){eesai"&e_ii&"gd.scrollLeft-=eesai"&e_ii&"gd1.offsetWidth;}else{eesai"&e_ii&"gd.scrollLeft++;}"
elseif icfty=4 then
icgd=icgd&"function eesai"&e_ii&"gg(){if(eesai"&e_ii&"gd.scrollLeft<=0){eesai"&e_ii&"gd.scrollLeft+=eesai"&e_ii&"gd2.offsetWidth;}else{eesai"&e_ii&"gd.scrollLeft--;}"
end if
icgd=icgd&"}var eesai"&e_ii&"mm=setInterval(eesai"&e_ii&"gg,eesai"&e_ii&"sd);eesai"&e_ii&"gd.onmouseover=function() {clearInterval(eesai"&e_ii&"mm)};eesai"&e_ii&"gd.onmouseout=function() {eesai"&e_ii&"mm=setInterval(eesai"&e_ii&"gg,eesai"&e_ii&"sd)}</script>"
End Function
'-----------------------------------
'PS:HD Show Pro
'=icpptp(eafimg/"2.gif"&g_gx&"3.gif",eafurl/"http://easai.com"&g_gx&"http://77ya.com",eaftxt/"Asai Studio"&g_gx&"eatai.Com",eafwid=320,eafhei=240,eafsty/0no/1num/2num+tit,eaftm/time to go=3,color,eafid/"AsaiHD")
'-----------------------------------
Function icpptp(eafimg,eafurl,eaftxt,eafwid,eafhei,eafsty,eaftm,eafbg,eafid)
dim eatharri,eatharru,eatharrt,eatharrb,eathnum,eathii,eathiii,icdqt,icdpt,icdpn,icdlj,icdbt,icdbg
eatharri=split(eafimg,g_gx)
eatharru=split(eafurl&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx,g_gx)
eatharrt=split(eaftxt&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx,g_gx)
eatharrb=split(eafbg&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx&g_gx,g_gx)
eathnum=ubound(eatharri)
if eathnum>0 then
eafwid=iccg(eafwid,"auto")
eafhei=iccg(eafhei,"auto")
icpptp=icpptp&ictc(1)
icpptp=icpptp&"<style>#eesai"&eafid&"k,#eesai"&eafid&"imgu li,#eesai"&eafid&"imgu img{width:"&eafwid&";height:"&eafhei&";}"
if eafsty<2 then
icpptp=icpptp&"#eesai"&eafid&"imgu span{display:none;}"
if eafsty=0 then icpptp=icpptp&"#eesai"&eafid&"num{display:none;}"
end if
icpptp=icpptp&"</style>"
for eathii=0 to eathnum
eathiii=eathii+1
icdqt=eatharri(eathii)
icdlj=eatharru(eathii)
icdbt=eatharrt(eathii)
icdbg=eatharrb(eathii)
if ainull(icdlj) then icdlj="#"
if not ainull(icdbg) then icdbg=" style=""background-color:"&icdbg&";"""
icdpt=icdpt&"<li"&icdbg&"><a href="""&icdlj&""" title="""&icdbt&"""><img alt="""&icdbt&""" src="""&icdqt&"""><span>　　"&icdbt&"</span></a></li>"
icdpn=icdpn&"<li>"&eathiii&"</li>"
next
icpptp=icpptp&"<div class=""p-pt"" id=""eesai"&eafid&"k""><div class=""p-ptm"" id=""eesai"&eafid&"img""><ul class=""p-ptmu"" id=""eesai"&eafid&"imgu"">"
icpptp=icpptp&icdpt
icpptp=icpptp&"</ul></div><div class=""p-ptn"" id=""eesai"&eafid&"num""><ul>"
icpptp=icpptp&icdpn
icpptp=icpptp&"</ul></div></div>"
icpptp=icpptp&"<script type=""text/javascript"">var tt = new ss.slider();tt.init({gallery:'eesai"&eafid&"img',control:""eesai"&eafid&"num"",dir:false,index:0,speed:20,interval:1000,type:'mouseover'});</script>"
end if
End Function
'-----------------------------------
'PS:HD Show
'=icppta(eafimg/"2.gif"&g_gx&"3.gif",eafurl/"http://easai.com"&g_gx&"http://77ya.com",eaftxt/"Asai Studio"&g_gx&"eatai.Com",eafwid=320,eafhei=240,eafsty/0no/1num/2num+tit,eaftm/time to go=3,color,eafid/"AsaiHD")
'-----------------------------------
Function icppta(eafimg,eafurl,eaftxt,eafwid,eafhei,eafsty,eaftm,eafbg,eafid)
dim eatharri,eatharru,eatharrt,eathii,eathiii,eathnum,eathgrr,eathgi,eathgud
eatharri=split(eafimg,g_gx)
eatharru=split(eafurl,g_gx)
eatharrt=split(eaftxt,g_gx)
eathnum=ubound(eatharri)+1
icppta=icppta&"<script type=""text/javascript"">"
for eathii=0 to eathnum-1
eathiii=eathii+1
icppta=icppta&eafid&"img"&eathiii&"=new Image();"&eafid&"img"&eathiii&".src='"&eatharri(eathii)&"';"
if not ainull(eatharru(eathii)) then
icppta=icppta&eafid&"url"&eathiii&"=new Image();"&eafid&"url"&eathiii&".src='"&eatharru(eathii)&"';"
else
icppta=icppta&eafid&"url"&eathiii&"=new Image();"&eafid&"url"&eathiii&".src='';"
end if
icppta=icppta&eafid&"txt"&eathiii&"=new Image();"&eafid&"txt"&eathiii&"='"&eatharrt(eathii)&"';"
next
if not ainull(eafbg) then
eathgrr=split(eafbg,g_gx)
eathgud=ubound(eathgrr)
for eathgi=0 to eathgud
icppta=icppta&eafid&"cor"&eathgi+1&"='"&eathgrr(eathgi)&"';"
next
icppta=icppta&"function "&eafid&"banbg(nm){if ("&eathgud+1&">=nm){var "&eafid&"corl=eval('"&eafid&"cor'+nm+'');if ("&eafid&"corl==''){document.getElementById('"&eafid&"').style.background="&eafid&"cor1;}else{document.getElementById('"&eafid&"').style.background="&eafid&"corl;}}else{document.getElementById('"&eafid&"').style.background="&eafid&"corl;}}"
end if

if aibj(right(eafwid,1),"%") then
icppta=icppta&"var "&eafid&"Wid='width:"&eafwid&";';var "&eafid&"Widm='max-width:"&eafwid&";';"
elseif aiint(eafwid)>0 then
icppta=icppta&"var "&eafid&"Wid='width:"&aiint(eafwid)&"px;';"
if i_xkhd=1 then
icppta=icppta&"var "&eafid&"Widm='max-width:"&aiint(eafwid)&"px;';"
elseif i_xkhd=2 then
icppta=icppta&"var "&eafid&"Widm='width:"&aiint(eafwid)&"px;';"
elseif i_xkhd=3 then
icppta=icppta&"var "&eafid&"Widm='min-width:"&aiint(eafwid)&"px;';"
else
icppta=icppta&"var "&eafid&"Widm='width:"&aiint(eafwid)&"px;';"
end if
else
icppta=icppta&"var "&eafid&"Wid='';var "&eafid&"Widm='max-width:100%';"
end if
if IsNumeric(eafhei) then
if aiint(eafhei)>19 then
icppta=icppta&"var "&eafid&"Hei='height:"&aiint(eafhei)&"px;';"
if i_xkhd=1 then
icppta=icppta&"var "&eafid&"Heim='max-height:"&aiint(eafhei)&"px;';"
elseif i_xkhd=2 then
icppta=icppta&"var "&eafid&"Heim='min-height:"&aiint(eafhei)&"px;';"
elseif i_xkhd=3 then
icppta=icppta&"var "&eafid&"Heim='height:"&aiint(eafhei)&"px;';"
else
icppta=icppta&"var "&eafid&"Heim='height:"&aiint(eafhei)&"px;';"
end if
elseif aiint(eafwid)>19 then
if aiint(eafhei)>9 then
icppta=icppta&"var "&eafid&"Hei='height:"&int(aiint(eafwid)+aiint(eafwid)*int(right(eafhei,1))/10)&"px;';var "&eafid&"Heim='max-height:"&int(aiint(eafwid)+aiint(eafwid)*int(right(eafhei,1))/10)&"px;';"
elseif aiint(eafhei)>0 then
icppta=icppta&"var "&eafid&"Hei='height:"&int(aiint(eafwid)*aiint(eafhei)/10)&"px;';var "&eafid&"Heim='max-height:"&int(aiint(eafwid)*aiint(eafhei)/10)&"px;';"
else
icppta=icppta&"var "&eafid&"Hei='height:"&aiint(eafwid)&"px;';var "&eafid&"Heim='max-height:"&aiint(eafwid)&"px;';"
end if
end if
else
icppta=icppta&"var "&eafid&"Hei='"&eafhei&"';var "&eafid&"Heim='"&eafhei&"';"
end if

icppta=icppta&"var "&eafid&"numc="&eathnum&";var "&eafid&"nn=1;var "&eafid&"key=0;var "&eafid&"tt=1;"
icppta=icppta&"function "&eafid&"img_show()"_
&"{var isIE=!!window.ActiveXObject;var isIE6=isIE&&!window.XMLHttpRequest;if("&eafid&"key==0){"&eafid&"key=1;}"_
&"else if(document.all&&!isIE6)"_
&"{document.getElementById("""&eafid&"img"").filters[0].Apply();document.getElementById("""&eafid&"img"").filters[0].Play(duration=1);}"_
&"eval('document.getElementById("""&eafid&"img"").src="&eafid&"img'+"&eafid&"nn+'.src');"_
&"eval('document.getElementById("""&eafid&"img"").alt="&eafid&"txt'+"&eafid&"nn+'');"_
&"eval('document.getElementById("""&eafid&"UrlT"").href="&eafid&"url'+"&eafid&"nn+'.src');"_
&"eval('document.getElementById("""&eafid&"UrlT"").title="&eafid&"txt'+"&eafid&"nn+'');"_
&"eval('document.getElementById("""&eafid&"text"").innerHTML="&eafid&"txt'+"&eafid&"nn+'');"_
&"eval('document.getElementById("""&eafid&"tita"").href="&eafid&"url'+"&eafid&"nn+'.src');"
if not ainull(eafbg) then icppta=icppta&eafid&"banbg("&eafid&"nn);"
icppta=icppta&"for (var "&eafid&"ik=1;"&eafid&"ik<="&eafid&"numc;"&eafid&"ik++){document.getElementById("""&eafid&"numa""+"&eafid&"ik).className='p-ze';}"_
&"document.getElementById("""&eafid&"numa""+"&eafid&"nn).className='p-zf';"_
&eafid&"nn++;if("&eafid&"nn>"&eafid&"numc){"&eafid&"nn=1;}"_
&eafid&"time=setTimeout('"&eafid&"img_show()',"&eaftm&"*1000);}"_
&"function change"&eafid&"img("&eafid&"n){"&eafid&"nn="&eafid&"n;window.clearInterval("&eafid&"time);"&eafid&"img_show();}"
icppta=icppta&"document.write('<div style=""'+"&eafid&"Wid+''+"&eafid&"Hei+'"" class=""p-z"">"

if i_xkhd=1 then
icppta=icppta&"<div style=""vertical-align:middle;display:table-cell;'+"&eafid&"Wid+''+"&eafid&"Hei+'""><a target=""_blank"" id="""&eafid&"UrlT""><img style=""vertical-align:middle;'+"&eafid&"Widm+''+"&eafid&"Heim+'"""
elseif i_xkhd=2 then
icppta=icppta&"<div style=""'+"&eafid&"Wid+''+"&eafid&"Hei+'""><a target=""_blank"" id="""&eafid&"UrlT""><img style=""'+"&eafid&"Widm+'"""
elseif i_xkhd=3 then
icppta=icppta&"<a target=""_blank"" id="""&eafid&"UrlT""><img style=""'+"&eafid&"Heim+'"""
else
icppta=icppta&"<a target=""_blank"" id="""&eafid&"UrlT""><img style=""'+"&eafid&"Widm+''+"&eafid&"Heim+'"""
end if
if eafid="asaipicshow" then
icppta=icppta&" class=""p-za"" id="""&eafid&"img""></a>"
else
icppta=icppta&" class=""p-zb"" id="""&eafid&"img""></a>"
end if
if i_xkhd=1 or i_xkhd=2 then icppta=icppta&"</div>"
icppta=icppta&"');"
if eafsty>0 then
icppta=icppta&"if("&eafid&"tt==1){document.write('<a id="""&eafid&"tita"" class=""p-zc"" target=""_blank"""
if eafsty=1 then icppta=icppta&" style=""display:none;"""
icppta=icppta&"><span id="""&eafid&"text""></span></a>');}"
icppta=icppta&"document.write('<div class=""p-zd"">');"
icppta=icppta&"for(var "&eafid&"i=1;"&eafid&"i<"&eafid&"numc+1;"&eafid&"i++){document.write('<span href=""#AsaiPicShow"" onmouseover=""javascript:change"&eafid&"img('+"&eafid&"i+');"" id="""&eafid&"numa'+"&eafid&"i+'"" class=""p-ze"" target=""_self"">'+"&eafid&"i+'</span>');}"
icppta=icppta&"document.write('</div>');"
end if
icppta=icppta&"document.write('</div>');"_
&eafid&"img_show();"
icppta=icppta&"</script>"
End Function
'-----------------------------------
'PS:she qian
'=icsq(big title,eatfbt/<a href></a>"&g_gx&"<a href></a>,nr"&g_gx&"nr,"")
'-----------------------------------
Function icsq(eatqbtd,eatfbt,eatfnr,eatfcs)
e_ii=e_ii+1
dim eatqfcarrb,eatqfcarrn,eatqfcub,eatqfcii,eatqfcjj,eatqfcon
eatqfcarrb=split(eatfbt,g_gx)
eatqfcarrn=split(eatfnr,g_gx)
eatqfcon=""
if ubound(eatqfcarrb)>ubound(eatqfcarrn) then
eatqfcub=ubound(eatqfcarrn)
else
eatqfcub=ubound(eatqfcarrb)
end if
if eatqfcub>0 then
if eatqfcub>6 then eatqfcub=6
icsq=icsq&"<script type=""text/javascript"" language=""javascript"">function llsq"&e_ii&"go(asoid){return document.getElementById(asoid);} function llsq"&e_ii&"move(ason){for(var llsq"&e_ii&"i=1;llsq"&e_ii&"i<="&eatqfcub+1&";llsq"&e_ii&"i++){llsq"&e_ii&"go('llsq"&e_ii&"'+llsq"&e_ii&"i).className='l-x"&eatfcs&"ta';llsq"&e_ii&"go('llsq"&e_ii&"c'+llsq"&e_ii&"i).className='l-x"&eatfcs&"ca';}llsq"&e_ii&"go('llsq"&e_ii&"'+ason).className='l-x"&eatfcs&"tan';llsq"&e_ii&"go('llsq"&e_ii&"c'+ason).className='l-x"&eatfcs&"can';}</script>"
icsq=icsq&"<div class=""l-x"&eatfcs&""
icsq=icsq&"""><div class=""l-x"&eatfcs&"t"">"

eatqfcjj=0
for eatqfcii=0 to eatqfcub
if eatqfcarrb(eatqfcii)<>"" then
eatqfcjj=eatqfcjj+1
if eatqfcjj=1 then
icsq=icsq&"<span class=""l-x"&eatfcs&"tan"" id=""llsq"&e_ii&eatqfcjj&""" onmouseover=""llsq"&e_ii&"move("&eatqfcjj&");"">"&eatqfcarrb(eatqfcii)&"</span>"
eatqfcon=eatqfcon&"<div class=""l-x"&eatfcs&"can"" id=""llsq"&e_ii&"c"&eatqfcjj&""">"&eatqfcarrn(eatqfcii)&"</div>"
else
icsq=icsq&"<span class=""l-x"&eatfcs&"ta"" id=""llsq"&e_ii&eatqfcjj&""" onmouseover=""llsq"&e_ii&"move("&eatqfcjj&");"">"&eatqfcarrb(eatqfcii)&"</span>"
eatqfcon=eatqfcon&"<div class=""l-x"&eatfcs&"ca"" id=""llsq"&e_ii&"c"&eatqfcjj&""">"&eatqfcarrn(eatqfcii)&"</div>"
end if
end if
next

if eatqbtd<>"" then icsq=icsq&"<span class=""l-x"&eatfcs&"tt"">"&eatqbtd&"</span>"
icsq=icsq&"</div><div class=""l-x"&eatfcs&"g""></div><div class=""l-x"&eatfcs&"c"">"
icsq=icsq&eatqfcon
icsq=icsq&"</div></div>"
else
icsq=icsq&"null..."
end if
End Function
'-----------------------------------
'PS:no class channel menu
'-----------------------------------
Function ictb(eafsx,eafps,eafsn)
dim ictblin,ictblis,ictblir,ictblitr
dim eadlinrr:eadlinrr=earr(0,eafps)
ictblir=""
ictblis=0
ictblin="<div class=""l-ra""><ul>"
gysax=split(eadlinrr,g_gx)
for gysi=0 to ubound(gysax)
gysay=split(gysax(gysi),g_gy)
if ubound(gysay)>10 then
if ictblir="" then ictblir=eaurl(esnk(gysay(11))&g_urg&esnf(gysay(10))&g_urg&s_umxx&g_urg&gysay(1)&g_urz,1,esnk(gysay(11)),"")
if gysi mod 2=0 then
ictblin=ictblin&"<li class=""l-1 pt"">"
else
ictblin=ictblin&"<li class=""pt"">"
end if
ictblitr="<a"
if aibj(gysay(1),eafsn) then
ictblitr=ictblitr&" class=""l-va"""
ictblis=1
end if
ictblitr=ictblitr&" href="""&eaurl(esnk(gysay(11))&g_urg&esnf(gysay(10))&g_urg&s_umxx&g_urg&gysay(1)&g_urz,1,esnk(gysay(11)),"")&""">"&esto(gysay(12),gysay(2),esnr(gysay(8)))&"</a>"
ictblin=ictblin&icmenuico(1,aiint(gysay(9)))&ictblitr
ictblin=ictblin&"</li>"
end if
next
ictblin=ictblin&"</ul></div>"
if ictblis=0 then response.Redirect(ictblir)
if not ainull(ictblin) then
if aiint(eafsx)>0 then ictb="<div class=""gys"&eafsx&""">"
ictb=ictb&ictblin
if aiint(eafsx)>0 then ictb=ictb&"<div class=""cr""></div></div>"
end if
End Function
'-----------------------------------
'PS:PD sn read
'-----------------------------------
Function icxq(eafep,eafef,eafsn,eafty,eaflen)
if not ainull(eafep) and not ainull(eafef) and not ainull(eafsn) then
g_app=esapm(1,eafsn)
if gysread(ealie("all"),eabiao,"ai_sn='"&eafsn&"'",g_app) then
if eafty=0 then
icxq=left(aititlen(esnr(ai_nr),eaflen),eaflen)&"...<a href="""&eshref(eafep&g_urg&eafef&g_urg&s_umxx&g_urg&eafsn&g_urz,1)&""" title=""点击查看全部""><u class=""ftt"">[详情]</u></a>"
elseif eafty=9 then
icxq=esnr(ai_nr)
end if
end if
end if
End Function
'-----------------------------------
'PS:ico
'-----------------------------------
Function iclbico(icftb,icfty)
icfty=right(icfty,1)
iclbico=" class=""l-rb p-o"&icfty&""" src="""&eshref(i_msk&"sys/tr/0.gif",3)&""""
End Function
'-----------------------------------
'PS:ico qianzhui
'-----------------------------------
Function icqz(icfty,icfxy,icfpx)
icqz=""
if icfty>0 and ew_qz=1 then
icqz=icqz&"<img"
if aiint(icfpx)>0 then
icqz=icqz&" src="""&eshref(i_msk&"sys/li/y.gif",3)&""" class=""p-o"&left(icfpx,1)&"""> "
elseif aiint(icfxy)=0 then
icqz=icqz&" src="""&eshref(i_msk&"sys/li/x.gif",3)&""" class=""p-o0""> "
elseif aiint(icfxy)=5 then
icqz=icqz&" src="""&eshref(i_msk&"sys/li/z.gif",3)&""" class=""p-o5""> "
else
icqz=icqz&" class=""p-o"&aiint(icfxy)&""" src="""&eshref(i_msk&"sys/li/m.gif",3)&"""> "
end if
end if
End Function
'-----------------------------------
'PS:ico houzhuo
'-----------------------------------
Function ichz(icfty,icftm,icfhi,icfup)
ichz=""
if icfty>0 and ew_hz=1 then
if isdate(icftm) then
if DateDiff("d",icftm,now())<i_nmxtm then ichz=ichz&"<img class=""l-rc"" src="""&eshref(i_msk&"sys/li/n.gif",3)&""">"
end if
if aiint(icfhi)>i_nmxhi then ichz=ichz&"<img class=""l-rc"" src="""&eshref(i_msk&"sys/li/h.gif",3)&""">"
if not ainull(icfup) then ichz=ichz&"<img class=""l-rc"" src="""&eshref(i_msk&"sys/li/p.gif",3)&""">"
end if
if ichz<>"" then ichz=" "&ichz
End Function
'-----------------------------------
'for ot
'=icot(icfty,icfmo,icfdd,icfzz)
'=icot(0,ep_el,ep_ot,ai_ot)
'-----------------------------------
Function icot(icfty,icfmo,icfdd,icfzz)
icot=""
if ainull(icfdd) then
if icfmo=2 then
icfdd="型号|规格|亮点"
elseif icfmo=5 then
icfdd=""
elseif icfmo=8 then
icfdd="版本|大小|亮点"
elseif icfmo=10 or icfmo=12 then
icfdd="型号|规格|联系"
elseif icfmo=13 then
icfdd="型号|规格|联系"
end if
end if

if not ainull(icfdd) then
dim icddrr,icddi,icddj,icddls,icddud,icdzrr,icdys
icddj=0
icddrr=split(icfdd,"|")
icddud=ubound(icddrr)
icdzrr=split(icfzz&",,,,,,,,,,,,,,,,",",")
if icfty=3 then
for icddi=0 to icddud
icddls=trim(icdzrr(icddi))
if not ainull(icddls) then
icot=icot&"<li>"&trim(icddrr(icddi))&"："&icddls&"</li>"
end if
next

elseif icfty=2 then
for icddi=0 to icddud
icddls=trim(icdzrr(icddi))
if not ainull(icddls) then
icot=icot&"　"&trim(icddrr(icddi))&"："&icddls&""
end if
next

elseif icfty=1 then
icot=aiinput("hidden","ot","",0,0,"","",icfzz)

else
for icddi=0 to icddud
icddls=trim(icddrr(icddi))
if not ainull(icddls) then
icddj=icddj+1
if icddj=1 then icot=icot&"<li>"
if icddud=icddi then
icdys=icddj mod 4
if icdys>2 then
icdys=icdys-1
else
icdys=1
end if
icot=icot&""&icddls&"："&aiinput("","ot","",0,20,"","f-c"&icdys&"|f-b"&icdys&"|f-c"&icdys&"",trim(icdzrr(icddi)))&""
else
icot=icot&""&icddls&"："&aiinput("","ot","",0,20,"","f-c1|f-b1|f-c1",trim(icdzrr(icddi)))&""
end if
if icddj mod 4=0 then icot=icot&"</li><li>"
end if
next
icot=icot&"</li>"
icot=replace(icot,"<li></li>","")

end if
end if
if icfty<2 and icot="" then icot=aiinput("hidden","ot","",0,0,"","",icfzz)
End Function
%>