<tourex:pagecode name="NewsReviews(10)"/>
<%
Dim F as integer = RecordCount-PageSize*(PageID-1) '楼数
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<script type="text/javascript" src="{$WebPath$}Sys/Js/jquery.js"></script>
<link  type="text/css" rel="Stylesheet" href="{$WebPath$}Css/Style.css"/>
<link  type="text/css" rel="Stylesheet" href="{$WebPath$}Css/News.css"/>
</head>
<body>
	<div class="new_info_comments">
		<h1 class="tit"><span>已有评论(<a href="#">{$RecordCount$}</a>条)</span>网友评论</h1>
		<div class="fabu">
		<form action="{$WebPath$}News/Reviews.aspx?id={$ThisId$}&act=save" method="post" onSubmit="if($('#R_Text').val()=='')return false;">
		<textarea rows="6" id="R_Text" name="R_Text" class="nInpuText"></textarea><div class="fabu_xt"><span><input type="submit" name="submit" value="发表评论" class="nInpuOK" /></span>网友评论仅供其表达个人看法，并不表明本站同意其观点或证实其描述。</div></form></div>
		<%
	If RecordCount>0 Then
		While Dr.Read
		%>
		<div class="list"><p>{$F$}楼 <span>{$Dr("U_Name")$}</span> 发表于：{$CDate(Dr("R_AddDate")).ToString("MM-dd HH:mm")$}</p>{$Dr("R_Text").ToString$}</div>
		<%
		F-=1
		End While
		Dr.Close()
	Else
		TourExStr.AppendLine("<div class=""list"">暂无</div>")
	End If
	%>
	<div style="padding:0 20px 20px 20px"><tourex:mytag name="page"/></div>
    </div>
</body>
</html>