www.gusucode.com > 随缘网络产品管理系统 2.0码程序 > NewsProduct.asp
<!--最新图文代码开始--> <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>= 105/80){ if(image.width>105){ ImgD.width=105; ImgD.height=(image.height*105)/image.width; }else{ ImgD.width=image.width; ImgD.height=image.height; } ImgD.alt="点击查看详细信息..."; } else{ if(image.height>80){ ImgD.height=80; ImgD.width=(image.width*80)/image.height; }else{ ImgD.width=image.width; ImgD.height=image.height; } ImgD.alt="点击查看详细信息..."; } } } //--> </script> <% Const New_img=6 set rs_Product=server.createobject("adodb.recordset") sqltext="select top 6 title,pic1,id from news order by id desc" rs_Product.open sqltext,conn,1,1 if not rs_Product.EOF then%> <div align="center"> <div align='center' id='demo' style='overflow:hidden;height:125px;width:570;'><!--滚动区的高度和宽度--> <table align='center' cellpadding='0' cellspace='0' border='0' id="table2"> <tr> <td id='demo1' valign='top'> <table width='100%' cellpadding='0' cellspacing='0' border='0' align='center' id="table3"> <tr valign='top'> <% while not rs_Product.EOF 'fileExt=lcase(getFileExtName(rs_Product("pic1"))) %> <td align='center'> <TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0 id="table4"> <TR> <TD width=8 rowspan=3 > </TD> <TD vAlign=top width=8> <img src='Images/bg_0ltop.gif' width=10 height=10></TD> <TD background=images/bg_01.gif></TD> <TD vAlign=top width=7> <img src='Images/bg_0rtop.gif' width=10 height=10></TD> <TD width=7 rowspan=3 vAlign=top> </TD> </TR> <TR> <TD background='Images/bg_03.gif'> </TD> <TD width="105" height="85" align="center" bgcolor="#E9E9E9"> <a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'> <img src="<%if rs_Product("pic1")="" then%>nopic.gif<%else%><%=rs_Product("pic1")%><%end if%>" alt="<%=rs_Product("title")%>" width="105" height="80" border="0" onload="javascript:DrawImage(this);"></a> </TD> <TD background='Images/bg_04.gif'> </TD> </TR> <TR> <TD> <img src='Images/bg_0lbottom.gif' width=10 height=10></TD> <TD><img src='Images/bg_02.gif'></TD> <TD> <img src='Images/bg_0rbottom.gif' width=10 height=10></TD> </TR> <TR> <TD> </TD> <TD colspan=3 align=center height=20 valign='top' background='Images/bg_05.gif'> <a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'><%=left(rs_Product("title"),8)%></a> </TD> <TD> </TD> </TR> </TABLE> </td> <% rs_Product.MoveNext wend %> </tr> </table> </td> <td id=demo2></td> </tr> </table> </div> </div> <%if New_img >5 then%> <script> var Picspeed=30 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 %>