newsproducts.asp

简洁清爽的网站管理管理系统,基本功能都具备了

<!--最新图文代码开始-->
<%
Const New_img=8
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from Products where Passed=True and Len(DefaultPicUrl)>1 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 valign='top'>
		<table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
		<tr valign='top'>
		<%
	    a=5
	    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="0" cellspacing="1" bgcolor="#E9E9E9">
                          <tr>
                            <td bgcolor="#FFFFFF"> <a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'> </a>
                                <table width="100%"  border="0" cellpadding="2" cellspacing="1" bgcolor="#E9E9E9">
                                  <tr>
                                    <td bgcolor="#FFFFFF"><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><a href='ProductShow.asp?ArticleID=<%=rs_Product("ArticleID")%>' target=_blank title='<%=rs_Product("title")%>'> <img src="UploadFiles/<%=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_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.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 width="1" valign="bottom">&nbsp;</td>
                    </tr>
                    <tr>
                      <td colspan="2"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                          <tr>
                            <td>
                              <div align="center"><a href='ProductShow.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
		       next
		        rs_Product.close%>
		</table>
	</td>
  </tr>
</table>
<%'end if
else
	Response.Write "暂 无 最 新 图 文"
end if
rs_Product.close
set rs_Product=nothing
%>
<!--最新图文代码结束-->