<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>逝者资料</title>
<link href="4.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {font-size: 18px; font-weight: bold;}
.style3 {
	font-size: 14px;
	color: #FF0000;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim rs1,sql1,b,currentpage,imgsrc
set rs1=server.createobject("adodb.recordset")
sql1 = "select * from ly order by riqi desc"
rs1.open sql1,conn,1,3
%>
<table width="778"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CAD6A1">
  <tr>
    <td colspan="4" height="46"><div align="center"><span class="style2">悼念活动管理</span> </div></td>
  </tr>
  <tr>
    <td>
	  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="20"><div align="center" class="style2">
            <div align="right" class="style3"><a href="index.asp">返回首页</a></div>
          </div></td>
        </tr>
      </table>
	  <table width="100%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#999966">
                    <tr> 
                      <td width="9%"><div align="center"><font size="2">编号</font></div></td>
                      <td width="13%"><div align="center"><font size="2">留言人</font></div></td>
                      <td width="39%"><div align="center">留言内容
                      </div>                        <div align="center"></div></td>
                      <td width="14%"><div align="center">悼念方式</div></td>
                      <td width="14%"><div align="center">留言时间</div></td>
                      <td width="11%"><div align="center">操作</div></td>
                    </tr>
<%
	rs1.pagesize=15
	currentpage=Clng(request("page"))
	if currentpage<1 then currentpage=1
	if currentpage>rs1.pagecount then currentpage=rs1.pagecount
	if not rs1.eof then
	rs1.absolutepage=currentpage
	end if
	b=1
    while not rs1.eof and b<=rs1.pagesize
%>
                    <tr> 
                      <td> <div align="center"> <div align="center"> 
                          <%=rs1("id")%>  </div></td>
                      <td> <div align="center"> <%=rs1("lyname")%> </div></td>
                      <td> <div align="center"> <%=rs1("comment")%> </div></td>

                      <td><div align="center">
<%
imgsrc=""
Select Case rs1("mainclass")
  Case 1
    imgsrc="献花"
  Case 2
    imgsrc="点歌"
Case 3
    imgsrc="献供"
Case 4
    imgsrc="烧贡"
Case 5
    imgsrc="献护肤品"
Case 6
    imgsrc="献服饰"
Case 7
    imgsrc="献首饰"
End Select
response.write ""&imgsrc&""
%></div></td>
                      <td><div align="center"><%=rs1("riqi")%></div></td>
                      <td><div align="center">[<%response.write "<a target=""_blank"" href=delly.asp?id="&rs1("id")&">"%>
                      删除</a>]</div></td>
                      <%
rs1.movenext
b=b+1
wend
%>
                    </tr>
</table></td>
  </tr>
  <tr>
    <td><form name="form1" method="post" action="admin.asp">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CAD6A1">
<tr> 
<td><div align="right" > 
                <p class="newtext"><font color=#000000>网上祭奠者总数:</font><font color=red><%=rs1.recordcount%></font></span><font color="#000000"> 
                  |&nbsp;&nbsp;<a href=admin.asp>首页</a>&nbsp;| <a href=admin.asp?page=<%=currentpage-1%>> 
                  上一页</a>&nbsp;| <a href=admin.asp?page=<%=currentpage+1%>> 下一页</a> 
                  | <a href=admin.asp?page=<%=rs1.pagecount%>>末页</a>&nbsp; &nbsp;</font>&nbsp; 
                </p>
</div>
</td>
</tr>
</table>
</form></td>
  </tr>
</table><table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="15" background="pic1/index_r23_c3.gif">
</td>
  </tr>
  <tr>
    <td background="pic1/1_r45_c1.gif"><div align="center">网上葬礼</a> <a href="http://www.9qu.org/">http://www.9qu.org/</a><br>
        网络花园文学网麾下网站联盟 &nbsp;</div></td>
  </tr>
</table>
</body>
</html>
