<%
 	set rs3=server.createobject("adodb.recordset")
					  	rs3.open "select pinlunid,pinglunid from pl where class="&classid&" and shenghe=1  and  pinlunid="&pinlunid&" order by pinglundate desc",conn,1,1
			
				 	set rs1=server.createobject("adodb.recordset")
					  	rs1.open "select top 5 * from pl where   class="&classid&"   and shenghe=1 and  pinlunid="&pinlunid&" order by pinglundate desc",conn,1,1
					  	%>
<table border="0" width="100%" id="table31" cellpadding="0" bordercolor="#BDDBE9" cellspacing="0">
	<tr>
		<td><table border="0" width="100%" id="table31" cellpadding="0" bordercolor="#BDDBE9" cellspacing="0">
	<tr>
		<td><div align="center">
			<table  cellSpacing="1" cellPadding="3" border="1" id="table32" width="580" bordercolor="#E9E9E9" style="border-collapse: collapse">
				<tr>
					<td align="middle" bgColor="#F7F7F7" width="70">
					<input class="go-wenbenkuang" onclick="spanComment356431584.style.display=''; fmComment356431584.content.focus();" type="button" value="发表评论"></td>
					<td noWrap align="middle" bgColor="#F7F7F7">评论人</td>
					<td noWrap align="middle" bgColor="#F7F7F7">评论共<font color="red"><%=rs3.recordcount%></font>条
					<%rs3.close
					set rs3=nothing%>
					<a 
 target="_blank" href="../pinlunall.asp?pinlunid=<%=pinlunid%>&classid=<%=classid%>&titlename=<%=title%>">查看完整内容</a>
					</td>
					<td align="middle" bgColor="#F7F7F7" width="81">发表时间</td>
				</tr>
				<tr id="spanComment356431584" style="DISPLAY: none" bgColor="white">
					<td colSpan="4">
					<form name="fmComment356431584" onsubmit="    if(content.value=='') { content.focus(); alert('评论内容不能为空！'); return false; }    if(content.value.length&gt;1000) { content.focus(); alert('评论内容字数超过1000！'); return false; }    if(nickName.value=='') { nickName.focus(); alert('笔名不能为空！'); return false; }	if(!nickName.value.match(/^[a-zA-Z0-9_\u4e00-\u9fa5]+$/)) { nickName.focus(); alert('笔名必须是字母、数字、下划线或者汉字！'); return false; }    return true;  " method="post" action="../savepinlun.asp">
						<input type="hidden" name="linkaddress" value="<%=request.servervariables("http_referer")%>">
						笔&nbsp;&nbsp;&nbsp;&nbsp;名：  
						<input maxLength="20" name="nickName" class="wenbenkuang">
						<font color="red">*</font><br>
						联系方式： 
						 
						<input  maxLength="50" name="contact" class="wenbenkuang" >
						
						<input type="radio" CHECKED value="0" name="open" id="open1" class="input1"><label for="open1">不对外公开</label> 
						 
						<input type="radio" value="1" name="open" class="input1" id="open2"><label for="open2">对外公开</label>，此信息有助于我们与您联系。 <br>评论内容： （最多1000字。当前字数：<span id="spanCommentContentLength356431584" style="COLOR: red">0</span>）<font color="red">*</font><br>
						<textarea onkeyup="if(event.ctrlKey &amp;&amp; (10 == event.keyCode || 13 == event.keyCode) &amp;&amp; form.onsubmit()) form.submit(); else onchange();" onpropertychange="onchange()" name="content" rows="5" cols="60" onchange="document.getElementById('spanCommentContentLength356431584').innerHTML=value.length;" class="wenbenkuang"></textarea>
						<br>　<table border="0" width="100%" id="table33" cellspacing="0" cellpadding="0">
							<tr>
								<td width="74%">
								<font color="red">注：所有评论通过审核后才会被公开。</font><br>1.尊重网上道德，遵守<a target="_blank" href="../law.asp"><font color="red">《全国人大常委会关于维护互联网安全的决定》</font></a>和<a target="_blank" href="../law2.asp"><font color="red">《互联网电子公告服务管理规定》</font></a>及中华人民共和国其他各项有关法律法规。<br>2.承担一切因您的行为而直接或间接导致的民事或刑事法律责任  
								<br>3.本站管理人员有权保留或删除其管辖留言中的任意内容 <br>4.本站有权在网站内转载或引用您的评论  
								<br>5.参与本评论即表明您已经阅读并接受上述条款<table border="0" width="100%" id="table34" cellspacing="0" cellpadding="0">
									<tr>
										<td>
										<p align="right">
										表情：</td>
									</tr>
								</table></td>
								<td><script>function showimage(){document.images.tus.src=""+document.fmComment356431584.userface.options[document.fmComment356431584.userface.selectedIndex].value+"";}

