newsproduct.asp

ASP网站源程序

<!--最新图文代码开始-->
<%
Const New_img=4      
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from Product where Passed=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<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=100% border=0 align=center cellPadding=0 cellSpacing=0>
				<TR>
					<TD></TD>
				  </TR>
				<TR>
				  <TD style="padding-left:5px; padding-right:5px; padding-top:15px; " align="center">
					  <a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'>
		<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
</a>
					  <table border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td><img src="Style/<%=Root%>/chanpin_left.gif" width="8" height="125"></td>
                          <td><table border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td><img src="Style/<%=Root%>/chanpin_img01.gif" width="104" height="8"></td>
                            </tr>
                            <tr>
                              <td><a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'><img border="0" height="104" src="<%if rs_Product("DefaultPicUrl")="" then%>Style/<%=Root%>/nopic.gif<%else%><%=rs_Product("DefaultPicUrl")%><%end if%>" width="104" alt="<%=rs_Product("title")%>"></a></td>
                            </tr>
                            <tr>
                              <td><img src="Style/<%=Root%>/chanpin_img02.gif" width="104" height="13"></td>
                            </tr>
                          </table></td>
                          <td><img src="Style/<%=Root%>/chanpin_right.gif" width="14" height="125"></td>
                        </tr>
                      </table>
					  <a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'>		
<%else
			if fileext="swf" then%>
</a><a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'>

</a>
<%end if
		end if%>
						
	  			</TD>
	  			</TR>
	  		<TR>
	  			<TD align=center height=30><a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>' class="top_m_txt01"><%=cutstr(rs_Product("title"),10)%> </a></TD>
 				  </TR>
	 			</TABLE>
			</td>
	  <%
	  rs_Product.MoveNext
	wend
	%>
		</tr>
		</table>
	</td>
	</tr>
</table>
<%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
%>
<!--最新图文代码结束-->