56770_pinglun.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="150">
<tr>
<td height="23" align="left" bgcolor="#CC0000">&nbsp; 最新商品评论</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFC7C7">
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 6 * from 56770_Dvote order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof then
        response.write "对不起！没有任何评论！"
else
        do while not rs.eof
%>
<tr> <td height="10"><font color=#cc0000>☉</font>
<a target="_blank" href="showproduct.asp?id=<%=rs("downid")%>">
<% if len(rs("content"))>9 then%>
<%=left(rs("content"), 9)%>...
<%else%>
<%=rs("content")%>
<%end if%>
</a></td>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table>

</table>