<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>会展招投标网-会展之窗</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta content="展台，展位，展台设计，展台搭建，展台招标，会展公司，展览公司，设计，会展设计师，展台设计师，招标信息，招标发布，展会材料，展览工厂，展会知识，会展问答" name="keywords">
<meta content="会展招标网是会展之窗招标平台，为参展商提供招标信息发布，寻找诚信展览公司、最好的设计公司、安全放心的搭建工厂，花最少的钱找最好的服务。为展览公司和展览工厂提供最直接的业务平台，有问题找会展问答，学知识看会展百科。" name="description">
<link href="style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" language="javascript" src="js/jquery.js"></script>
<script type="text/javascript" language="javascript" src="js/site.js"></script>
<style type="text/css">
<!--
.STYLE8 {color: #000000}
-->
</style>
</head>
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/Config.asp"-->
<!--#include file="inc/conn.asp"-->
<body>
<!--#include file="top.asp"-->
<%Call ConnectionDataBase()%>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td width="300"><table width="97%" height="200" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="5" height="5" valign="top"><img src="images/djb_39.jpg" width="5" height="5" alt=""  /></td>
        <td height="5" background="images/djb_42.jpg" style="background-repeat:repeat-x"></td>
        <td width="5" height="5" valign="top"><img src="images/djb_43.jpg" width="5" height="5" alt="" /></td>
      </tr>
      <tr>
        <td height="197" background="images/djb_47.jpg"></td>
        <td height="190" background="images/body_bg.gif"><table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="83"><a href="zblist.asp"><img src="images/djb_53.jpg" alt="招标" width="63" height="63" border="0" /></a></td>
            <td><span class="font14hui">有项目，我要招标</span><br />
              <span class="font14c">免费快速发布招标信息</span></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><img src="images/djb_58.jpg" width="155" height="1" alt="" /></td>
          </tr>
          <tr>
            <td><a href="tblist.asp"><img src="images/djb_62.jpg" alt="竞标" width="63" height="63" border="0" /></a></td>
            <td><span class="font14hui">有实力，我要竞标</span><br />
              <span class="font14d">展览公司、工厂业务平台</span></td>
          </tr>
        </table></td>
        <td background="images/djb_49.jpg"></td>
      </tr>
      <tr>
        <td width="5" height="4"><img src="images/djb_66.jpg" width="5" height="4" alt="" /></td>
        <td background="images/1_67.jpg"></td>
        <td width="5" height="4"><img src="images/djb_65.jpg" width="5" height="4" alt="" /></td>
      </tr>
    </table></td>
    <td>
<script type="text/javascript">

// 幻灯片式的网页图片滚动函数（不需要做任何改动）
function roll_pic_flash(roll_pic_ary)        {
        // 生成幻灯片式的网页图片滚动代码
        var w                        = roll_pic_ary[3][0];
        var h                        = roll_pic_ary[3][1];
        var text_h                = roll_pic_ary[3][2];
        var bgcolor                = roll_pic_ary[3][3];
        var roll_swf        = roll_pic_ary[3][4];
        var swf_height        = h + text_h;
        var pics                = roll_pic_ary[0].join("|");
        var links                = roll_pic_ary[1].join("|");
        var texts                = roll_pic_ary[2].join("|");
        return '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ w +'" height="'+ swf_height +'"><param name="default_url" value="http://www.hbw.cn/"><param name="allowScriptAccess" value="sameDomain"><param name="movie" value="' + roll_swf + '"><param name="quality" value="high"><param name="bgcolor" value="'+bgcolor+'"><param name="menu" value="false"><param name="improved_by" value="http://www.hbcms.com/"><param name=wmode value="opaque"><param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+w+'&borderheight='+h+'&textheight='+text_h+'"><embed src="' + roll_swf + '" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+w+'&borderheight='+h+'&textheight='+text_h+'" menu="false" bgcolor="'+bgcolor+'" quality="high" width="'+ w +'" height="'+ h +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /></object>';

}

// 开始设置幻灯片参数
var roll_pic_width = 393;        // 图片宽度
var roll_pic_height = 209;        // 图片高度
var roll_text_height = 0;        // 文字高度
var roll_bgcolor = '#FFFFFF';        // 幻灯片背景色
var roll_flash = 'images/roll_pic_new.swf'; // 幻灯片flash地址，请将此flash下载保存到你的服务器，以免失效

// 幻灯片数组roll_pic_ary初始化（不用做任何改动）
var roll_pic_ary = new Array(Array(0),Array(0),Array(0),
Array(roll_pic_width,roll_pic_height,roll_text_height,roll_bgcolor,roll_flash));

// 增加一个图片，连接，文字说明
<%
Sql="Select Top 6 * From T_Ads Where ClassID=1 And Recycle=0 Order By SortID DESC,ID DESC"
SetRs Rs,Sql,conn,1,1
Do While Not Rs.Eof
%>
roll_pic_ary[0].push("UpLoadFiles/Ads/<%=Rs("FilePath")%>");
roll_pic_ary[1].push(escape("<%=Rs("Url")%>"));
roll_pic_ary[2].push("");
<%
Rs.movenext
Loop
DisRs Rs
%>


// 显示幻灯片式的网页图片滚动
document.write(roll_pic_flash(roll_pic_ary));
</script>
	</td>
    <td width="290"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/jb_46_1.jpg" width="290" height="28" alt="" /></td>
      </tr>
      <tr>
        <td height="175" valign="top" class="borderh" >
		<table width="98%" border="0" align="center"  cellpadding="0" cellspacing="2" >
		
		<%
		
			
		
		
		
		Sql="Select TOP 8 ID,NewsTitle,addtime From T_ggnews Where Recycle=0 Order By ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				'Response.Write("<a href='diary.asp?ID="&Rs("ID")&"' target='_blank' class='fontnewsall'>"&Rs("NewsTitle")&"</a><br />")
		%>
		<tr><td height="23">· 
	 <a href="gsnews.asp?id=<%=Rs("ID")%>" class="fontnewsall">
	 <%LeftStr Rs("NewsTitle"),16%></a> </td>
		<td width="60"><font color="#676767"><%= month(Rs("addtime"))&"-"&day(Rs("addtime")) %></font>
	 </td>
		</tr>
	 
		<%
		Rs.movenext
		Loop
		DisRs Rs
		%></table>
		</td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td><table width="99%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/djb_70.jpg" width="208" height="29" alt="" /></td>
      </tr>
      <tr>
        <td><table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="32"><img src="images/djb_77.jpg" width="32" height="22" alt="" /></td>
            <td class="font14lv">&nbsp;选择合适的装修公司</td>
            <td width="32"><img src="images/djb_79.jpg" width="32" height="22" alt="" /></td>
            <td class="font14lv">&nbsp;选择合适的材料，让你的居所增色不少</td>
            <td width="32"><img src="images/djb_81.jpg" width="31" height="22" alt="" /></td>
            <td class="font14lv">&nbsp;把握验收关，使您免掉后顾之忧</td>
          </tr>
        </table>
          </td>
      </tr>
      <tr>
        <td height="140">
	<div class="rollBox"> 
     <div class="Cont" id="ISL_Cont">
      <div class="ScrCont">
       <div id="List1">
	<!-- 图片列表 begin -->
		<%
		Sql="Select * From T_Ads Where ClassID=2 And Recycle=0 Order By SortID DESC,ID DESC"
		SetRs Rs,Sql,conn,1,1
		Do While Not Rs.eof
		%>
         <div class="pic">
          <a href="<%=Rs("Url")%>" target="_blank"><img src="<%="UpLoadFiles/Ads/"&Rs("FilePath")%>" width="180" height="100"  /></a>
         </div>       
		<%
		Rs.movenext
		Loop
		DisRs Rs
		%>
        <!-- 图片列表 end -->
       </div>
       <div id="List2"></div>
      </div>
     </div>  
    </div>
		</td>
      </tr>
    </table></td>
    <td width="290"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/djb_46.jpg" alt="" width="290" height="28" border="0" usemap="#Map" /></td>
      </tr>
      <tr>
        <td height="175" valign="top" class="borderh" ><table width="98%" border="0" align="center"  cellpadding="0" cellspacing="1" >
            <%
		Sql = "SELECT TOP 8 TenderID,Title,Addtime FROM T_Tender Where Recycle=0 Order By SortID DESC,AddTime DESC,TenderID DESC"
		SetRs Rs,Sql,conn,1,1
		Do While Not Rs.eof 
		%>
            <tr>
              <td height="20">· <a href="addzb_s.asp?id=<%=Rs("TenderID")%>" class="fontnewsall">
                <%LeftStr Rs("Title"),18%>
              </a> </td>
              <td width="60"><font color="#676767"><%= month(Rs("addtime"))&"-"&day(Rs("addtime")) %></font> </td>
            </tr>
            <%
		Rs.movenext
		Loop
		DisRs Rs
		%>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td><table width="566" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="32"><img src="images/dh001.jpg" alt="展览公司" width="566" height="32" /></td>
      </tr>
      <tr>
        <td height="20" align="center" background="images/dh002.jpg" class="STYLE8">◎ 展览展示方案策划 ◎ 展位效果图设计 ◎ 展台搭建 </td>
      </tr>
      <tr>
        <td height="220" valign="top" class="bordere">
		  <%
			companyid="0"
			Sql="Select TOP 6 ID,BusinessCard,Company From T_Users Where Recycle=0 And Recommend=true Order By paixv desc,ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				companyid=companyid&","&Rs("ID")
				Response.Write("<div style='height:76px; float:left; font-size:12px; margin-left:10px; text-align:center'><a href='ucompany.asp?userid="&Rs("ID")&"' target='_blank' class='fontnewsall'><img src='UpLoadFiles/Users/"&Rs("BusinessCard")&"' width='168' height='50' vspace='5'><br>"&Rs("Company")&"</a></div>")
			Rs.movenext
			Loop
			DisRs Rs
			
			Sql="Select TOP 6 ID,BusinessCard,Company From T_Users Where Recycle=0 And Recommend=true And ID Not IN("&companyid&") Order By paixv desc,ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				Response.Write("<div style='height:20px; width:168px; float:left; margin-top:10px; font-size:12px; margin-left:10px; text-align:left'><a href='ucompany.asp?userid="&Rs("ID")&"' target='_blank' class='fontnewsall'>"&Rs("Company")&"</a></div>")
			Rs.movenext
			Loop
			DisRs Rs
			%></td>
      </tr>
    </table></td>
    <td width="414" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" >
      <tr>
        <td height="32"><img src="images/dh003.jpg" alt="材料商 展览工厂" width="414" height="32" /></td>
      </tr>
      <tr>
        <td height="20" align="center" background="images/dh005.jpg" class="STYLE8">◎ 建材市场 ◎ 展览器材 ◎ 喷绘印刷 ◎ 制作工厂 </td>
      </tr>
      <tr>
        <td height="220" valign="top" class="borderd" >
		<%
		pinpaiid="0"
		Sql="Select Top 6 ID,FilePath From T_Brand Where Recycle=0 Order By Hits DESC,ID DESC"
		SetRs Rs,Sql,conn,1,1
		i=0
		Do While Not Rs.eof
			pinpaiid=pinpaiid&","&Rs("ID")
			Response.Write("<a href='pinpaiinfor.asp?id="&Rs("ID")&"' ><img src='UpLoadFiles/Brand/"&Rs("FilePath")&"' width='120' height='43' vspace='2' hspace='6'></a>")
			i=i+1
			if i mod 3=0 then response.Write("<br/>")
		Rs.movenext
		Loop
		DisRs Rs

		Sql="Select Top 12 ID,FileName From T_Brand Where Recycle=0 And ID Not IN ("&pinpaiid&") Order By Hits DESC,ID DESC"
		SetRs Rs,Sql,conn,1,1
		Do While Not Rs.eof		
			Response.Write("<div style='width:100px; height:20px; margin-top:10px; font-size:12px; text-align:left; margin-left:10px; float:left'><a href='pinpaiinfor.asp?id="&Rs("ID")&"'  class='fontnewsall'>"&Rs("FileName")&"</a></div>")
		Rs.movenext
		Loop
		DisRs Rs
		%></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="2" class="margintop">
  <tr>
	<%
	Sql="Select Top 4 * From T_Ads Where ClassID=3 And Recycle=0 Order By SortID DESC,ID DESC"
	SetRs Rs,Sql,conn,1,1
	IF Not Rs.Eof Then
		Do While Not Rs.eof
		%>
		 <td>
		  <a href="<%=Rs("Url")%>" target="_blank"><img src="<%="UpLoadFiles/Ads/"&Rs("FilePath")%>" width="244" height="50"  /></a>
		 </td>    
		<%
		Rs.movenext
		Loop
	Else
		Response.Write("<td></td>")
	End IF
	DisRs Rs
	%>
  </tr>
</table>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td width="50%"><table width="99%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="4"><img src="images/a_98.jpg" width="4" height="35" /></td>
            <td background="images/a_99.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="40" align="center"><img src="images/djb_100.jpg" width="18" height="18" alt="" /></td>
                <td class="font14hui2">有问有答</td>
                <td width="70"><a href="wenwen.asp" class="more">更多&gt;&gt;</a></td>
              </tr>
            </table></td>
            <td width="4"><img src="images/a_101.jpg" width="4" height="35" /></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="200" valign="top" class="borderf">
		<%
			Sql="Select TOP 14 ID,Title From T_Ask Where Recycle=0 And IsOver=0 Order By ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				Response.Write("<div style='float:left; width:220px; height:20px; font-size:12px; margin-left:10px; margin-top:8px'><a href='wenweninfor.asp?id="&Rs("ID")&"' target='_blank' class='fontnewsall'>"&Left(Rs("Title"),15)&"</a></div>")
			Rs.movenext
			Loop
			DisRs Rs
			%>
		</td>
      </tr>
    </table></td>
    <td><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="4"><img src="images/a_98.jpg" width="4" height="35" /></td>
              <td background="images/a_99.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="40" align="center"><img src="images/djb_103.jpg" width="17" height="17" alt="" /></td>
                  <td class="font14hui2">装修百科</td>
                  <td width="70"><a href="baike.asp" class="more">更多&gt;&gt;</a></td>
                </tr>
              </table></td>
              <td width="4"><img src="images/a_101.jpg" width="4" height="35" /></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="200" valign="top" class="borderf">
			<%
			Sql="Select TOP 14 ID,NewsTitle From T_Baike Where Recycle=0 Order By SortID DESC,ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				Response.Write("<div style='float:left; width:220px; height:20px; font-size:12px; margin-left:10px; margin-top:8px'><a href='baikeinfor.asp?id="&Rs("ID")&"&bigid=333' target='_blank' class='fontnewsall'>"&Left(Rs("NewsTitle"),15)&"</a></div>")
			Rs.movenext
			Loop
			DisRs Rs
			%>		</td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td width="50%"><table width="99%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="4"><img src="images/a_98.jpg" width="4" height="35" /></td>
            <td background="images/a_99.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="40" align="center"><img src="images/djb_110.jpg" width="18" height="17" alt="" /></td>
                <td class="font14hui2">找设计 </td>
                <td width="70"><a href="#" class="more">更多&gt;&gt;</a></td>
              </tr>
            </table></td>
            <td width="4"><img src="images/a_101.jpg" width="4" height="35" /></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="200" valign="top" class="borderf">
			<%
			Sql="Select TOP 14 ID,Company From T_Users Where Recycle=0 And Company<>'' And (VipGroup=2 OR VipGroup=3) Order By ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				Response.Write("<div style='float:left; width:220px; height:20px; font-size:12px; margin-left:10px; margin-top:8px'><a href='ucompany.asp?userid="&Rs("ID")&"' target='_blank' class='fontnewsall'>"&Rs("Company")&"</a></div>")
			Rs.movenext
			Loop
			DisRs Rs
			%>
		</td>
      </tr>
    </table></td>
    <td><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="4"><img src="images/a_98.jpg" width="4" height="35" /></td>
            <td background="images/a_99.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="40" align="center"><img src="images/djb_108.jpg" width="25" height="18" alt="" /></td>
                <td class="font14hui2">装修日记</td>
                <td width="70"><a href="diarylist.asp" class="more">更多&gt;&gt;</a></td>
              </tr>
            </table></td>
            <td width="4"><img src="images/a_101.jpg" width="4" height="35" /></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="200" valign="top" class="borderf" style="padding-left:15px; line-height:28px; font-size:12px">
			<%
			Sql="Select TOP 7 ID,NewsTitle From T_Diary Where Recycle=0 Order By SortID DESC,ID DESC"
			SetRs Rs,Sql,conn,1,1
			Do While Not Rs.Eof	
				Response.Write("<a href='diary.asp?ID="&Rs("ID")&"' target='_blank' class='fontnewsall'>"&Rs("NewsTitle")&"</a><br />")
			Rs.movenext
			Loop
			DisRs Rs
			%>
		</td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="990" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td width="1004"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="4"><img src="images/a_98.jpg" width="4" height="35" /></td>
        <td background="images/a_99.jpg"><table width="200" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="40" align="center"><img src="images/djb_113.jpg" width="18" height="17" alt="" /></td>
              <td><span class="font14hui2">友情链接</span></td>
            </tr>
          </table></td>
        <td width="4"><img src="images/a_101.jpg" width="4" height="35" /></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="50" class="borderf" style="font-size:12px; padding:5px">
	<%
	Sql="Select Top 30 PicPath,Url From T_FriendLink Where Recycle=0 And LinkType=2 and UserID=0 Order By SortID DESC,ID DESC"
	SetRs Rs,Sql,conn,1,1
	Do While Not Rs.eof
		Response.Write("<a href='"&Rs("Url")&"' target='_blank'><img src='UpLoadFiles/FriendLink/"&Rs("PicPath")&"' width='90' height='36' hspace='5' vspace='3'></a>")
	Rs.movenext
	Loop
	DisRs Rs
	Response.Write("<br>")
	Sql="Select Top 50 LinkName,Url From T_FriendLink Where Recycle=0 And LinkType=1 and UserID=0 Order By SortID DESC,ID DESC"
	SetRs Rs,Sql,conn,1,1
	Do While Not Rs.eof
		Response.Write("<a href='"&Rs("Url")&"' target='_blank' class=fontnewsall>"&Rs("LinkName")&"</a>&nbsp;&nbsp;&nbsp;&nbsp;")
	Rs.movenext
	Loop
	DisRs Rs
	%>
	</td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
<script language="javascript" type="text/javascript">
<!--//--><![CDATA[//><!--
//图片滚动列表 mengjia 070816
var Speed = 1; //速度(毫秒)
var Space = 5; //每次移动(px)
var PageWidth = 720; //翻页宽度
var fill = 0; //整体移位
var MoveLock = false;
var MoveTimeObj;
var Comp = 0;
var AutoPlayObj = null;
GetObj("List2").innerHTML = GetObj("List1").innerHTML;
GetObj('ISL_Cont').scrollLeft = fill;
GetObj("ISL_Cont").onmouseover = function(){clearInterval(AutoPlayObj);}
GetObj("ISL_Cont").onmouseout = function(){AutoPlay();}
AutoPlay();
function GetObj(objName){if(document.getElementById){return eval('document.getElementById("'+objName+'")')}else{return eval('document.all.'+objName)}}
function AutoPlay(){ //自动滚动
 clearInterval(AutoPlayObj);
 AutoPlayObj = setInterval('ISL_GoDown();ISL_StopDown();',5000); //间隔时间
}
function ISL_GoUp(){ //上翻开始
 if(MoveLock) return;
 clearInterval(AutoPlayObj);
 MoveLock = true;
 MoveTimeObj = setInterval('ISL_ScrUp();',Speed);
}
function ISL_StopUp(){ //上翻停止
 clearInterval(MoveTimeObj);
 if(GetObj('ISL_Cont').scrollLeft % PageWidth - fill != 0){
  Comp = fill - (GetObj('ISL_Cont').scrollLeft % PageWidth);
  CompScr();
 }else{
  MoveLock = false;
 }
 AutoPlay();
}
function ISL_ScrUp(){ //上翻动作
 if(GetObj('ISL_Cont').scrollLeft <= 0){GetObj('ISL_Cont').scrollLeft = GetObj('ISL_Cont').scrollLeft + GetObj('List1').offsetWidth}
 GetObj('ISL_Cont').scrollLeft -= Space ;
}
function ISL_GoDown(){ //下翻
 clearInterval(MoveTimeObj);
 if(MoveLock) return;
 clearInterval(AutoPlayObj);
 MoveLock = true;
 ISL_ScrDown();
 MoveTimeObj = setInterval('ISL_ScrDown()',Speed);
}
function ISL_StopDown(){ //下翻停止
 clearInterval(MoveTimeObj);
 if(GetObj('ISL_Cont').scrollLeft % PageWidth - fill != 0 ){
  Comp = PageWidth - GetObj('ISL_Cont').scrollLeft % PageWidth + fill;
  CompScr();
 }else{
  MoveLock = false;
 }
 AutoPlay();
}
function ISL_ScrDown(){ //下翻动作
 if(GetObj('ISL_Cont').scrollLeft >= GetObj('List1').scrollWidth){GetObj('ISL_Cont').scrollLeft = GetObj('ISL_Cont').scrollLeft - GetObj('List1').scrollWidth;}
 GetObj('ISL_Cont').scrollLeft += Space ;
}
function CompScr(){
 var num;
 if(Comp == 0){MoveLock = false;return;}
 if(Comp < 0){ //上翻
  if(Comp < -Space){
   Comp += Space;
   num = Space;
  }else{
   num = -Comp;
   Comp = 0;
  }
  GetObj('ISL_Cont').scrollLeft -= num;
  setTimeout('CompScr()',Speed);
 }else{ //下翻
  if(Comp > Space){
   Comp -= Space;
   num = Space;
  }else{
   num = Comp;
   Comp = 0;
  }
  GetObj('ISL_Cont').scrollLeft += num;
  setTimeout('CompScr()',Speed);
 }
}
//--><!]]>
</script>

<map name="Map" id="Map"><area shape="rect" coords="240,4,284,24" href="zblist.asp" />
</map></body>
</html>
