mly.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="../css.css">
<div align="center">
    <center>
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="95%" bgcolor="#F5EFE7">
      <tr>
        <td width="30" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35">
        <p align="center">ID</td>
        <td style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
        <p align="center">内容</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        Email</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        商品</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        回复</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        添加回复</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <p align="center">删除</td>
      </tr>
    </table>
    </center>
  </div>
<%
sql2="SELECT * FROM comment ORDER BY id DESC"
Set rs2= Server.CreateObject("ADODB.Recordset") 
rs2.open sql2,conn,1,1  
dataid=rs2("dataid")
if rs2.eof then         
response.write "<p style=line-height: 150%; margin: 5 10>暂且没有关于该产品的留言（留言必须经管理员确认回复之后方可显示）"         
end if     
do while not rs2.eof 
%><div align="center">
    <center>
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="95%" bgcolor="#F5EFE7">
      <tr>
        <td width="30" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center"><%=rs2("id")%></td>
        <td style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><%=rs2("CommentX")%>　</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center"><a href=mailto:<%=rs2("MailX")%>><%=rs2("MailX")%></a></td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <% 
dim rs7
set rs7=server.CreateObject("adodb.recordset")
rs7.open "select * from hw where hw_id="&dataid&"" ,conn,1,1
%>
<a target="_blank" href="../views.asp?hw_id=<%=rs7("hw_id")%>"><%=rs7("hw_name")%></a>
<%
rs7.close
set rs7=nothing
%></td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center"><%=rs2("fu")%></td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <a href="fuly.asp?id=<%=rs2("id")%>">添加</a></td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <a href="delly.asp?id=<%=rs2("id")%>">删除</a></td>
      </tr>
    </table>
    </center>
  </div>
<%
rs2.movenext 
loop
%>