注册 登录
编程论坛 → ASP技术论坛

如何把首页的幻灯片版块换成一个文字版块

pzye 发布于 2011-09-25 09:19， 479 次点击
/wwwroot/index.asp的代码如下:

程序代码：
<!--#include file="kfsoftinc/Kf_8_soft_yycconn.inc.asp"-->
<!--#include file="kfsoftinc/Kf_8_soft_Functionfile.inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<link rel="stylesheet" href="sysxfy.css" type="text/css">
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon"/>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="Keywords" content="<%=comkeyword%>">
<meta name="DEscription" content="<%=comjieshao%>">
<title><%=comtitle%></title>
<SCRIPT Language="javascript" Src="FlashAdSystem.js"></SCRIPT>
<script language="JavaScript" type="text/javascript">
var ObjPhotoFilter;
    function Document_OnLoad(){
        ObjPhotoFilter = new PhotoFilter();
        ObjPhotoFilter.Width = 720;
        ObjPhotoFilter.Height    = 286;
var AdFilter    = Array()
<%
sql="select top 8 id,tflag,imagess from hdtablesys order by addtime desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1
Num=0
do while Not rs.eof
%>
AdFilter[<%=Num%>]= new Array('<%=rs(2)%>','<%=rs(1)%>','12000','index.asp');
<%
   Num=Num+1
   rs.movenext
   Loop
   set rs=nothing
%>

        ObjPhotoFilter.arrAdFilter = AdFilter.sort(function(){return Math.random()>0.5?-1:1;});
        ObjPhotoFilter.ObjAdContainer(document.all.tdFlashAdContainer);
        //ObjPhotoFilter.ObjPhoto(document.all.imgPhotoFilter);
        ObjPhotoFilter.ObjText(document.all.divPhotoComment);
        ObjPhotoFilter.ObjName = 'ObjPhotoFilter';
        ObjPhotoFilter.Init();
        ObjPhotoFilter.NextPhoto();
        window.onresize = function(){
            ObjPhotoFilter.SetNagivatePos();
        }
    }
    //document.onreadystatechange = Document_OnLoad;
    function ClickPhotoTd(){
        var ObjSrc = window.event.srcElement;
        //alert(ObjSrc);
        ObjPhotoFilter.GoToTarget(ObjSrc.innerText, ObjSrc)
    }</script>
</head>

<body onLoad="javascript:Document_OnLoad();">
<script language="JavaScript">
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
</script>
<!--#include file="top.asp"-->

 <div class="BodyBox">
           <div   class="l2">
                 <div  class="r">
                     <div  class="r4">
                     <table width="720" height="286" border="0" cellpadding="0" cellspacing="0" style="margin-top:0px;">
                          <tr><td  width="720" height="286"  align="center" id="tdFlashAdContainer" name="tdFlashAdContainer"></td></tr>
                          <tr><td height="0" align="center" style="display:none;"><span id="divPhotoComment" name="divPhotoComment"></span></td></tr>
                     </table>
                     </div>
                 </div>
   </div>
           <div class="fl">
                   <div  class="ft"><div class="gsjjl"><B>公司简介</B></div>
                    <div class="gsjjr"><a href="about.asp?InfoId=39" target="_blank"><img src="image/more.jpg" alt="更多" border="0" /></a></div>
                   </div>
                   <div  class="mid">
                     <div class="gsjstxt" style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all;WORD-BREAK: break-all; WORD-WRAP: break-word;overflow:hidden;">
         <%
                         sql="select top 1 ArticleID,Content from AritcleTable where ClassId=39 order by UpdateTime desc"
                         set rs=Server.CreateObject("ADODB.Recordset")
                         rs.Open sql,conn,1,1
                         do while Not rs.eof
                        %>
                        <%=left(rs("Content"),350)%>...
                         <%
                          rs.movenext
                          Loop
                          set rs=nothing
                        %>
                        </div>
                         <div class="detail"><a href="about.asp?InfoId=39"  target="_blank" class="xxLink">>>查看详情</a></div>
                   </div>
   </div>
           <div  class="line"></div>     
</div>   


<div class="BodyBox">
     <div  class="inlefta">
                  <div  class="r6"><b><span class="fwxm">联系方式</span></b></div>
                  <div class="Inlmid">
                       <div class="inlbox"><%=comleftinfo%></div>
                       <div class="inlist">
                       <ul>
