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

    <!--#include file="conn.asp"-->
<%hw_id=request("hw_id")
chkid(hw_id)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select hw_name from venshop_hw where hw_id="&hw_id&""
rs.open sql,conn,1,1
if rs.eof then
response.write "<script language=javascript>alert('Url处理出错！history.go(-1);</script>"
response.End
else
hw_name=rs("hw_name")
end if
rs.close
set rs=nothing%><title><%if hw_name<>"" then%><%=hw_name%><%end if%>相关评论</title>
<meta name="Keywords" content="<%if hw_name<>"" then%><%=hw_name%>,<%end if%><%=sitename%>">
<meta name="Description" content="<%if hw_name<>"" then%><%=hw_name%>,<%end if%><%=sitename%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache, must-revalidate">
<link rel="stylesheet" type="text/css" href="Skin/<%=venshop_skin%>/css.css"></head>
<p style="margin: 3px"><b></b></p>

<TABLE width="99%" border=0 cellPadding=3 cellSpacing=0>
<tr><td class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置：  
	<a href="index.asp">首页</a> >>&nbsp;<a href="views.asp?hw_id=<%=hw_id%>"><%=hw_name%></a>相关评论：</td>
</tr></table>
<div class="d10"></div>
<%
page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
if commentshow=1 then
sql="select * from venshop_comment where dateid="&hw_id&" order by id desc"
else
sql="select * from venshop_comment where dateid="&hw_id&" and c_c=1 order by id desc"
end if
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=lookpage
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1
%>
<table border="0" cellpadding="3" cellspacing="0" width="99%" class="cartshow1">
<tr><td width="50" align="right"><IMG src="Skin/<%=venshop_skin%>/dot3.gif" border=0 align="absmiddle"></td>
<td width="200"><b><%=rs("title")%></b></td>
<td class="anse">(评论者：<%=rs("Mail")%>&nbsp;&nbsp;<%=rs("date")%>)</td></tr>
<tr><td></td><td colspan="2"><font color="#4D8B9E">内容：<%=replace(rs("Comment"),vbcrlf,"&nbsp;")%></font></td></tr>
<%if rs("c_c")=1 then%><tr><td></td><td colspan="2"><font color="#800000">回复： <%=rs("adminfu")%></font></td></tr><%end if%>
<tr><td colspan="3" height="2" background="Img/dot_menu.gif"></td></tr></table>
<%rs.movenext  
loop
else

end if
rs.close
set rs=nothing%>
<div class="d10"></div>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<form action=<%=filename%>?hw_id=<%=hw_id%> method=post>
<tr><td height="2" class="sortb"></td></tr>
<tr><td height="23" class="sortb"> 
<p style="line-height: 150%; margin: 5px">第<%=page%>页/共<%=totalpage%>页&nbsp;&nbsp;
<%if page-1>0 then%><a href="<%=filename%>?hw_id=<%=hw_id%>&page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%> <a href="<%=filename%>?hw_id=<%=hw_id%>&page=<%=page+1%>">下一页</a><%else%>下一页<%end if%>&nbsp;&nbsp;
页面跳转：<input type="text" name="page" value="<%=page+1%>" size="1" style="text-align: center" class=input><input type="submit" value="GO" class=input><br>
选择页数：<%for i=1 to totalpage
if i=page then%>
<font color="#FF0000"><b><%=i%></b></font>
<%else%>
<a href="<%=filename%>?page=<%=i%>&hw_id=<%=hw_id%>"><%=i%></a>
<%end if
next%>
</td>
</tr></form></table>