rss.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

<!--#include file="Inc/SysConfig.Asp"-->
<% 
  Dim Sql, Rss, Siteurl, I, BoardID, Tconn,Tconnstr, Tdb, Content, Arr, Sitename, Boardname,Rs
  BoardID=Request("BoardID")
  SiteURL="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")&""
  SiteURL=Left(SiteURL,inStrRev(SiteURL,"/"))  
  Sitename=YxBBs.execute("select BBSName from [YX_Config]")(0)
  Sitename=split(sitename,"|")(0)
  
  If BoardID<>"" Then
  	boardname=YxBBs.execute("select BoardName from [YX_Board] where BoardID="&BoardID&"")(0)
	boardname=split(boardname,"|")(0)
	sitename=sitename&" - "&boardname
  End if

  Rss="<?xml version=""1.0"" encoding=""GB2312"" ?><rss version=""2.0""><channel>"
  Rss=Rss&"<title>"&sitename&"</title><link>"&siteurl&"Default.Asp</link><language>zh-cn</language><description> "&sitename&" </description><generator>Rss Generator By YimXu.Com</generator><copyright>http://www.YimXu.com/</copyright>"
  if BoardID="" then
		sql="select top 20 TopicID,Caption,Name,addtime,SqlTableID from [Yx_Topic] order by TopicID desc"
	else
		sql="select top 20 TopicID,Caption,Name,addtime,SqlTableID from [Yx_Topic] where BoardID="&BoardID&" order by TopicID desc"
	End if
	Set Rs=YxBBs.Execute(sql)
	arr=rs.getrows
	rs.close
	set rs=nothing	
	for i=0 to ubound(arr,2)
		sql="Select Content From [Yx_bbs1] where TopicID="&arr(0,i)&""
		Content=Conn.Execute(sql)(0)
		If len(content)>500 then content=left(""&content&"",500)&"..."
		Rss=Rss&"<item>"
		Rss=Rss&"<title>"&arr(1,i)&"</title>"
		Rss=Rss&"<link>"&SiteURL&"show.asp?id="&arr(0,i)&"</link>"
		Rss=Rss&"<author>"&arr(2,i)&"</author>"
		Rss=Rss&"<description><![CDATA["&YxBBs.Fun.htmlcode(content)&"]]></description>"
		Rss=Rss&"<pubDate>"&arr(3,i)&"</pubDate>"
		Rss=Rss&"</item>"
	next

	If Isobject(Tconn) Then
			Tconn.Close
			Set Tconn = Nothing
	End If
	
  Rss=Rss&"</channel></rss>"
  Response.CharSet="gb2312"
  Response.ContentType="text/xml" 
  Response.Write Rss
%>