<li><span class="litxt"><a href="News.asp?InfoId=36" target="_blank">营业执照代办</a></span></li>
<li><span class="litxt"><a href="#" target="_blank">验资审计年检 </a></span></li>
<li><span class="litxt"><a href="about.asp?InfoId=17" target="_blank">公司托管</a></span></li>
<li><span class="litxt"><a href="about.asp?InfoId=16" target="_blank">商标注册 </a></span></li>
<li><span class="litxt"><a href="News.asp?InfoId=34" target="_blank">公司注册 </a></span></li>
                        </ul>
                        </div>
       </div>
                    <div class="Inlbot"></div>

  </div>
  <div class="inrightall">
  <div class="inright">
       <div class="inrightL">
            <div class="inRtop">
                 <span class="inRtopm1">营业执照代办<span class="zcfg2"><a href="News.asp?InfoId=17" target="_blank"></a></span></span>
                 <span class="inRtopm2">
                       <b><span class="zcfg3">政策法规</span></b>
                       <span class="zcfg4"><a href="News.asp?InfoId=33" target="_blank"><img src="image/more2.jpg" border="0" /></a></span>
                 <!--<a href="?"><img src="image/more2.jpg" border="0" /></a> --></span>            </div>
            <div class="inRmid">
            <div class="inRtopm1Left">
                 <div class="inRmidl">
                      <ul>
                       <%
                         sql="select top 5 ArticleID,Titles,Author,Hits,UpdateTime,ClassId from AritcleTable where ClassId=36 order by UpdateTime desc"
                         set rs=Server.CreateObject("ADODB.Recordset")
                         rs.Open sql,conn,1,1
                         do while Not rs.eof
                        %>
                    
                          <li><a href="ShowNews.asp?showId=<%=rs("ArticleID")%>&InfoId=<%=rs("ClassId")%>" target="_blank" title="<%=rs("Titles")%>"><%=rs("Titles")%></a></li>
                          <li class="time"><%=FormatTime(rs("UpdateTime"))%></li>
                       <%
                          rs.movenext
                          Loop
                          set rs=nothing
                        %>
                      </ul>
                 </div>
                 <div class="inRmidlMid">
                  <span class="inRtopm1s">工商注册<span class="zcfg2"><a href="News.asp?InfoId=34" target="_blank"><img src="image/more1.jpg" border="0" /></a></span>
                   </span></div>
                        <div class="inRmidl">
                      <ul>
                       <%
                         sql="select top 6 ArticleID,Titles,Author,Hits,UpdateTime,ClassId from AritcleTable where ClassId=34 order by UpdateTime desc"
                         set rs=Server.CreateObject("ADODB.Recordset")
                         rs.Open sql,conn,1,1
                         do while Not rs.eof
                        %>
                    
                          <li><a href="ShowNews.asp?showId=<%=rs("ArticleID")%>&InfoId=<%=rs("ClassId")%>" target="_blank" title="<%=rs("Titles")%>"><%=rs("Titles")%></a></li>
                          <li class="time"><%=FormatTime(rs("UpdateTime"))%></li>
                       <%
                          rs.movenext
                          Loop
                          set rs=nothing
                        %>
                      </ul>
                 </div>
                       
              </div>   
                 <div class="inRmidr" style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all;WORD-BREAK: break-all; WORD-WRAP: break-word;overflow:hidden;">

                      <%
                         sql="select  ArticleID,Content,UpdateTime from AritcleTable where ClassId=33"
                         set rs=Server.CreateObject("ADODB.Recordset")
                         rs.Open sql,conn,1,1
                         do while Not rs.eof
                        %>
                          <%=rs("Content")%>
                       <%
                          rs.movenext
                          Loop
                          set rs=nothing
                        %>
                          
                 </div>
                 
            </div>
            <div class="inRboot"></div>           
       </div>
    </div>
    <div class="inrightLb">
        <div class="inrigfwxm">
             <b><span class="zcfg5">服务项目</span></b>
             <span class="zcfg6"><a href="News.asp?InfoId=35" target="_blank"><img src="image/m65.jpg" border="0" /></a></span>
        </div>
        <!--<span class="inRtopm2"><a href="?"><img src="image/m65.jpg" border="0" /></a></span> -->
    </div>
    <div class="inrightLc">
         <div class="inrLcbox">

<div class="inrLcu"><div class="inrLboder"><a href="/about.asp?InfoId=16" target="_blank"><img src="syimg/04.jpg" width="136" height="96" border="0" /></a></div>
<div class="inrLtxt"><a href="" target="_blank">工商注册</a></div>
</div>

<div class="inrLcu"><div class="inrLboder"><a href="News.asp?InfoId=34" target="_blank"><img src="syimg/05.jpg" width="136" height="96" border="0" /></a></div>
<div class="inrLtxt"><a href="" target="_blank">公司注册</a></div>
</div>


<div class="inrLcu"><div class="inrLboder"><a href="/News.asp?InfoId=36" target="_blank"><img src="syimg/01.jpg" width="136" height="96" border="0" /></a></div>
<div class="inrLtxt"><a href="" target="_blank">营业执照代办</a></div>
</div>
<div class="inrLcu"><div class="inrLboder"><a href="about.asp?InfoId=17" target="_blank"><img src="syimg/03.jpg" width="136" height="96" border="0" /></a></div>
<div class="inrLtxt"><a href="" target="_blank">资质代办</a></div>
</div>


<div class="inrLcu"><div class="inrLboder"><a href="/News.asp?InfoId=36" target="_blank"><img src="syimg/02.jpg" width="136" height="96" border="0" /></a></div><div class="inrLtxt"><a href="" target="_blank">验资审计年检</a></div>
</div>
         </div>
    </div>
    </div>
</div>

<!--#include file="boot.asp"-->

<!-- Baidu tongji analytics -->
<script type="text/javascript">
var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");
document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3F15e47d31f0c336f095299f0396104e6d' type='text/javascript'%3E%3C/script%3E"));
</script>

</body>
</html>
0 回复
1
©2025, BC-CN.NET
电脑版