<!--#include file="../conn.asp" -->
<!--#include file="inc.asp" -->
<%
if Trim(request.QueryString("id"))<>"" then
id=Trim(request.QueryString("id"))
userid=Trim(request.QueryString("userid"))
else
response.Redirect("index.asp")
end if
   '###验证码
   		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("bookSafeCode") =""
		Session("bookSafeCode") = zNum
		Result = Session("bookSafeCode")
%>

<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="<%=alltubg%>css.css" rel="stylesheet" type="text/css">
<script src="<%=alltubg%>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="#FFFfff">             
<table class=td width="400" border="0" cellpadding="2" cellspacing="0" height="100%" bgcolor="#FFFFFF" align="center">
<tr>
<td width="350" height="20">&nbsp;&nbsp;&nbsp;&nbsp;对此日记发表评论：</td><td width="100" height="20" align="center"><span id=qianxie style="display:block"><a href="#" target="_self" onClick="bookf.style.display='block';qianxie.style.display='none';qianxie1.style.display='block';">↓写评论</a></span>
<span id=qianxie1 style="display:none"><a href="#" target="_self" onClick="bookf.style.display='none';qianxie.style.display='block';qianxie1.style.display='none';">↑暂不写</a></span>
</td>
</tr>
	<tr>
                      <td width="100%" valign="top" height="*" colspan="2">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#EBEBEB" align="center">
        <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * From replay where playid="&id&" order by id desc"
Rs.Open sql,conn,1,1
IF Rs.Eof and rs.bof Then
response.Write("<br><font color=FF6600>&nbsp;&nbsp;&nbsp;&nbsp;还没有任何评论</font><br><br>")
else
end if
do while not rs.eof
%>  　
<tr>
<td><strong><font color="#FF3300">网友</font><font color="#008080">评论:</font></strong></td>
								</tr>
								<tr>
									<td>
										<table border="0" width="100%" cellspacing="0" cellpadding="0">
											<tr>
												<td><font color="#666666">　<%
content=rs("content")
response.Write(content)
%></font></td>
											</tr>
										</table>
									</td>
								</tr>
								<tr>
									<td>
									<p align="right">　<%=rs("rename")%>&nbsp;&nbsp;&nbsp;&nbsp;<font color="#008080">  <%=rs("replaytime")%></font>&nbsp;&nbsp;&nbsp; </td>
								</tr>
							<tr>
									<td bgcolor="#FFFFFF">
<%rs.movenext 
loop
%></td>
								</tr>
							</table>
						</td>
                    </tr>
                  </table>
<div id="bookf" style="display:none;z-index:300;position:absolute;left:0px;top:20px;padding-left:20px"> 
<table border="0" width="400" cellspacing="0" cellpadding="0" bgcolor="#EBEBEB" height="200" align="center">
<form language="javascript" name="WriteForm" method="post" action="reok.asp" onSubmit="return CheckForm()">
<tr> 
<td width="100%" colspan="2" align="center"><textarea name="tel" style="width:400px" rows="8" class="input"></textarea></td>
<input name="id" type="hidden" value="<%=id%>"><input name="userid" type="hidden" value="<%=userid%>">
<%if session("username")="" then%><input name="name" type="hidden" value="游客">
<%else%>
<input name="name" type="hidden" value="<%=session("username")%>">
<%end if%>
</tr>
<tr>
<td>
(说明：不超过300个字)验证码:
<input name="yz" size="5" onkeyup="value=value.replace(/[^\d]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
<%=Result%></td><td width="84">
<INPUT border=0 height=21 name=submit src="<%=alltubg%>img/replay.bmp" type=image width=80></td>
</tr></form>
</table></div>
</body>
</html>
