www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/soft/rssfeed.asp
<!--#include file="config.asp"--> <% Dim Rs,SQL,foundstr Dim classid,ChildStr Dim RssBody,RssTitle,RssHomePageUrl Dim XMLDOM,node,Cnode,Cnode1,msginfo Dim ChannelsetArray,xmlFilePath,m_xmlFilePath,m_strXmlPath,TextContent,isxmltext,xmlfilename Set XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM") XMLDOM.appendChild(XMLDOM.createElement("rss")) XMLDOM.documentElement.attributes.setNamedItem(XMLDOM.createNode(2,"version","")).text="2.0" Set node = XMLDOM.documentElement.appendChild(XMLDOM.createNode(1,"channel","")) node.appendChild(XMLDOM.createTextNode(vbCrLf)) RssTitle = "获取软件列表" classid = Newasp.CheckNumeric(Request("classid")) Dim ChannelRootDir,m_strInstallPath If Newasp.BindDomain = "0" Then ChannelRootDir = Newasp.SiteUrl & Newasp.InstallDir & Newasp.ChannelDir RssHomePageUrl = Newasp.SiteUrl m_strInstallPath = Newasp.InstallDir & Newasp.ChannelDir Else ChannelRootDir = Newasp.DomainName & "/" RssHomePageUrl = Newasp.DomainName m_strInstallPath = "/" End If ChannelsetArray = Split(Newasp.Channel_Setting & "|||||||||||||||", "|||") m_xmlFilePath = Trim(ChannelsetArray(12)) If Len(m_xmlFilePath) > 2 And InStr(m_xmlFilePath, ":") > 0 Then m_strXmlPath = m_xmlFilePath &"\" Else m_strXmlPath = Server.MapPath(m_strInstallPath & m_xmlFilePath) & "\" End If m_strXmlPath = Replace(m_strXmlPath, "\\", "\") Sub XMLSoftList() Dim specialID,stype If Trim(Request("specialID")) <> "" Then specialID = Newasp.CheckNumeric(Request("SpecialID")) specialID = CLng(specialID) If specialID = 0 Then foundstr = "And A.specialID>0 ORDER BY A.SoftTime DESC ,A.SoftID DESC" Else foundstr = "And A.specialID=" & specialID & " ORDER BY A.SoftTime DESC ,A.SoftID DESC" End If Else If classid > 0 Then SQL = "SELECT ClassName,ChildStr FROM [NC_Classify] WHERE ChannelID = " & ChannelID & " And ClassID=" & CLng(classid) Set Rs = Newasp.Execute(SQL) If Rs.BOF And Rs.EOF Then Set Cnode=node.appendChild(XMLDOM.createNode(1,"item","")) Cnode.appendChild(XMLDOM.createNode(1,"title","")).text="没有找到软件分类" Cnode.appendChild(XMLDOM.createNode(1,"link","")).text=RssHomePageUrl Cnode.appendChild(XMLDOM.createNode(1,"author","")).text=Newasp.SiteName Cnode.appendChild(XMLDOM.createNode(1,"pubDate","")).text=Newasp.FormatDate(Now(),1) Set Cnode1=Cnode.appendChild(XMLDOM.createNode(1,"description","")) msginfo= "没有找到软件分类!" Cnode1.appendChild(XMLDOM.createCDATASection(msginfo)) Cnode.appendChild(XMLDOM.createNode(1,"category","")).text=" " Rs.Close: Set Rs = Nothing Exit Sub Else RssTitle = Rs("ClassName") & "最新软件订阅" ChildStr = Rs("ChildStr") End If Rs.Close:Set Rs = Nothing foundstr = "And A.ClassID in (" & ChildStr & ") ORDER BY A.SoftTime DESC ,A.SoftID DESC" Else RssTitle = "最近更新软件订阅" foundstr = "ORDER BY A.SoftTime DESC ,A.SoftID DESC" End If End If If Trim(Request("type")) <> "" Then stype = Newasp.CheckNumeric(Request("type")) stype = CInt(stype) If stype = 0 Then foundstr = Replace(foundstr, "A.SoftTime", "A.AllHits") Else foundstr = "And IsBest>0 " & foundstr End If End If 'node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"title","")).text=RssTitle & " - " & Newasp.SiteName node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"link","")).text=Newasp.SiteUrl node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"language","")).text="zh-cn" node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"description","")).text=Newasp.SiteName node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"copyright","")).text=Newasp.SiteUrl node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"generator","")).text="Rss Generator By Newasp.Net" node.appendChild(XMLDOM.createTextNode(vbCrLf)) node.appendChild(XMLDOM.createNode(1,"docs","")).text=RssHomePageUrl & Request.ServerVariables("PATH_INFO") node.appendChild(XMLDOM.createTextNode(vbCrLf)) Set Cnode=node.appendChild(XMLDOM.createNode(1,"image","")) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"title","")).appendChild(XMLDOM.createCDATASection(Replace(Trim(Newasp.SiteName), " ", ""))) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"url","")).text=Newasp.SiteUrl & "/images/logo.gif" Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"link","")).text=Newasp.SiteUrl Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Dim HtmlFileName,HtmlFileUrl SQL = " A.SoftID,A.ClassID,A.SoftName,A.SoftVer,A.SoftSize,A.[Content],A.impower,A.SoftTime,A.HtmlFileDate,A.username,A.isxmltext,A.xmlfilename," SQL = "SELECT TOP 100 " & SQL & " C.ClassName,C.HtmlFileDir,C.UseHtml,B.ChannelDir,B.StopChannel,B.ModuleName,B.IsCreateHtml,B.HtmlExtName FROM ([NC_SoftList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID) INNER JOIN [NC_Channel] B On A.ChannelID=B.ChannelID WHERE A.isAccept>0 And A.ChannelID=" & CLng(ChannelID) & " " & foundstr & "" Set Rs = Newasp.Execute(SQL) If Rs.BOF And Rs.EOF Then Set Cnode=node.appendChild(XMLDOM.createNode(1,"item","")) Cnode.appendChild(XMLDOM.createNode(1,"title","")).text="没有找到你想下载的软件" Set Cnode1=Cnode.appendChild(XMLDOM.createNode(1,"description","")) msginfo= "没有找到你想下载的软件!" Cnode1.appendChild(XMLDOM.createCDATASection(msginfo)) Cnode.appendChild(XMLDOM.createNode(1,"link","")).text=RssHomePageUrl Cnode.appendChild(XMLDOM.createNode(1,"category","")).text=" " Cnode.appendChild(XMLDOM.createNode(1,"author","")).text=Newasp.SiteName Cnode.appendChild(XMLDOM.createNode(1,"comments","")).text=RssHomePageUrl Cnode.appendChild(XMLDOM.createNode(1,"pubDate","")).text=Newasp.FormatDate(Now(),1) Rs.Close: Set Rs = Nothing Exit Sub Else Do While Not Rs.EOF If Rs("IsCreateHtml") <> 0 Then HtmlFileUrl = RssHomePageUrl & Newasp.ReadDestination(Newasp.InfoDestination, Newasp.ChannelDir, Rs("HtmlFileDate"),Rs("HtmlFileDir"),Rs("ClassID"),Rs("softid"),1,"") Else If IsURLRewrite Then HtmlFileUrl = ChannelRootDir & Rs("softid") & Newasp.HtmlExtName Else HtmlFileUrl = ChannelRootDir & "show.asp?id=" & Rs("softid") End If End If '--如果是XML文件,就从XML文件中读出内容------ isxmltext = Newasp.ChkNumeric(Rs("isxmltext")) xmlfilename = Rs("xmlfilename") & "" If isxmltext = 1 Then xmlFilePath = m_strXmlPath & xmlfilename TextContent = Newasp.ReadXMLDocument(xmlFilePath,"softinfo/@content") If TextContent = "" Then TextContent = Rs("content") & "" Else TextContent = Rs("content") End If '--------------------------------------------- node.appendChild(XMLDOM.createTextNode(vbCrLf)) Set Cnode=node.appendChild(XMLDOM.createNode(1,"item","")) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"title","")).appendChild(XMLDOM.createCDATASection(Replace(Trim(Rs("SoftName") & " " & Rs("SoftVer")), " ", ""))) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Set Cnode1=Cnode.appendChild(XMLDOM.createNode(1,"description","")) msginfo= Newasp.CutString(TextContent, 300) Cnode1.appendChild(XMLDOM.createCDATASection(msginfo)) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"link","")).appendChild(XMLDOM.createCDATASection(HtmlFileUrl)) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"author","")).appendChild(XMLDOM.createCDATASection(Rs("impower"))) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"pubDate","")).appendChild(XMLDOM.createCDATASection(Newasp.FormatDate(Rs("SoftTime"),1))) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"category","")).appendChild(XMLDOM.createCDATASection(Rs("ClassName"))) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Cnode.appendChild(XMLDOM.createNode(1,"comments","")).appendChild(XMLDOM.createCDATASection(HtmlFileUrl)) Cnode.appendChild(XMLDOM.createTextNode(vbCrLf)) Rs.MoveNext Loop End If Rs.Close: Set Rs = Nothing node.appendChild(XMLDOM.createTextNode(vbCrLf)) End Sub Sub ShowXML() Response.Clear Response.CharSet="gb2312" Response.ContentType="text/xml" Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>" & vbCrLf 'Response.Write "<?xml-stylesheet type=""text/xsl"" href=""../skin/rssdown.xslt"" version=""1.0""?>" & vbCrLf Response.Write XMLDOM.xml & vbCrLf Set XMLDOM=Nothing End Sub XMLSoftList() ShowXML() CloseConn %>