rss.asp

一个简单的小程序

<?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>
<% 

lang = "Ch"
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from LiangJingCMS_Site"
  rs.open sql,conn,1,1
  rsscode=rs("rssSite")
  SiteTitleCH=rs("SiteTitleCH")
  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="LiangJingCMS_News"
  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("ContentCH"),150) ,"New-"&rs("ID")&".html" ,rs("NewsNameCH")
  rs.movenext
  wend
  end if
 rs.close
%>
<%
'================
'rss 产品
'================ 

      datafrom="LiangJingCMS_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("ContentCH"),150) ,"Product-"&rs("id")&".html" ,rs("ProductNameCH")
  rs.movenext
  wend
  end if
 rs.close
 

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

      datafrom="LiangJingCMS_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("ContentCH"),150) ,"Download-"&rs("id")&".html" ,rs("DownNameCH")
  rs.movenext
  wend
  end if
 rs.close
%>
<link>
<% 
response.write url
 %>
</link>
<title>
<% response.write SiteTitleCH %>
</title>
</channel>
</rss>