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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
feed.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：17k
源码类别：

中间件编程

开发平台：

HTML/CSS

feed.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '//              Z-Blog
  5. '// 作    者:    朱煊(zx.asd)&(sipo)
  6. '// 版权所有:    RainbowSoft Studio
  7. '// 技术支持:    rainbowsoft@163.com
  8. '// 程序名称:    
  9. '// 程序版本:    
  10. '// 单元名称:    sydication.asp
  11. '// 开始时间:    2006.07.30
  12. '// 最后修改:    
  13. '// 备    注:    改名叫feed.asp
  14. '///////////////////////////////////////////////////////////////////////////////
  15. %>
  16. <% Option Explicit %>
  17. <% On Error Resume Next %>
  18. <% Response.Charset="UTF-8" %>
  19. <% Response.Buffer=True %>
  20. <!-- #include file="c_option.asp" -->
  21. <!-- #include file="function/c_function.asp" -->
  22. <!-- #include file="function/c_function_md5.asp" -->
  23. <!-- #include file="function/c_system_lib.asp" -->
  24. <!-- #include file="function/c_system_base.asp" -->
  25. <!-- #include file="function/c_system_event.asp" -->
  26. <!-- #include file="function/rss_lib.asp" -->
  27. <!-- #include file="function/atom_lib.asp" -->
  28. <!-- #include file="function/c_system_plugin.asp" -->
  29. <!-- #include file="plugin/p_config.asp" -->
  30. <%
  31. Call System_Initialize()
  33. 'plugin node
  34. For Each sAction_Plugin_Feed_Begin in Action_Plugin_Feed_Begin
  35. If Not IsEmpty(sAction_Plugin_Feed_Begin) Then Call Execute(sAction_Plugin_Feed_Begin)
  36. Next
  39. Dim strAct
  40. strAct="rss"
  42. '如果不是"接收引用"就要检查非法链接
  43. If (strAct<>"tb") And (strAct<>"search") Then Call CheckReference("")
  45. '权限检查
  46. If Not CheckRights(strAct) Then Call ShowError(6)
  49. '/////////////////////////////////////////////////////////////////////////////////
  50. If Not IsEmpty(Request.QueryString("cate")) Then
  51. Call ExportRSSbyCate(Request.QueryString("cate"))
  52. ElseIf Not IsEmpty(Request.QueryString("tags")) Then
  53. Call ExportRSSbyTags(Request.QueryString("tags"))
  54. ElseIf Not IsEmpty(Request.QueryString("user")) Then
  55. Call ExportRSSbyUser(Request.QueryString("user"))
  56. ElseIf Not IsEmpty(Request.QueryString("date")) Then
  57. Call ExportRSSbyDate(Request.QueryString("date"))
  58. ElseIf Not IsEmpty(Request.QueryString("cmt")) Then
  59. Call ExportRSSbyCmt(Request.QueryString("cmt"))
  60. ElseIf Not IsEmpty(Request.QueryString("gb")) Then
  61. Call ExportRSSbyGuestBook()
  62. ElseIf Not IsEmpty(Request.QueryString("atom")) Then
  63. Call ExportATOM()
  64. Response.ContentType = "text/xml"
  65. Response.Write LoadFromFile(BlogPath & "rss.xml" ,"utf-8")
  66. Else
  67. Response.ContentType = "text/xml"
  68. Response.Write LoadFromFile(BlogPath & "rss.xml" ,"utf-8")
  69. End If
  74. '/////////////////////////////////////////////////////////////////////////////////
  75. Function ExportRSSbyCate(CateID)
  77. Dim Rss2Export
  78. Dim objArticle
  80. Set Rss2Export = New TRss2Export
  82. With Rss2Export
  84. Call CheckParameter(CateID,"int",0)
  86. Dim objRS,CateName,CateIntro
  88. .TimeZone=ZC_TIME_ZONE
  90. CateName=Categorys(CateID).Name
  92. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE & " - " & CateName,"[html-format]")
  93. .AddChannelAttribute "link",TransferHTML(ZC_BLOG_HOST,"[html-format]")
  94. .AddChannelAttribute "description",TransferHTML(ZC_BLOG_SUBTITLE & " - " & CateIntro,"[html-format]")
  95. .AddChannelAttribute "generator","RainbowSoft Studio Z-Blog " & ZC_BLOG_VERSION
  96. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  97. .AddChannelAttribute "copyright",TransferHTML(ZC_BLOG_COPYRIGHT,"[nohtml][html-format]")
  98. .AddChannelAttribute "pubDate",Now
  100. Dim i
  102. Set objRS=objConn.Execute("SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>2) AND ([log_CateID]="&CateID&") ORDER BY [log_PostTime] DESC")
  104. If (Not objRS.bof) And (Not objRS.eof) Then
  105. For i=1 to ZC_RSS2_COUNT
  106. Set objArticle=New TArticle
  107. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then
  109. If ZC_RSS_EXPORT_WHOLE Then
  110. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlContent,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  111. Else
  112. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlIntro,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  113. End If
  115. End If
  116. objRS.MoveNext
  117. If objRS.eof Then Exit For
  118. Set objArticle=Nothing
  119. Next
  120. End If
  122. End With
  124. objRS.close
  125. Set objRS=Nothing
  127. Rss2Export.Execute
  129. Set Rss2Export = Nothing
  131. End Function
  136. Function ExportRSSbyUser(UserID)
  138. Dim Rss2Export
  139. Dim objArticle
  141. Set Rss2Export = New TRss2Export
  143. With Rss2Export
  145. Call CheckParameter(UserID,"int",0)
  147. Dim objRS,UserName,UserIntro
  149. .TimeZone=ZC_TIME_ZONE
  151. UserName=Users(UserID).Name
  153. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE & " - " & UserName,"[html-format]")
  154. .AddChannelAttribute "link",TransferHTML(ZC_BLOG_HOST,"[html-format]")
  155. .AddChannelAttribute "description",TransferHTML(ZC_BLOG_SUBTITLE & " - " & UserIntro,"[html-format]")
  156. .AddChannelAttribute "generator","RainbowSoft Studio Z-Blog " & ZC_BLOG_VERSION
  157. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  158. .AddChannelAttribute "copyright",TransferHTML(ZC_BLOG_COPYRIGHT,"[nohtml][html-format]")
  159. .AddChannelAttribute "pubDate",Now
  161. Dim i
  163. Set objRS=objConn.Execute("SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>2) AND ([log_AuthorID]="&UserID&") ORDER BY [log_PostTime] DESC")
  165. If (Not objRS.bof) And (Not objRS.eof) Then
  166. For i=1 to ZC_RSS2_COUNT
  167. Set objArticle=New TArticle
  168. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then
  170. If ZC_RSS_EXPORT_WHOLE Then
  171. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlContent,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  172. Else
  173. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlIntro,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  174. End If
  176. End If
  177. objRS.MoveNext
  178. If objRS.eof Then Exit For
  179. Set objArticle=Nothing
  180. Next
  181. End If
  183. End With
  185. objRS.close
  186. Set objRS=Nothing
  188. Rss2Export.Execute
  190. Set Rss2Export = Nothing
  192. End Function
  197. Function ExportRSSbyDate(YearMonth)
  199. Dim Rss2Export
  200. Dim objArticle
  202. Set Rss2Export = New TRss2Export
  204. With Rss2Export
  206. Call CheckParameter(YearMonth,"dtm",Empty)
  208. Dim objRS,UserName,UserIntro
  210. .TimeZone=ZC_TIME_ZONE
  212. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE & " - " & UserName,"[html-format]")
  213. .AddChannelAttribute "link",TransferHTML(ZC_BLOG_HOST,"[html-format]")
  214. .AddChannelAttribute "description",TransferHTML(ZC_BLOG_SUBTITLE & " - " & UserIntro,"[html-format]")
  215. .AddChannelAttribute "generator","RainbowSoft Studio Z-Blog " & ZC_BLOG_VERSION
  216. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  217. .AddChannelAttribute "copyright",TransferHTML(ZC_BLOG_COPYRIGHT,"[nohtml][html-format]")
  218. .AddChannelAttribute "pubDate",Now
  220. Dim i
  222. Set objRS=objConn.Execute("SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>2) AND (Year([log_PostTime])="&Year(YearMonth)&") AND (Month([log_PostTime])="&Month(YearMonth)&") ORDER BY [log_PostTime] DESC")
  224. If (Not objRS.bof) And (Not objRS.eof) Then
  225. Do While Not objRS.eof
  226. Set objArticle=New TArticle
  227. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then
  229. If ZC_RSS_EXPORT_WHOLE Then
  230. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlContent,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  231. Else
  232. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlIntro,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  233. End If
  235. End If
  236. objRS.MoveNext
  237. If objRS.eof Then Exit Do
  238. Set objArticle=Nothing
  239. Loop
  240. End If
  242. End With
  244. objRS.close
  245. Set objRS=Nothing
  247. Rss2Export.Execute
  249. Set Rss2Export = Nothing
  251. End Function
  256. Function ExportRSSbyTags(TagsID)
  258. Dim Rss2Export
  259. Dim objArticle
  261. Set Rss2Export = New TRss2Export
  263. With Rss2Export
  265. Call CheckParameter(TagsID,"int",0)
  267. Dim objRS,TagName
  269. .TimeZone=ZC_TIME_ZONE
  271. TagName=Tags(TagsID).Name
  273. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE,"[html-format]") & " - " & TagName
  274. .AddChannelAttribute "link",TransferHTML(ZC_BLOG_HOST,"[html-format]")
  275. .AddChannelAttribute "description",TransferHTML(ZC_BLOG_SUBTITLE,"[html-format]") & " - " & TagName
  276. .AddChannelAttribute "generator","RainbowSoft Studio Z-Blog " & ZC_BLOG_VERSION
  277. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  278. .AddChannelAttribute "copyright",TransferHTML(ZC_BLOG_COPYRIGHT,"[nohtml][html-format]")
  279. .AddChannelAttribute "pubDate",Now
  281. Dim i
  283. Set objRS=objConn.Execute("SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>2) AND ([log_Tag] LIKE '%{"&TagsID&"}%') ORDER BY [log_PostTime] DESC")
  285. If (Not objRS.bof) And (Not objRS.eof) Then
  286. For i=1 to ZC_RSS2_COUNT
  287. Set objArticle=New TArticle
  288. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then
  290. If ZC_RSS_EXPORT_WHOLE Then
  291. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlContent,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  292. Else
  293. .AddItem objArticle.HtmlTitle,Users(objArticle.AuthorID).Email & " (" & Users(objArticle.AuthorID).Name & ")",objArticle.HtmlUrl,objArticle.PostTime,objArticle.HtmlUrl,objArticle.HtmlIntro,Categorys(objArticle.CateID).HtmlName,objArticle.CommentUrl,objArticle.WfwComment,objArticle.WfwCommentRss,objArticle.TrackBackUrl
  294. End If
  296. End If
  297. objRS.MoveNext
  298. If objRS.eof Then Exit For
  299. Set objArticle=Nothing
  300. Next
  301. End If
  303. End With
  305. objRS.close
  306. Set objRS=Nothing
  308. Rss2Export.Execute
  310. Set Rss2Export = Nothing
  312. End Function
  317. Function ExportRSSbyGuestBook()
  319. Dim Rss2Export
  320. Dim objArticle
  322. Set Rss2Export = New TRss2Export
  324. With Rss2Export
  326. .TimeZone=ZC_TIME_ZONE
  328. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE & "-" & ZC_MSG275,"[html-format]")
  329. .AddChannelAttribute "link",ZC_BLOG_HOST & "guestbook.asp"
  330. .AddChannelAttribute "description",TransferHTML(ZC_BLOG_SUBTITLE,"[html-format]")
  331. .AddChannelAttribute "generator","Z-Blog " & ZC_BLOG_VERSION
  332. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  333. .AddChannelAttribute "pubDate",Now
  335. Dim objRS
  336. Dim objComment
  337. Set objRS=objConn.Execute("SELECT TOP " & ZC_RSS2_COUNT & " * FROM [blog_Comment] WHERE ([comm_ID]>0) AND ([log_ID]=0) ORDER BY [comm_PostTime] DESC")
  339. Do While Not objRS.eof
  341. Set objComment=New TComment
  342. If objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),objRS("comm_IP"),objRS("comm_Agent"))) Then
  343. .AddItem objComment.Author & " Re:"&ZC_MSG275,objComment.Email & " (" & objComment.Author & ")",ZC_BLOG_HOST & "guestbook.asp" & "#cmt" & objComment.ID,objComment.PostTime,ZC_BLOG_HOST & "guestbook.asp" & "#cmt" & objComment.ID,objComment.HtmlContent,"","","","",""
  344. End If
  345. Set objComment=Nothing
  347. objRS.MoveNext
  349. Loop
  351. objRS.close
  352. Set objRS=Nothing
  354. Set objArticle=Nothing
  356. End With
  358. Rss2Export.Execute
  360. Set Rss2Export = Nothing
  362. End Function
  367. Function ExportRSSbyCmt(intID)
  369. Dim Rss2Export
  370. Dim objArticle
  371. Dim objRS
  372. Dim objComment
  374. Set Rss2Export = New TRss2Export
  376. With Rss2Export
  378. Call CheckParameter(intID,"int",0)
  380. Set objArticle=New TArticle
  381. If intID = 0 Then
  383. .TimeZone=ZC_TIME_ZONE
  385. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE & "-" & ZC_MSG027,"[html-format]")
  386. .AddChannelAttribute "link",ZC_BLOG_HOST
  387. .AddChannelAttribute "description",TransferHTML(ZC_BLOG_SUBTITLE,"[html-format]")
  388. .AddChannelAttribute "generator","Z-Blog " & ZC_BLOG_VERSION
  389. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  390. .AddChannelAttribute "pubDate",Now
  393. Set objRS=objConn.Execute("SELECT TOP " & ZC_RSS2_COUNT & " * FROM [blog_Comment] WHERE ([comm_ID]>0) AND ([log_ID]>0) ORDER BY [comm_PostTime] DESC")
  395. Do While Not objRS.eof
  397. Set objComment=New TComment
  398. If objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),objRS("comm_IP"),objRS("comm_Agent"))) And objArticle.LoadInfoByID(objRS("log_ID")) Then
  399. .AddItem objComment.Author & " Re:"&objArticle.HtmlTitle,objComment.Email & " (" & objComment.Author & ")",objArticle.HtmlUrl & "#cmt" & objComment.ID,objComment.PostTime,objArticle.HtmlUrl & "#cmt" & objComment.ID,objComment.HtmlContent,"","","","",""
  400. End If
  401. Set objComment=Nothing
  403. objRS.MoveNext
  405. Loop
  407. objRS.close
  408. Set objRS=Nothing
  410. ElseIf objArticle.LoadInfoByID(intID) Then
  412. .TimeZone=ZC_TIME_ZONE
  414. .AddChannelAttribute "title",TransferHTML(ZC_BLOG_TITLE,"[html-format]")& "-" & objArticle.HtmlTitle
  415. .AddChannelAttribute "link",objArticle.HtmlUrl
  416. .AddChannelAttribute "generator","RainbowSoft Studio Z-Blog " & ZC_BLOG_VERSION
  417. .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
  418. .AddChannelAttribute "pubDate",objArticle.PostTime
  420. If objArticle.CommNums>0 Then
  422. Set objRS=objConn.Execute("SELECT * FROM [blog_Comment] WHERE ([comm_ID]>0) AND ([log_ID]="&intID&") ORDER BY [comm_PostTime] DESC")
  424. Do While Not objRS.eof
  426. Set objComment=New TComment
  427. If objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),objRS("comm_IP"),objRS("comm_Agent"))) Then
  428. .AddItem "Re:"&objArticle.HtmlTitle,objComment.Email & " (" & objComment.Author & ")",objArticle.HtmlUrl & "#cmt" & objComment.ID,objComment.PostTime,objArticle.HtmlUrl & "#cmt" & objComment.ID,objComment.HtmlContent,"","","","",""
  429. End If
  430. Set objComment=Nothing
  432. objRS.MoveNext
  434. Loop
  436. objRS.close
  437. Set objRS=Nothing
  438. End If
  439. End If
  440. Set objArticle=Nothing
  442. End With
  444. Rss2Export.Execute
  446. Set Rss2Export = Nothing
  448. End Function
  449. '/////////////////////////////////////////////////////////////////////////////////
  452. 'plugin node
  453. For Each sAction_Plugin_Feed_End in Action_Plugin_Feed_End
  454. If Not IsEmpty(sAction_Plugin_Feed_End) Then Call Execute(sAction_Plugin_Feed_End)
  455. Next
  457. Call System_Terminate()
  459. If Err.Number<>0 then
  460. Call ShowError(0)
  461. End If
  462. %>