<!-- #include file="conn.asp" -->
<!-- #include file="const.asp" -->
<HTML><HEAD><TITLE>系统桌面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="../images/sunzom.css" rel="stylesheet" type="text/css"> 
</HEAD>
<BODY>
<div style="padding: 5px">
<%=gonggao%><hr>
<%
sql="select top 10 * from SZ_MX where instr(bbal,'myhome')>0 order by mxpx desc,id asc"
set rsc2=conn.execute(sql)
if not rsc2.bof then
do while not rsc2.eof
lanid=chk0(rsc2("id")):lanname=rsc2("xmname"):lanmxdat=rsc2("mxdat"):myhome=rsc2("myhome")&"||"
if len(myhome)<6 or myhome="" or isnull(myhome) then myhome="|5|100%|180"
mygun=split(myhome,"|")(0):mytiao=split(myhome,"|")(1):mykuan=split(myhome,"|")(2):gungao=split(myhome,"|")(3)

%>
<div style="width: <%=mykuan%>; float:left">
<div style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #999999;width:99%"><dl class="buttona"><b><font color="#000080"><span title="点击查看更多"><a href="/set/hz.asp?mxid=<%=lanid%>&m1id=0&xxid=0&sid=0"  target="navTab"  rel="gg1" external="true"><%=lanname%></a></span></font></b></dl></div>
<%if instr(myhome,"gun")>0 then%>
<div id="life<%=lanid%>_demo" style="overflow:hidden;height:<%=gungao%>px;width:100%;position::absolute;display: inline;float:left; " >
<div id="life<%=lanid%>_demo1">
<%end if%>

<ul class="hang">
<%
sql="select * from SZ_zd where ChannelID="&lanid&" and Instr(zdhz,'myhome')>0 and ShowOnForm=1 order by OrderID desc,id asc"
set rsb2=conn.execute(sql)
if not rsb2.bof then
do while not rsb2.eof
id2=chk0(rsb2("id"))
bdTitle=rsb2("Title"):bdname=rsb2("FieldName")
hzsjx=hzsjx&""&bdname&"|"
rsb2.movenext
loop
end if
rsb2.close:set rsb2=nothing
 
 
sql="select top "&mytiao&" * from "&lanmxdat&" order by tjsj desc,id asc"
set rsd1=conn.execute(sql)
if not rsd1.bof then
do while not rsd1.eof
id2=chk0(rsd1("id"))
Response.Write "<li><span>"&rsd1("tjsj")&"</span><a href=""/bao/baoA.asp?xxid="&id2&"&mxid="&lanid&"&gid=0""  target=""navTab""  rel=""external"" external=""true"">"

if Instr(hzsjx,"|")>0 then
hzsj1=split(hzsjx,"|")
for hh=0 to Cntshu(hzsjx,"|")-1
xxtit=xxtit&"|"&""&rsd1(""&hzsj1(hh)&"")&""
next
else
xxtit="|请设置相关显示字段！"
end if

Response.Write ""&right(xxtit,len(xxtit)-1)&"</a></li>"
xxtit=""
rsd1.movenext
loop
end if
rsd1.close:set rsd1=nothing
%>

</ul>
<%if instr(myhome,"gun")>0 then%>
</div>
<div id="life<%=lanid%>_demo2"></div><script type="text/javascript">
							var speed=50;
							var fg<%=lanid%>Demo=document.getElementById('life<%=lanid%>_demo');
							var fg<%=lanid%>Demo1=document.getElementById('life<%=lanid%>_demo1');
							var fg<%=lanid%>Demo2=document.getElementById('life<%=lanid%>_demo2');
							fg<%=lanid%>Demo2.innerHTML=fg<%=lanid%>Demo1.innerHTML
							function my<%=lanid%>Marquee(){
								if(fg<%=lanid%>Demo2.offsetHeight-fg<%=lanid%>Demo.scrollTop<=0)
									fg<%=lanid%>Demo.scrollTop-=fg<%=lanid%>Demo1.offsetHeight
								else{
									fg<%=lanid%>Demo.scrollTop++
								}
							}
							var my<%=lanid%>Mar=setInterval(my<%=lanid%>Marquee,speed)
							fg<%=lanid%>Demo.onmouseover=function() {clearInterval(my<%=lanid%>Mar)}
							fg<%=lanid%>Demo.onmouseout=function() {my<%=lanid%>Mar=setInterval(my<%=lanid%>Marquee,speed+30)}
						</script>
</div><%end if%>

<br>
</div>

<%
hzsjx="":lanid=""
rsc2.movenext
loop
end if
rsc2.close:set rsc2=nothing
%>
<div  style="width: 100%"><hr><b>我的日常工作：</b><%=myrcwork%><hr>欢迎使用三众软件引擎系统—<%=dianming%>，全国服务热线：4006-0518-00<br>		</div>
</div>

</BODY></HTML>