ad_mly.asp

商品订单管理：商品分类管理 添加与修改商品 管理订单 投诉订单 反馈信息 商品留言管理 管理网站用户：管理用户 管理后台管理员 新闻公告管理：新闻添加（支持图片新闻） 修改删除 首页公告设置 网站常规

<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="img/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">Content</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">
        Product</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        Re:</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        Revert</td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <p align="center">Delete</td>
      </tr>
    </table>
    </center>
  </div>
<%
sql2="SELECT * FROM comment ORDER BY id DESC"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql2,conn,1,1  
if rs.eof and rs.bof then 
      response.write "<p align=center>No Date!</p>" 
else  
dataid=rs("dataid")  
do while not rs.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"><%=rs("id")%></td>
        <td style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><%=rs("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:<%=rs("MailX")%>><%=rs("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
if rs7.eof and rs7.bof then 
      response.write "<p align=center>Deleted</p>" 
else  
%>
<a target="_blank" href="views.asp?hw_id=<%=rs7("hw_id")%>"><%=rs7("hw_name")%></a>
<%
end if
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"><%=rs("fu")%></td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <a href="ad_fuly.asp?id=<%=rs("id")%>">ADD</a></td>
        <td width="100" style="padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="35" align="center">
        <a href="ad_delly.asp?id=<%=rs("id")%>">Del</a></td>
      </tr>
    </table>
    </center>
  </div>
<%
rs.movenext 
loop
end if
%>