showcomment.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="conn.asp"--><%hw_id=request("hw_id")
If Not(isNumeric(hw_id)) or hw_id="" or hw_id=0 Then
response.write "<script language=javascript>alert('Url处理出错！');history.go(-1);</script>"
response.End
End If
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * 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><%=hw_name%>相关评论：</b></p>
<%set rs=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
rs.open sql,conn,1,1%>
<%do while not rs.eof%><p style="line-height: 150%; margin: 3px">
发言：<a href="mailto:<%=rs("Mail")%>"><%=rs("Mail")%></a>&nbsp;&nbsp;&nbsp;&nbsp; 日期：<%=rs("date")%><br>
内容：<%=replace(rs("Comment"),vbcrlf,"&nbsp;")%><br><font color="#008000">回复： <%=replace(rs("adminfu"),vbcrlf,"&nbsp;")%></font><hr size="1">
<%rs.movenext  
loop  
rs.close
set rs=nothing%>