浏览主站 | 站长合租 | 新闻资讯 | 站长学院 | 站长盈利 | HTML教程 | 网址导航 | 站长周刊 | 会员投稿 | 滚动新闻 | RSS
发新话题
打印

[代码问题] 如何让最新产品显示多行?

如何让最新产品显示多行?

下面这段代码是一个最新产品的调用页面,显示的是一行十列,现在我想改成三行十列,请问该怎么实现?
引用:
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--最新图文代码开始-->
<script language="JavaScript">
<!--
var flag=false;
function DrawImage(ImgD){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
  flag=true;
  if(image.width/image.height>= 125/300){
   if(image.width>105){
    ImgD.width=105;
    ImgD.height=(image.height*130)/image.width;
   }else{
    ImgD.width=image.width;
    ImgD.height=image.height;
   }
   ImgD.alt="点击查看详细信息...";
  }
  else{
   if(image.height>150){
    ImgD.height=150;
    ImgD.width=(image.width*105)/image.height;
   }else{
    ImgD.width=image.width;
    ImgD.height=image.height;
   }
   ImgD.alt="点击查看详细信息...";
  }
}
}
//-->
</script>
<%
Const New_img=10      
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from Product where Passed=True and

Newproduct=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo'

style='overflow:hidden;height:180px;width:400px;'

style="position:relative;left:5">
  <!--滚动区的高度和宽度-->
  <table align='center' cellpadding='0' cellspace='0' border='0'>
    <tr>
      <td id='demo1' valign='top'><table width='100%' cellpadding='0'

cellspacing='0' border='0' align='center'>
        <tr valign='top'>


  <%
        while not rs_Product.EOF
        fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))               
        %>
          <td align='center'><table width=90% border=0 align=center

cellpadding=0 cellspacing=0>
           
   <tr>
            
              <td width="500" height="100" align="center" bgcolor="#ffffff">
                <%if fileext="jpg" or fileext="bmp" or fileext="png" or

fileext="gif" then%>  <a href='ProductShow.asp?ID=<%=rs_Product("ID")%>'

target=_blank title='<%=rs_Product("title")%>'>      

            
<img src="<%if rs_Product("DefaultPicUrl")="" then%>Img/nopic.gif<%else%><%

=rs_Product("DefaultPicUrl")%><%end if%>" alt="<%=rs_Product("title")%>"

width="500" height="100" border="0" onload="javascript:DrawImage(this);" />


                       <%else
                        if fileext="swf" then%>
                <object  classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'



codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab

#version=5,0,0,0' width='105' height='84'>
                  <param name=movie value='<%=rs_Product("DefaultPicUrl")%>'

/>
                  <param name=quality value=high />
                  <param name='Play' value='-1' />
                  <param name='Loop' value='0' />
                  <param name='Menu' value='-1' />
                  <param name='wmode' value='transparent' />
                  <embed src='<%=rs_Product("DefaultPicUrl")%>' width='180'

height='84'

pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?

P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
                </object>
<%end if
end if%>
              </a> </td>
                </tr>
               <tr>
       <td colspan=3 align=center height=50 valign='top' bgcolor="#F2F2F2">


<a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%

=rs_Product("title")%>'><%=cutstr(rs_Product("title"),8)%></a> </td>


          <td> </td>
            </tr>
          </table></td>
          <%
          rs_Product.MoveNext
        wend
        %>


     </tr>
      </table></td>
      <td id=demo2 valign=top></td>
    </tr>
  </table>


</div>
  <%if New_img >5 then%>
<script>
var Picspeed=15
demo2.innerHTML=demo1.innerHTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,Picspeed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,Picspeed)}
</script>
        <%end if
else
        Response.Write "暂 无 最 新 图 文"
end if
rs_Product.close
set rs_Product=nothing
%>
<!--最新图文代码结束-->

TOP

很菜的说光改代码是实现不了的。
不是太懂,有能力的朋友来帮帮忙 我来加分。
乱发AD 者 刷无意义帖捣乱的 一律永久禁止访问

TOP

多谢版主的支持~

TOP

