css滑动门 自动切换效果 跪求！！！

Question

第一个JS脚本：
<SCRIPT type=text/javascript>
function init_today_tabs(){
 var today = ycn.Common.getEl('todaytabs');
 if(!today) return;
 var tabs = today.getElementsByTagName('li');
 
 for(var i=0; i<tabs.length ; i++){
 if(tabs[i].className.toLowerCase().indexOf('tab')>=0){
 if(!tab_m.tabs['todaytabs']){
 tab_m.tabs['todaytabs'] = new Array;
 } 
 tab_m.tabs['todaytabs'][tab_m.tabs['todaytabs'].length] = tabs[i];
 ycn.Event.addEvent(tabs[i],'mouseover',over_tab);
 ycn.Event.addEvent(tabs[i],'mouseout',out_tab);
 ycn.Event.addEvent(tabs[i],'click',click_tab);
 }
 }
 tab_m.con_height['todaytabs'] = ycn.Common.getEl('todaytabscon').offsetHeight;
 
}第二个JS脚本：
function init_tab_con(tab_id,tab_con_id,defau_id,is_t,tab_index){var s=getcookie('CN_FP_TAB_V22');if(!is_t){tab_m.con_height[tab_id]=ycn.Common.getEl(tab_con_id).offsetHeight;ycn.Event.addEvent(ycn.Common.getEl(tab_id).getElementsByTagName('li')[0],'click',open_cont);if(s&&s.indexOf(tab_id+"=")>=0){var cv=s.substring(s.indexOf(tab_id+"=")).substring(0,s.substring(s.indexOf(tab_id+"=")).indexOf(',end')).replace(tab_id+"=","").split(',');if(cv[2]=='close'){var opt=ycn.Common.getEl(tab_id).getElementsByTagName("li")[0];}}
return;}

Answer 1

引用页：<DIV class="OrderDiv">
<DIV class="conhd tabs addtab" style="POSITION: relative">
<UL id=todaytabs>
  <LI class="first open"><SPAN class=pipe></SPAN></LI>
  <LI class=tab1><A class=todaytabscon_focus
  target=_blank>公司简介</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab2><A class=todaytabscon_ent
  target=_blank>供求信息</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab3><A class=todaytabscon_sport
  target=_blank>行业咨讯</A><SPAN class=pipe></SPAN> 
  </LI>
  
  <LI class=tab4><A class=todaytabscon_finance 
  target=_blank>企业动态</A><SPAN class=pipe></SPAN> 
</LI>
 <!-- <LI class=tab5><A class=todaytabscon_win
  target=_blank>其他新闻</A><SPAN class=pipe></SPAN> 
  </LI>
  -->
  <LI class=last></LI>
</UL></DIV>
<DIV class=mb id=todaytabscon>
<DIV class=bel>
<DIV class=mbcon>
<DIV class=dpp1><P align=left><FONT face=Verdana>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<%
set rs_news33=server.createobject("adodb.recordset")
sqltext33="select * from main"
rs_news33.open sqltext33,conn,1,1  
%>
<%=replace(replace(rs_news33("about"),vblf,"<br />"),"  ","　")%>
<br />
<%rs_new33.close%>
</FONT>   </DIV>
</DIV></DIV>
</DIV><!--focus -->
<DIV id=todaytabscon_focus style="DISPLAY: none"></DIV>
<SCRIPT>
document.getElementById("todaytabscon_focus").innerHTML = document.getElementById("todaytabscon").innerHTML
</SCRIPT>
<!--//focus --><!--others1 -->
<DIV id=todaytabscon_ent style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon>
                
          
<DIV class=x></DIV>
<%
shumu=20
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top "&shumu&" * from supply where check=1 order by id desc"
rs_news.open sqltext4,conn,1,1  
%><UL class=ul3> <%i=0
  do while not rs_news.eof%>
  
  <LI><a href="showsupply.asp?id=<%=rs_news("id")%>" title="<%=rs_news("title")%>" target="_blank"><%=left(rs_news("title"),10)%></a>...&nbsp;(<%= rs_news("time") %>) </LI>
   
   <%rs_news.movenext
i=i+1
if i=shumu then exit do
loop%>
<%rs_news.close %>   
</UL></DIV><DIV class=mbm><A href="more2.asp">>>更多</A></DIV></DIV></DIV><!--//others1 --><!--others2 -->
<DIV id=todaytabscon_sport style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon><DIV class=x></DIV>
<%
set rs_news2=server.createobject("adodb.recordset")
sqltext2="select top "&shumu&" * from news where BigClassName='行业动态' order by id desc"
rs_news2.open sqltext2,conn,1,1  
%>
<UL class=ul3>
  <%i=0
do while not rs_news2.eof%>
  <LI><a href="shownews.asp?id=<%=rs_news2("id")%>" title="<%=rs_news2("title")%>" target="_blank"><%=left(rs_news2("title"),17)%></a> </LI>
   <%rs_news2.movenext
i=i+1
if i=shumu then exit do
loop%>
<%rs_news2.close %>
   </UL></DIV><DIV class=mbm><A href="more.asp?owen1=行业动态">>>更多</A></DIV></DIV></DIV><!--//others2 --><!--others3 -->
<DIV id=todaytabscon_finance style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon>
<DIV class=x></DIV>
<%
set rs_news3=server.createobject("adodb.recordset")
sqltext3="select top "&shumu&" * from news where BigClassName='公司动态' order by id desc"
rs_news3.open sqltext3,conn,1,1  
%>
<UL class=ul3>
  <%i=0
do while not rs_news3.eof%>
  <LI><a href="shownews.asp?id=<%=rs_news3("id")%>" title="<%=rs_news3("title")%>" target="_blank"><%=left(rs_news3("title"),17)%></a> </LI>
   <%rs_news3.movenext
i=i+1
if i=shumu then exit do
loop%>
<%rs_news3.close %>
   </UL></DIV><DIV class=mbm><A href="more.asp?owen1=公司动态">>>更多</A></DIV></DIV></DIV><!--//others3 --><!--others4 -->
<DIV id=todaytabscon_win style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon><DIV class=x></DIV>
<UL class=ul3>
   </UL></DIV><DIV class=mbm><A href="NsList_5_1.html" target=_blank 
name=hpspirit/top1/win/more/>>>更多</A></DIV></DIV></DIV><!--//others4 -->
<DIV class=mbbft></DIV>
</DIV>
<SCRIPT>
init_tab_con("todaytabs","todaytabscon","todaytabscon_focus",true);
</SCRIPT><DIV class=bk></DIV>
<SCRIPT>
init_today_tabs();
</SCRIPT>

Answer 2

你去这网站看看吧！
http://www.foresound.com/