facetol=36;
temp = Math.floor(Math.random() * facetol+1);


document.write("<img src=../images/touxiang/1/"+temp+".gif name=tus> ")
document.write("<select name=userface size=1 onChange=showimage()>")

for(i=1;i<=facetol;i++) {
if (i==temp) ii="selected";else ii=""
document.write("<option value='../images/touxiang/1/"+i+".gif' "+ii+">"+i+"</option>")
}
</script></select> 　</td>
							</tr>
						</table>
						<input type="hidden" value="<%=pinlunid%>" name="pinlunid">
						<input type="hidden" value="<%=classid%>" name="classid">
						<input type="hidden" value="<%=titlename%>" name="titlename">
						<input  type="submit" value="发表我的评论！" class="go-wenbenkuang">
						</p>
					</form></td>
				</tr>
				<%
				
			 if rs1.eof then
			 else
			 
					  do while not rs1.eof
				
%>
				
				<tr bgColor="white">
					<td align="left" width="70"><nobr><font color="red"><%=rs1("storey")%></font> 楼</nobr>
					<nobr>[<a 
 onclick="spanComment356431584.style.display=''; fmComment356431584.content.focus(); fmComment356431584.content.value='回复 <%=rs1("storey")%> 楼(<%=rs1("nickName")%>)：'; fmComment356431584.content.onchange(); return false;" href="#">回复</a>]</nobr></td>
					<td align="middle" width="50">
					<font color="green"><%=rs1("nickName")%></font></td>
					<td style="WORD-BREAK: break-all; WORD-WRAP: break-word" width="285" valign="top">
			
					<table border="0" width="100%" id="table38" cellspacing="0" cellpadding="0">
						<tr>
							<td valign="top">
					<%=rs1("pingluncontent")%><img src="<%=rs1("userface")%>" ></td>
						</tr>
						<tr>
							<td><%if rs1("open") =1 then 
							response.write "<font color='green'>联系方式</font>:"&rs1("contact")
							 end if%>　</td>
						</tr>
					</table></td>
					<td width="81">
										<%
					if len(month(rs1("pinglundate")))=2 then
					response.write   month(rs1("pinglundate"))
					else
					response.write "0"&month(rs1("pinglundate"))
					end if
					%>-<%
							if len(day(rs1("pinglundate")))=2 then
					response.write   day(rs1("pinglundate"))
					else
					response.write "0"&day(rs1("pinglundate"))
					end if
					%>&nbsp;<%
					if len(hour(rs1("pinglundate")))=2 then
					response.write   hour(rs1("pinglundate"))
					else
					response.write "0"&hour(rs1("pinglundate"))
					end if
					%>:<%
					if len(minute(rs1("pinglundate")))=2 then
					response.write   minute(rs1("pinglundate"))
					else
					response.write "0"&minute(rs1("pinglundate"))
					end if
					%></td>
				</tr>
				
				<%
				rs1.movenext
			
				loop
				end if
				rs1.close
				set rs1=nothing
				%>
				<tr >
					<td  colSpan="4">　</td>
				</tr>
			</table>
 		</div><br>
		</td>
	</tr>
</table>
 		
		</td>
	</tr>
</table> 
  