l_pro.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 43 行

<%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 4 * from Product where Passed=True And Elite=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
	<table width="100%" border="0" cellspacing="1" cellpadding="0">
<%row_count=1 %>
	 <tr align="center">
<% Do While Not rs_Product.EOF%>
	  <td> 
	   <table width="100%" height="110" border="0" cellpadding="0" cellspacing="2">
	    <tr>
	     <td width="38%" rowspan="3"><div align="center"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><img border=0 src=<%=rs_Product("DefaultPicUrl")%> width=96 height=96></a></div></td>
	     <td width="24%">作品名称:</td>
	     <td width="38%"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><%=cutstr(rs_Product("Title"),7)%></a></td>
	    </tr>
	    <tr>
	     <td>作品演示:</td>
	     <td><%if rs_Product("SIZE")="暂无演示" then%>暂无演示<%else%><a href=<%=rs_Product("SIZE")%> target=_blank>我要看看</a><%end if%></td>
	     </tr>
	    <tr>
	     <td>点击人次:</td>
	     <td><%=rs_Product("hits")%>次 &nbsp;&nbsp;<a href=ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>>详细说明</a></td>
	    </tr>
	   </table>
	  </td>

<%if row_count mod 2 <>0 then%>
<%end if%>
<% if row_count mod 2 =0 then%>
	 </tr>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
rs_Product.close
%>
	 <tr>
	  <td> </td>
	 </tr>
	</table>