<!--#include file="../conn.asp" -->
<%
userid=session("userid")
if request.QueryString("a")="del" then
id=Trim(request.QueryString("id"))
sql="select * from replay where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
userid=rs("userid")
if session("userid")=userid then
else
%>
<script language='Javascript'>alert("您无权删除其他用户的信息!");history.back();</script>
<%
response.end
end if
rs.delete
rs.close
okstring="<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>成功删除</title><meta http-equiv=refresh content=0;URL=mreplay.asp><link href=../diary/css.css rel=stylesheet type=text/css></head>"
okstring=okstring+"<body><font color=#FF6600><div align=center>成功删除!请稍候,正在返回首页..<br>如果IE没有自动返回,请点击<a href=mreplay.asp>这里</a>！</div></font></body></html>"
response.Write(okstring)
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5)">
<title>心情日记本·分享你我的心情</title>
<meta name="keywords" content="心情日记本·分享你我的心情">
<link href="../diary/css.css" rel="stylesheet" type="text/css">
<script src="img/alt.js"></script>
<script language="JavaScript">
function CheckForm()
{
    if (document.WriteForm.tel.value.length <1 || document.WriteForm.tel.value.length >300) {
    		alert("每篇评论不能超过300个字少于一个字.");
		document.WriteForm.tel.focus();
		return false;
	}
	return true;
}
</script>
</head><body bgcolor="#FFF2EC" background="<%=bgrnd%>" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" style="background-color=transparent">
                  
<table class=td width="284" border="0" cellpadding="2" cellspacing="0" height="370" bgcolor="#FFFFFF" align="left">
                  	<tr>
                      <td width="98%" valign="top" height="99">
						<div align="center">
							
            <table border="0" width="96%" cellspacing="0" cellpadding="0" bgcolor="#EBEBEB">
              <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * From replay where userid="&userid&" order by playid desc"
Rs.Open sql,conn,1,1
IF Rs.Eof and rs.bof Then
response.Write("<br><font color=FF6600>还没有任何评论</font><br><br><br><br><br><br>")
else
end if
diaryid=rs("playid")
do while not rs.eof

id=rs("id")
set rs11=server.CreateObject("adodb.Recordset")
sql11="Select * From diary where diaryid="&diaryid
Rs11.Open sql11,conn,1,1
title=rs11("title")
set sqlll=nothing
set rsll=nothing
rsll.close
%>
              　 
              <tr> 
                
            <td colspan="3"><strong><font color="#FF3300">网友</font><font color="#008080">评论-&gt;</font><font color=red><%=title%></font></strong></td>
              </tr>
              <tr> 
                <td colspan="3"> 
                  <div align="center"> 
                    <table border="0" width="95%" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="17"><font color="#666666">　 
                          <%
content=rs("content")
response.Write(content)
%>
                          </font></td>
                      </tr>
                    </table>
                  </div>
                </td>
              </tr>
              <tr> 
                
            <td width="2"> 
              <p align="left">&nbsp;
            </td>
                <td width="25">
                  <div align="center"><a href="mreplay.asp?a=del&id=<%=id%>">删除</a></div>
                </td>
                
            <td width="*">留言人:<%=rs("rename")%>&nbsp;&nbsp;<font color="#008080"> 
              <%=rs("replaytime")%></font></td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" colspan="3"> 　 
                  <%

rs.movenext 
loop
%>
                </td>
              </tr>
            </table>
						</div>
						</td>
                    </tr>
                  </table>
</body>

</html>


