newsproducts.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>= 85/80){ 
   if(image.width>85){
    ImgD.width=85; 
    ImgD.height=(image.height*85)/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=8
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from chanpin where Passed=True and Newproduct=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<table border='0' align='center' cellpadding='0' cellspacing="0" cellspace='0'>
<tr>
	<td id='demo1' valign='top'>
		<table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
		<tr valign='top'>
		<%
	    a=5
	    js=1
	    for i=0 to rs_Product.recordcount
	    fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))		
	     %>
			<td align='center'><table  border="0" align="center" cellpadding="2" cellspacing="0">
              <tr>
                <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#E9E9E9">
                          <tr>
                            <td bgcolor="#FFFFFF"> <a href='ProductsShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'> </a>
                                <table width="100%"  border="0" cellpadding="0" cellspacing="3" bgcolor="#E9E9E9">
                                  <tr>
                                    <td bgcolor="#FFFFFF"><a href='ProductsShow.asp?ArticleID=<%=rs_Products("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'>
                                      <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                                      </a><a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'> <img src="<%=rs_Product("DefaultPicUrl")%>" border="0" height="98" width="120" alt="<%=rs_Product("title")%>">
									  <%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='120' height='98'>
                                        <param name=movie value='UploadFiles/<%=rs_Products("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='UploadFiles/<%=rs_Product("DefaultPicUrl")%>' width='120' height='98' 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>
                              </table></td>
                          </tr>
                      </table></td>
                      <td valign="bottom"><img src="Images/yyri2.gif" width="20" height="112"></td>
                    </tr>
                    <tr>
                      <td colspan="2"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                          <tr>
                            <td>
                              <div align="center"><a href='ProductsShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'><%=cutstr(rs_Product("title"),8)%></a> </div></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
            </table>
				</td>
			<%b=a mod 4
		      if b=0 then%></tr>
              <tr>
              <%end if%>
              <%rs_Product.movenext
		       if rs_Product.eof then
		       exit for%>
              </tr>
              <%end if%>
              <%a=a+1
   		js=js+1
		if js>8 then exit for
		       next
		        rs_Product.close%>
		</table>
	</td>
	<td width="2" valign=top id=demo2></td>
</tr>
</table>
<%'end if
else
	Response.Write "暂 无 最 新 图 文"
end if
rs_Product.close
set rs_Product=nothing
%>
<!--最新图文代码结束-->