<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/css" href="http://news.163.com/css/allrss.css"?>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方客服中心 http://www.ip126.com
'技术支持论坛 http://bbs.ip126.com/
'QQ:530051328 mail:ttkj99@126.com
'=====================================
%>
<rss version="2.0">
<channel><description>更新</description>
<% 

lang = "En"
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from TianTianCMS_Config"
  rs.open sql,conn,1,1
  rsscode=rs("rssSite")
  SiteTitleEN=rs("SiteTitleEN")
  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
'writeitem "xiaoma" ,"name" ,"kuku"
%>
<%
'================
'rss 新闻
'================ 
  dim datafrom
      datafrom="TianTianCMS_Article"
  sql="select * from ["& datafrom &"] "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  if instr(rsscode,"n") > 0 then
  while(not rs.eof)
        writeitem  Left(rs("ContentEN"),150) ,"New-"&rs("ID")&".html" ,rs("NewsNameEN")
  rs.movenext
  wend
  end if
 rs.close
%>
<%
'================
'rss 产品
'================ 

      datafrom="TianTianCMS_Products"
  sql="select * from ["& datafrom &"] "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
   if instr(rsscode,"p") > 0 then
  while(not rs.eof)
        writeitem  Left(rs("ContentEN"),150) ,"Product-"&rs("id")&".html" ,rs("ProductNameEN")
  rs.movenext
  wend
  end if
 rs.close
 

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

      datafrom="TianTianCMS_Download"
  sql="select * from ["& datafrom &"] "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  if instr(rsscode,"d") > 0 then
  while(not rs.eof)
        writeitem  Left(rs("ContentEN"),150) ,"Download-"&rs("id")&".html" ,rs("DownNameEN")
  rs.movenext
  wend
  end if
 rs.close
%>
<link>
<% 
response.write url
 %>
</link>
<title>
<% response.write SiteTitleEN %>
</title>
</channel>
</rss>
