<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_news.asp-->
<!--#include file=../system/include/function.asp-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
        <%
	dim strSql,rs,i,PageNo
	if request("paper_id")="" then
	response.write "对不起，参数出错了！请重新访问此页!"
	response.end
	end if
	if request("type")="" then
	response.write "对不起，参数出错了！请重新访问此页!"
	response.end
	end if
		
	strSql="select * from [paper] where id=" & request("paper_id")
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
	rs("click")=rs("click")+1
	rs.update

%>
<style> body{ scrollbar-face-color:fd9035; scrollbar-shadow-color:ffffff;  scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff;  scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffefd7;  scrollbar-arrow-color:ffffff;} 
.kuan1 {  border-color: #000000 black black; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.kuan2 {  border-color: #FFFFFF black black; border-style: solid; border-top-width: 2px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.kuan3 {  border-color: black black #CCCCCC; font-size: 9pt; line-height: 180%; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.kuan4 {  border-color: #CCCCCC black black; font-size: 9pt; line-height: 180%; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.fontw6 {  border-color: #CCCCCC black black; font-size: 14px; line-height: 150%; font-family: "宋体"; border-style: none; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
</style>
<script language="JavaScript" src="../share/nei_fc.js"></script>
<script language="JavaScript">
<!--
	function checkdata()
	{
		if(!CheckIsNull(form1.man,"请输入'留言人'！")) return false;
		if(!CheckIsNull(form1.email,"请输入email！")) return false;
		if(!CheckIsNull(form1.bz,"请输入发言内容！")) return false;
	}
//-->
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="../share/gg_top.htm"-->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center" valign="middle" height="45" width="778" class="kuan1"><b><font size="5"><a href="sub_paper.asp?id=<%=request("paper_id")%>&amp;type=<%=request("type")%>" ><%=rs("title")%></a></font></b></td>
  </tr>
  <tr> 
    <td align="left" valign="middle" height="24" width="778" class="font">当前位置: 
      <a href="../index.asp" class="ffbyfont">首页</a> &gt; 相关评论</td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <%
	strSql="select * from [paper_lyb] where paper_id='" & request("paper_id") & "' order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
	rs.PageSize=10
	PageNo=request("PageNo")
	if PageNo<1 or not isnumeric(PageNo) then
		PageNo=1
	end if
	if cint(PageNo)>rs.PageCount then
		PageNo=rs.PageCount
	end if
	if rs.eof then
%>
  <tr> 
    <td width="778" class="kuan1" height="26" align="center" valign="middle"> 
      <div class=font>暂且没有评论！</div>
    </td>
  </tr>
  <%else%>
  <tr> 
    <td width="778" height="59"> 
      <table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td bgcolor="#FF9933" class="font" width="617">&nbsp;<font color="#FFFFFF">相关评论： 
            <%=rs.recordcount%> 条</font></td>
          <td bgcolor="#FF9933" class="font" width="161"><a href="lyb_view.asp?pageno=1&amp;type=<%=request("type")%>&amp;paper_id=<%=request("paper_id")%>" class="menu2">首页</a> 
            <a href="lyb_view.asp?pageno=<%=pageno-1%>&amp;type=<%=request("type")%>&amp;paper_id=<%=request("paper_id")%>" class="menu2">上一页</a> 
            <a href="lyb_view.asp?pageno=<%=pageno+1%>&amp;type=<%=request("type")%>&amp;paper_id=<%=request("paper_id")%>" class="menu2">下一页</a> 
            <a href="lyb_view.asp?pageno=<%=rs.pagecount%>&amp;type=<%=request("type")%>&amp;paper_id=<%=request("paper_id")%>" class="menu2">尾页</a></td>
        </tr>
      </table>
      <table width="778" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFCC99" class="kuan2">
       <%
		if rs.recordcount>0 then
		   rs.AbsolutePage =PageNo
		   for i=1 to rs.pageSize
  			  if rs.eof then exit for
        %>
        <tr> 
          <td bgcolor="#FFEAB3" align="left" valign="middle" height="22" class="font" width="778">&nbsp;<font color="#FF6600">留言人：</font>&nbsp;<%=rs("man")%><font color="#FF6600" class="font">　　E-mail：</font>&nbsp;<%=rs("email")%>　　<font color="#FF6600" class="font">留言时间：</font><%=rs("date")%></td>
        </tr>
        <tr> 
          <td bgcolor="#fff9e1" align="left" valign="middle" height="20" class="smallfont" width="778">&nbsp;<%=rs("bz")%></td>
        </tr>
        <%
		rs.movenext
	   next
	   end if
	   end if
	   %>
      </table>
    </td>
  </tr>
</table>
<table width="776" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFC68C" align="center" class="kuan2">
  <tr> 
    <td width="778" align="left" valign="middle" class="font"><b><font color="#FFFFFF"> 
      　■ 我来说两句</font></b></td>
  </tr>
  <tr> 
    <td width="778" bgcolor="#FFFFFF" height="223" align="left" valign="middle" class="font"> 
      <table width="776" border="0" cellspacing="0" cellpadding="0">
        <form name="form1" method="post" action="lyb_save.asp" onSubmit="return checkdata()">
          <tr> 
            <td width="251" align="right" valign="middle" class="font" height="30"> 
              <input type="text" name="paper_id" size="3" value="<%=request("paper_id")%>" readonly style="border: 1px #ffffff solid;BACKGROUND: #ffffff;FONT-SIZE: 9pt;color: #ffffff; FONT-FAMILY: arial">
              留言人：</td>
            <td width="527" align="left" valign="middle"> 
              <input type="text" name="man" size="50" maxlength="50">
            </td>
          </tr>
          <tr> 
            <td width="251" align="right" valign="middle" class="font" height="30">E-mail：</td>
            <td width="527" align="left" valign="middle"> 
              <input type="text" name="email" maxlength="50" size="50">
            </td>
          </tr>
          <tr> 
            <td width="251" align="right" valign="top" class="font">评　论：<br>
            </td>
            <td width="527" align="left" valign="middle"> 
              <textarea name="bz" rows="6" cols="50"></textarea>
            </td>
          </tr>
          <tr align="center" valign="bottom"> 
            <td colspan="2" height="43" class="font"> 
              <input type="submit" name="Submit" value="发 表">
              　 
              <input type="reset" name="Submit2" value="清 除">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<!--#include file="../share/gg_foot.htm"-->
</body>
</html>
<!--#include file=../system/include/foot.asp-->