rss.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 103 行

<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
Dim lang,sql,rsscode,description,link,title,url,dates,datafrom
lang="Ch"
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from LiangJingCMS_Site"
rs.open sql,conn,1,1
rsscode=rs("rssSite")
SiteTitle=rs("SiteTitleEN")
dates=Date
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

Response.Clear
Response.CharSet="gb2312" '数据集
Response.ContentType="text/xml" '数据流格式定义
response.write "<?xml version=""1.0"" encoding=""gb2312""?>" & vbCrLf
response.write "<?xml-stylesheet type=""text/css"" href=""http://news.163.com/css/allrss.css""?>" & vbCrLf
response.write "<rss version=""2.0"">" & vbCrLf
response.write "<channel>" & vbCrLf
response.write "<title>"
response.write SiteTitle
response.write "</title>" & vbCrLf
response.write "<link>"
response.write url
response.write "</link>" & vbCrLf
response.write "<description>Latest News</description>" & vbCrLf

function writeitem(description,link,title)
response.write "<item>" & vbCrLf
response.write "<title>"
response.write "<![CDATA["&title&"]]>"
response.write "</title>" & vbCrLf
response.write "<link>"
response.write url +"/"+ lang +"/"+ link
response.write "</link>" & vbCrLf
response.write "<description>"
response.write "<![CDATA[ "&description&" ]]>"
response.write "......</description>" & vbCrLf
response.write "<pubDateParsed>"
response.write dates
response.write "</pubDateParsed>" & vbCrLf
response.write "</item>" & vbCrLf
end function

'================
'rss 新闻
'================
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("ContentEN"),150) ,"New-"&rs("ID")&".html" ,rs("NewsNameEN")
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("ContentEN"),150) ,"Product-"&rs("id")&".html" ,rs("ProductNameEN")
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("ContentEN"),150) ,"Download-"&rs("id")&".html" ,rs("DownNameEN")
rs.movenext
wend
end if
rs.close

response.write "</channel>" & vbCrLf
response.write "</rss>" & vbCrLf
%>