你好楼主 你的问题我看了一下 请问你现在的图片是不是显示一排5个
那么咱们先暂时分析一下上面的代码是什么意思 以后对你会有很大的帮助
<META http-equiv=Content-Type content="text/html; charset=gb2312">
这里基本不用改 说不说也没有什么意思下面是代码用到的特效和连接语句
<!--最新图文代码开始-->
<script language="JavaScript">
<!--
var flag=false;
function DrawImage(ImgD){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
  flag=true;
  if(image.width/image.height>= 125/300){
   if(image.width>105){
    ImgD.width=105;
    ImgD.height=(image.height*130)/image.width;
   }else{
    ImgD.width=image.width;
    ImgD.height=image.height;
   }
   ImgD.alt="点击查看详细信息...";
  }
  else{
   if(image.height>150){
    ImgD.height=150;
    ImgD.width=(image.width*105)/image.height;
   }else{
    ImgD.width=image.width;
    ImgD.height=image.height;
   }
   ImgD.alt="点击查看详细信息...";
  }
}
}
//-->
</script>

而这以上的是滚动代码,包括设置图片的长 宽 高啦 还有滚动的速度啦等特效脚本! 还有点击图片的效果
<%
Const New_img=10      
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from Product where Passed=True and
这里是连接数据库的 但是Const New_img=10  这个我不太清楚 因为不知道数据库里代表是什么意思?ID 啦 显示个数啦 什么的
Newproduct=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo'

style='overflow:hidden;height:180px;width:400px;'
下面是滚动代码正式执行
style="position:relative;left:5">
  <!--滚动区的高度和宽度-->
  <table align='center' cellpadding='0' cellspace='0' border='0'>
    <tr>
      <td id='demo1' valign='top'><table width='100%' cellpadding='0'

cellspacing='0' border='0' align='center'>
        <tr valign='top'>


  <%
        while not rs_Product.EOF
        fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))               
        %>
          <td align='center'><table width=90% border=0 align=center

cellpadding=0 cellspacing=0>
           
   <tr>
            下面呢是说 掉取数据库啦 这个产品或者图片连接啦 简介什么的 但是请查看'ProductShow.asp这个文件他是连接数据库主要文件 也是这个页面的主要文件!
              <td width="500" height="100" align="center" bgcolor="#ffffff">
                <%if fileext="jpg" or fileext="bmp" or fileext="png" or

fileext="gif" then%>  <a href='ProductShow.asp?ID=<%=rs_Product("ID")%>'

target=_blank title='<%=rs_Product("title")%>'>      

            
<img src="<%if rs_Product("DefaultPicUrl")="" then%>Img/nopic.gif<%else%><%

=rs_Product("DefaultPicUrl")%><%end if%>" alt="<%=rs_Product("title")%>"

width="500" height="100" border="0" onload="javascript:DrawImage(this);" />


                       <%else
                        if fileext="swf" then%>
                <object  classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' 这还加密了 呵呵 不知道什么意思好象是版权哦 好象是广告之类的代码!



codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab

#version=5,0,0,0' width='105' height='84'>
                  <param name=movie value='<%=rs_Product("DefaultPicUrl")%>'

/>
                  <param name=quality value=high />
                  <param name='Play' value='-1' />
                  <param name='Loop' value='0' />
                  <param name='Menu' value='-1' />
                  <param name='wmode' value='transparent' />
                  <embed src='<%=rs_Product("DefaultPicUrl")%>' width='180'
上面是显示播放时间啦 长宽啦  全频单屏什么的!
height='84'

pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?

P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
                </object>
<%end if
end if%>
              </a> </td>
                </tr>
               <tr>
       <td colspan=3 align=center height=50 valign='top' bgcolor="#F2F2F2">


<a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%

=rs_Product("title")%>'><%=cutstr(rs_Product("title"),8)%></a> </td>


          <td> </td>
            </tr>
          </table></td>
          <%
          rs_Product.MoveNext
        wend
        %>


     </tr>
      </table></td>
      <td id=demo2 valign=top></td>
    </tr>
  </table>


</div>
  <%if New_img >5 then%>  这个看一下 刚才出现了10 那么这里已经是显示多少个
<script>
var Picspeed=15
demo2.innerHTML=demo1.innerHTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,Picspeed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,Picspeed)}
</script>
        <%end if
else
        Response.Write "暂 无 最 新 图 文"
end if
rs_Product.close
set rs_Product=nothing
%>
<!--最新图文代码结束-->
以上 简单分析了一下 没有看到你说的 证明啦 这个代码是说显示一排代码为5个 但是具体加几行 代码使用的方式不同 还暂时不能加 只有看完全套才可以知道怎么加 'ProductShow.asp 请一定要查看这个页面的代码 应该在这里的!
本帖最近评分记录
  • 败家子 经验 +22 特别奖励 2008-5-25 12:19

TOP

谢谢,我再研究研究,呵呵

TOP

发新话题