<!--#include file="../Inc/Top.asp"-->
<%
id=request("id")
 
If Len(lmid)>=10 Then 
  response.write"<SCRIPT language=JavaScript>alert('ID不存在');"
  response.write"javascript:window.close()</SCRIPT>"
else
sqlnews="select * from news where id="&cint(id)
Set rsnews= Server.CreateObject("ADODB.Recordset")
rsnews.open sqlnews,conn,1,1
keywords=rsnews("keywords")
description=rsnews("description")

sql="select * from lanmu where id="&cint(rsnews("class2"))
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
lmname=rs("lmname")

if rs("bigclass")<>0 then
sqlbig="select * from lanmu where id="&cint(rs("bigclass"))
Set rsbig= Server.CreateObject("ADODB.Recordset")
rsbig.open sqlbig,conn,1,1
lmname=rsbig("lmname")
rsbig.close
set rsbig=nothing
lmname=lmname&"->"
end if
lmname=lmname&rs("lmname")

rs.close
set rs=nothing
headtitle=rsnews("title")&"--"
title=rsnews("title")
%>
<!-- #include file="../inc/Head.asp" -->
<div class="web">
<div class="leftcontent">
<div class="navigation"><img src="../images/nav.gif" /><%=lmname%></div>
	<h1><%=rsnews("title")%></h1>
	<div class="content"><%=contentlink(rsnews("content"))%></div>
	<div class="hits">点击数：<span><script language="javascript" src="../inc/hits.asp?type=news&id=<%=rsnews("id")%>"></script></span>&nbsp; 录入时间：<%= FormatDateTime(rsnews("InfoTime"),2) %>&nbsp;【<a href='javascript:window.print()'>打印此页</a>】&nbsp;【<a href="javascript:self.close()">关闭</a>】</div>
	<!-- #include file="../message/message_add.asp" -->
	<div class="navigation"><img src="../images/nav.gif" />相关文章</div>
	<div class="content">
	<%
	sqlnewsxg="select top 10 * from news where class2="&cint(rsnews("class2"))&" order by hits desc" 
    Set rsnewsxg= Server.CreateObject("ADODB.Recordset")
    rsnewsxg.open sqlnewsxg,conn,1,1
    if rsnewsxg.eof and rsnewsxg.bof then
    response.Write("暂时没有相关文章记录")
    else 
    do while not rsnewsxg.eof
   %>
   <% if neirong=True then %>
    <div class="newsline1">
	<img src="../Images/dot.gif" />
	<a href='Shownews<%=rsnewsxg("id")%>.htm' target=_blank><%=rsnewsxg("title")%></a>(<%=FormatDateTime(rsnewsxg("Infotime"),2)%>)
	</div>	
    <%else%>
	<div class="newsline1">
	<img src="../Images/dot.gif" />
<a href='Shownews.asp?ID=<%=rsnewsxg("id")%>' target=_blank><%=rsnewsxg("title")%></a>(<%=FormatDateTime(rsnewsxg("Infotime"),2)%>)
	</div>	
	<% end if
	rsnewsxg.movenext
	loop 
	end if
	rsnewsxg.close
	set rsnewsxg=nothing
	 %>
	</div>
</div>
<div class="rightnav"><!-- #include file="left.asp" --><!-- #include file="../inc/online.asp" --></div>
</div>

<!-- #include file="../Inc/Foot.asp" -->
</BODY></HTML>
<%
rsnews.close
set rsnews=nothing
end if%>