<%
Const New_img=8
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%>
<!--滚动区的高度和宽度-->
<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=8
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='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'> </a>
<table width="100%"
border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E9E9">
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
</a><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
</a><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'><img src="<%=rs_Product("DefaultPicUrl")%>" border="0" height="120" width="120" alt="<%=rs_Product("title")%>" /></a><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
<%else
if fileext="swf" then%>
<object
classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'
codebase='http://download.,0,0,0' width='120' height='120'>
<param name=movie value='UploadFiles/<%=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='UploadFiles/<%=rs_Product("DefaultPicUrl")%>' width='120' height='98' pluginspage='http://www.' type='application/x-shockwave-flash'></embed>
</object>
<%end if
end if%>
</a></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="bottom"><img src="file:///E|/work/222/Img/yyri2.gif" width="7" height="112"></td>
</tr>
<tr>
<td colspan="2"><table width="100%"
border="0" cellspacing="2" cellpadding="0">
<tr>
<td height="30">
<div align="center"><a href='file:///E|/work/222/ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'><%=cutstr(rs_Product("title"),18)%></a> </div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
<%b=a mod 1
if b=0 then%>
<%end if%>
<%rs_Product.movenext
if rs_Product.eof then
exit for%>
<%end if%>
<%a=a+1
next
rs_Product.close%>
</tr>
</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
%>
<!--最新图文代码结束-->