<!--#include file="../../../../conn/conn5.asp" -->
<!--#include file="../../../../conn/function.asp" -->
<%
server_v40=Request.ServerVariables("QUERY_STRING")
num=instr(server_v40,".") 
S_id=left(server_v40,num-1)

Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Nsort where S_id="&S_id
rs.open sql,conn,1,1
S_title=rs("S_title")
rs.close
set rs=nothing
%>
<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<content Name="<%=S_title%>">
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from news where N_sort="&S_id&" order by N_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
response.Write "<article Thumb='"&rs("N_pic")&"' Large =''><headline>"&rs("N_title")&"</headline><date>"&rs("N_date")&"</date><copy_intro><![CDATA["&left(loseHtml(rs("N_content")),100)&"...]]></copy_intro><copy_full><![CDATA["&RemoveHTML(rs("N_content"))&"]]></copy_full><copy_pic><![CDATA[]]></copy_pic></article>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</content>

