www.gusucode.com > 凡人网络购物系统 2008源码程序 > comment.asp

    <!--#include file="conn.asp"-->
<%
hw_id=request("id")
chkid(hw_id)
set rs2=server.createobject("adodb.recordset")
if commentshow=1 then
sql="select top 10 * from venshop_comment where dateid="&hw_id&" order by id desc"
else
sql="select top 10 * from venshop_comment where dateid="&hw_id&" and c_c=1 order by id desc"
end if
rs2.open sql,conn,1,1
do while not rs2.eof%>
document.write('<table border="0" cellpadding="3" cellspacing="0" width="99%">');
document.write('<tr><td width="50" align="right"><IMG src="Skin/<%=venshop_skin%>/dot3.gif" border=0 align="absmiddle"></td>');
document.write('<td width="200"><b><%=rs2("title")%></b></td>');
document.write('<td class="anse">(评论者：<%=rs2("Mail")%>&nbsp;&nbsp;<%=rs2("date")%>)</td></tr>');
document.write('<tr><td></td><td colspan="2"><font color="#4D8B9E">内容：<%=replace(rs2("Comment"),vbcrlf,"&nbsp;")%></font></td></tr>');
<%if rs2("c_c")=1 then%>document.write('<tr><td></td><td colspan="2"><font color="#800000">回复： <%=rs2("adminfu")%></font></td></tr>');<%end if%>
document.write('<tr><td colspan="3" height="2" background="Img/dot_menu.gif"></td></tr></table>');
<%rs2.movenext  
loop  
rs2.close
set rs2=nothing%>