开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编辑器/阅读器 > 查看源码
feed.asp
资源名称：Codejia.com_Rss.rar　[点击查看]
上传用户：rblchem
上传日期：2022-04-27
资源大小：1941k
文件大小：7k
源码类别：

编辑器/阅读器

开发平台：

C#

feed.asp：源码内容
  1. <!-- #include file="INCLUDE/head.ASP" -->
  2. <%
  3. Response.ContentType="text/xml"
  4. Response.Expires=60
  5. dbcate="/"%>
  6. <!--#include file="INCLUDE/conn.asp" -->
  7. <!--#include file="INCLUDE/RegExpFunction.asp" -->
  8. <%
  9. Function IsInteger(Para) 
  10. IsInteger=False
  11. If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
  12. IsInteger=True
  13. End If
  14. End Function
  15. Function DateToStr(DateTime,ShowType)  
  16. Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond
  17. Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2
  18. TimeZone1="+0800"
  19. TimeZone2="+08:00"
  20. FullWeekday=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
  21. shortWeekday=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
  22.     Fullmonth=Array("January","February","March","April","May","June","July","August","September","October","November","December")
  23.     Shortmonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
  25. DateMonth=Month(DateTime)
  26. DateDay=Day(DateTime)
  27. DateHour=Hour(DateTime)
  28. DateMinute=Minute(DateTime)
  29. DateWeek=weekday(DateTime)
  30. DateSecond=Second(DateTime)
  31. If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
  32. If Len(DateDay)<2 Then DateDay="0"&DateDay
  33. If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
  34. Select Case ShowType
  35. Case "Y-m-d"  
  36. DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
  37. Case "Y-m-d H:I A"
  38. Dim DateAMPM
  39. If DateHour>12 Then 
  40. DateHour=DateHour-12
  41. DateAMPM="PM"
  42. Else
  43. DateHour=DateHour
  44. DateAMPM="AM"
  45. End If
  46. If Len(DateHour)<2 Then DateHour="0"&DateHour
  47. DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
  48. Case "Y-m-d H:I:S"
  49. If Len(DateHour)<2 Then DateHour="0"&DateHour
  50. If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
  51. DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
  52. Case "YmdHIS"
  53. DateSecond=Second(DateTime)
  54. If Len(DateHour)<2 Then DateHour="0"&DateHour
  55. If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
  56. DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond
  57. Case "ym"
  58. DateToStr=Right(Year(DateTime),2)&DateMonth
  59. Case "d"
  60. DateToStr=DateDay
  61.     Case "ymd"
  62.         DateToStr=Right(Year(DateTime),4)&DateMonth&DateDay
  63.     Case "mdy" 
  64.         Dim DayEnd
  65.         select Case DateDay
  66.          Case 1 
  67.           DayEnd="st"
  68.          Case 2
  69.           DayEnd="nd"
  70.          Case 3
  71.           DayEnd="rd"
  72.          Case Else
  73.           DayEnd="th"
  74.         End Select 
  75.         DateToStr=Fullmonth(DateMonth-1)&" "&DateDay&DayEnd&" "&Right(Year(DateTime),4)
  76.     Case "w,d m y H:I:S" 
  77. DateSecond=Second(DateTime)
  78. If Len(DateHour)<2 Then DateHour="0"&DateHour
  79. If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
  80.         DateToStr=shortWeekday(DateWeek-1)&","&DateDay&" "& Left(Fullmonth(DateMonth-1),3) &" "&Right(Year(DateTime),4)&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&TimeZone1
  81.     Case "y-m-dTH:I:S"
  82. If Len(DateHour)<2 Then DateHour="0"&DateHour
  83. If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
  84. DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"T"&DateHour&":"&DateMinute&":"&DateSecond&TimeZone2
  85. Case Else
  86. If Len(DateHour)<2 Then DateHour="0"&DateHour
  87. DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
  88. End Select
  89. End Function
  90. %>
  91. <%
  92. Set conn=ConnectDB()
  93. Dim cate_ID,FeedCate,FeedTitle,memName,FeedRows
  94. cate_ID=Request.QueryString("cateID")
  95. call CheckParameter(cate_ID,"int",empty)
  96. FeedCate=False
  97. FeedTitle=XNA_Title
  98. IF IsInteger(cate_ID) = False Then
  99. SQL="SELECT TOP "&XML_NUM&" * from Article order by pubDate desc"
  100. Else
  101. SQL="SELECT TOP "&XML_NUM&" * from [Article] INNER JOIN [Category] ON Article.Category_id = Category.Category_id WHERE Article.Category_id="&cate_ID&" order by pubDate desc"
  102.     FeedCate=True
  103. End IF
  105. Set RS=Conn.ExeCute(SQL)
  106. if RS.EOF or RS.BOF then
  107. ReDim FeedRows(0,0)
  108.  else
  109.    if FeedCate then FeedTitle=XNA_Title & " - " & RS("Category_Name")
  110. FeedRows=RS.getrows()
  111. end if
  112. RS.close
  113. set RS=nothing
  114. CloseDB(conn)
  116. Set objXMLdoc = CreateObject("Microsoft.XMLDOM")
  117. objXMLdoc.preserveWhiteSpace = True
  118. Set objPI = objXMLdoc.createProcessingInstruction ("xml","version='1.0' encoding='utf-8'")
  119. objXMLdoc.insertBefore objPI, objXMLdoc.childNodes(0)
  120. Set objXMLroot = objXMLdoc.createNode("element", "rss", "")
  121. objXMLroot.SetAttribute "version", "2.0"
  122. objXMLdoc.AppendChild(objXMLroot)
  123. set objXMLchannel = objXMLdoc.createNode("element", "channel", "")
  124. objXMLroot.AppendChild(objXMLchannel)
  125. set objXMLTitle = objXMLdoc.createNode("element", "title", "")
  126. objXMLTitle.Text = FeedTitle
  127. objXMLchannel.AppendChild(objXMLTitle)
  128. set objXMLink = objXMLdoc.createNode("element", "link", "")
  129. objXMLink.Text = XNA_URL
  130. objXMLchannel.AppendChild(objXMLink)
  131. set objXMLDescription = objXMLdoc.createNode("element", "description", "")
  132. objXMLDescription.Text = XNA_description
  133. objXMLchannel.AppendChild(objXMLDescription)
  134. set objXMLanguage = objXMLdoc.createNode("element", "language", "")
  135. objXMLanguage.Text = "zh-cn"
  136. objXMLchannel.AppendChild(objXMLanguage)
  137. set objXMLPubDate = objXMLdoc.createNode("element", "pubDate", "")
  138. objXMLPubDate.Text = Now()
  139. objXMLchannel.AppendChild(objXMLPubDate)
  140. set objXMLgenerator = objXMLdoc.createNode("element", "generator", "")
  141. objXMLgenerator.Text = "SXNA(www.sxna.cn)(www.dc9.cn)"
  142. objXMLchannel.AppendChild(objXMLgenerator)
  143. set objXMLcopyright = objXMLdoc.createNode("element", "copyright", "")
  144. objXMLcopyright.Text = "Copyright 2005 sxna.cn, All rights reserved."
  145. objXMLchannel.AppendChild(objXMLcopyright)
  147. If ubound(FeedRows,2)=0 then
  148. set objXMLItem = objXMLdoc.createNode("element", "item", "")
  149. objXMLchannel.AppendChild(objXMLItem)
  150. Else
  151. for i=0 to ubound(FeedRows,2)
  152. set objXMLItem = objXMLdoc.createNode("element", "item", "")
  153. objXMLchannel.AppendChild(objXMLItem)
  154. set objXMLTitle = objXMLdoc.createNode("element", "title", "")
  155. objXMLTitle.Text = FeedRows(0,i)
  156. objXMLItem.AppendChild(objXMLTitle)
  157. set objXMLAuthor = objXMLdoc.createNode("element", "author", "")
  158. objXMLAuthor.Text = FeedRows(1,i)
  159. objXMLItem.AppendChild(objXMLAuthor)
  160. set objXMLPubDate = objXMLdoc.createNode("element", "pubDate", "")
  161. objXMLPubDate.Text = DateToStr(FeedRows(3,i),"w,d m y H:I:S")
  162. objXMLItem.AppendChild(objXMLPubDate)
  163. set objXMLink = objXMLdoc.createNode("element", "link", "")
  164. objXMLink.Text = FeedRows(2,i)
  165. objXMLItem.AppendChild(objXMLink)
  166. set objXMLDescription = objXMLdoc.createNode("element", "description", "")
  167. objXMLDescription.Text = FeedRows(4,i)
  168. objXMLItem.AppendChild(objXMLDescription)
  169. next
  170. End If
  171. response.write objXMLDoc.xml
  172. %>