<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/css" href="http://news.163.com/css/allrss.css"?>
<!--#include file="Include/Const.asp" -->
<!--#include file="Include/NoHackSql.Asp" -->
<!--#include file="Include/ConnSiteData.asp" -->
<rss version="2.0">
<channel><description>更新</description>
<% 
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from LiangJing_Site"
  rs.open sql,conn,1,1
  SiteTitleCH=rs("SiteTitle")
  rs.close
url = Request.ServerVariables("SERVER_NAME")
if (left(url,7) = "http://") then
url = Request.ServerVariables("SERVER_NAME")
else
url = "http://"+ Request.ServerVariables("SERVER_NAME") 
end if
dim dates
dates = Date
function writeitem(description,link,title)
response.write "<item>"
response.write "<description>"
response.write "<![CDATA["&description&"]]>"
response.write "</description>"
response.write "<link>"
response.write  url +"/"+ lang +"/"+ link
response.write "</link>"
response.write "<pubDateParsed>"
response.write  dates
response.write "</pubDateParsed>"
response.write "<title>"
response.write "<![CDATA["&title&"]]>"
response.write "</title>"
response.write "</item>"
end function
%>
<%
'================
'rss 新闻
'================ 
  dim datafrom
      datafrom="LiangJing_News"
  sql="select * from ["& datafrom &"] "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1

  while(not rs.eof)
        writeitem  Left(rs("Content"),150) ,"New-"&rs("ID")&".html" ,rs("NewsName")
  rs.movenext
  wend

 rs.close
%>
<%
'================
'rss 产品
'================ 

      datafrom="LiangJing_Products"
  sql="select * from ["& datafrom &"] "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1

  while(not rs.eof)
        writeitem  Left(rs("Content"),150) ,"Product-"&rs("id")&".html" ,rs("ProductName")
  rs.movenext
  wend

 rs.close
 

 
 
%>
<%
'================
'rss 下载
'================ 

  datafrom="LiangJing_Download"
  sql="select * from ["& datafrom &"] "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  while(not rs.eof)
        writeitem  Left(rs("Content"),150) ,"Download-"&rs("id")&".html" ,rs("DownName")
  rs.movenext
  wend
 rs.close
%>
<link>
<% 
response.write url
 %>
</link>
<title>
<% response.write SiteTitle%>
</title>
</channel>
</rss>
