<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from lmnews where id="&Request("id")
rs.Open sql, conn, 1, 1
If rs.EOF Then
response.Write "<br><br><center><font style='font-size: 14px'>Ƿѱɾ[<a href='index.asp'>ﷵҳ</a>]</font></center><br><br>"
Else
%>

<style type="text/css">
<!--
.contentx {
	font-size:14px;
	line-height:28px;
}
-->
</style>

<%=rs("title")%>

<a href="view.asp?id=<%=rs("classid")%>" title="<%=rs("title")%>"><%=rs("title")%></a>


<!--ݿܿʼ--><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td height="15"></td>
  </tr>
  <tr>
    <td><div align="center"><p style=" padding-top:3px;PADDING-left: 3px;font-size:18px;font-family:"><%=rs("title")%></p></div></td>
  </tr>

  <tr>
    <td><hr WIDTH=90% style="border:1px dashed #CCCCCC; height:1px"></td>
  </tr>
  <tr>
    <td><div align="center"><font style="font-size: 12px" color="#716964">ԣ<%=anco_site_name%>ڣ<%=formatdatetime(rs("time"),2)%>ͳƣ<%=rs("click")%></font></div></td>
	<%
'޸ĵ+1
sql="update lmnews set click=click+1 where id="&Request("id")
conn.execute (sql)
%>
  </tr>
  <tr>
    <td height="10"></td>
  </tr>
  <tr>
    <td><!--¿ʼ-->
<div class="conte_text"><%=rs("Content")%></div>
                        <!--½--></td>
  </tr>
    <tr>
    <td height="15"></td>
  </tr>
   <tr>
    <td height="1" background="images/dot.gif"></td>
  </tr>
   <tr>
    <td height="15"></td>
  </tr>
  <tr>
    <td><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
	  <%
	  Set rs7 = server.CreateObject("adodb.recordset")
    sql7 = "select * from lmnews where id > "&Request("id")
    rs7.Open sql7, conn, 1, 1
    If rs7.EOF Then
response.Write "һţ"
    Else
	  %>
        <td>һţ<a href="view.asp?id=<%=rs7("id")%>" title="<%=rs7("title")%>"><%=rs7("title")%></a></td>
		<%
		  End If
		  rs7.close
set rs7=nothing
		%>
      </tr>
      <tr>
	  <%
	  Set rs8 = server.CreateObject("adodb.recordset")
    sql8 = "select * from lmnews where id < "&Request("id")&" order by id desc"
    rs8.Open sql8, conn, 1, 1
    If rs8.EOF Then
response.Write "һţ"
    Else
	  %>
        <td>һţ<a href="view.asp?id=<%=rs8("id")%>" title="<%=rs8("title")%>"><%=rs8("title")%></a></td>
		<%
		  End If
		  rs8.close
set rs8=nothing
		%>
      </tr>
	      <tr>
    <td height="15"></td>
  </tr>
    </table></td>
  </tr>
  </table><!--ݿܽ-->



<%
rs.close
set rs=nothing
%>

<%
end if
%>