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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Class_makerss.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：13k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Class_makerss.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="lib/cls_main.asp" -->
  7. <%'CopyRight (c) 2006 Fooun Inc. Code by Simpwind.Xie
  8. Dim Conn,User_Conn,strShowErr,Fs_news,obj_mf_sys_obj,MF_Domain,MF_Site_Name,tmp_c_path
  9. MF_Default_Conn
  10. MF_User_Conn
  11. 'session判断
  12. MF_Session_TF
  13. '权限判断
  14. set Fs_news = new Cls_News
  15. Fs_News.GetSysParam()
  16. set obj_mf_sys_obj = Conn.execute("select top 1 MF_Domain,MF_Site_Name from FS_MF_Config")
  17. if obj_mf_sys_obj.eof then
  18. strShowErr = "<li>找不到主系统配置信息！</li>"
  19. Response.Redirect("lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  20. Response.end
  21. else
  22. MF_Domain = obj_mf_sys_obj("MF_Domain")
  23. MF_Site_Name = obj_mf_sys_obj("MF_Site_Name")
  24. end if
  25. obj_mf_sys_obj.close:set obj_mf_sys_obj = nothing
  26. tmp_c_path =MF_Domain &"/"&G_VIRTUAL_ROOT_DIR
  27. 'If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
  28. dim Classid,signxml
  29. Classid = NoSqlHack(Request.QueryString("cid"))
  30. signxml = NoSqlHack(Request.QueryString("signxml"))
  31. if not Get_SubPop_TF(Classid,"NS022","NS","class") then
  32. Response.Redirect("lib/error.asp?ErrCodes=缺少权限&ErrorUrl=")
  33. Response.end
  34. End if
  36. %>
  37. <html>
  38. <head>
  39. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  40. <title>栏目管理___Powered by foosun Inc.</title>
  41. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  42. <style>
  43. .RefreshLen{
  44. height: 20px;
  45. width: 400px;
  46. border: 1px solid #104a7b;
  47. text-align: left;
  48. MARGIN-top:50px;
  49. margin-bottom: 5px;
  50. }
  51. </style>
  52. </head>
  53. <body>
  54. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  55.   <tr class="hback">
  56.     <td class="xingmu">栏目管理<a href="../../help?Lable=NS_Class_Action" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  57.   </tr>
  58.   <tr>
  59.     <td height="18" class="hback"><div align="left"><a href="Class_Manage.asp">管理首页</a>┆<a href="Class_add.asp?ClassID=&Action=add">添加根栏目</a>┆<a href="Class_Action.asp?Action=one">一级栏目排序</a>┆<a href="Class_Action.asp?Action=n">N级栏目排序</a>┆<a href="Class_Action.asp?Action=reset"   onClick="{if(confirm('确认复位所有栏目？nn如果选择确定，所有的栏目将设置为一级分类!!')){return true;}return false;}">复位所有栏目</a>┆<a href="Class_Action.asp?Action=unite">栏目合并</a>┆<a href="Class_Action.asp?Action=allmove">栏目转移</a>
  60.         ┆ <a href="Class_Action.asp?Action=clearClass"  onClick="{if(confirm('确认清空所有栏目里的数据吗？nn如果选择确定,所有的栏目的新闻将被放到回收站中!!')){return true;}return false;}">删除所有栏目</a>┆<a href="../../help?Lable=NS_Class_Action_1" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></div></td>
  61.   </tr>
  62. </table>
  63. <%
  64. '待修正加入RSS参数
  65. Server.ScriptTimeOut=999999999
  66. Dim ArrClassid,tmp_k,i,savepath,obj_classxml_rs,obj_news_rs,p1,xml_c_list,obj_class_rs,i_k,class_tmp
  67. dim obj_all_rs,xml_c_all_list
  68. savepath = Replace(""&G_VIRTUAL_ROOT_DIR&"xml","\","")
  69. If signxml="one" Then
  70. set obj_news_rs = Server.CreateObject(G_FS_RS)
  71. obj_news_rs.open "select  top "& Fs_news.rssNumber&" id,newsid,newstitle,content,addtime,author From FS_NS_News where classid='"&classid&"' and isdraft=0 and isRecyle=0 and isLock=0 order by PopId desc,id desc",conn,1,3
  72. set class_tmp = conn.execute("select ClassName,ClassEName,SavePath,IsURL,[Domain],FileExtName from FS_NS_NewsClass where Classid='"& Classid &"'")
  73. if class_tmp("IsURL")=1 then
  74. strShowErr = "<li>外部拦目不能生成！</li>"
  75. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  76. Response.end
  77. end if
  78. call headxml(xml_c_list,class_tmp("ClassName"),class_tmp("ClassEName"),class_tmp("SavePath"),class_tmp("Domain"),class_tmp("FileExtName"))
  79. class_tmp.close:set class_tmp =nothing
  80. if not obj_news_rs.eof then
  81. do while not obj_news_rs.eof
  82. xml_c_list =  xml_c_list & "<item>"& chr(13) & chr(10)
  83. xml_c_list =  xml_c_list & " <title>"& obj_news_rs("NewsTitle")&"</title>"& chr(13) & chr(10)
  84. xml_c_list =  xml_c_list & " <link>"& obj_news_rs("NewsID")&"</link>"& chr(13) & chr(10)
  85. if trim(obj_news_rs("Content"))<>empty  or not isnull(trim(obj_news_rs("Content"))) then
  86. xml_c_list =  xml_c_list & " <description><![CDATA["& GotTopic(obj_news_rs("Content"),Fs_news.rssContentNumber)&"]]></description>"& chr(13) & chr(10)
  87. else
  88. xml_c_list =  xml_c_list & " <description><![CDATA[无内容]]></description>"& chr(13) & chr(10)
  89. end if
  90. xml_c_list =  xml_c_list & " <pubDate>"& obj_news_rs("addtime")&"</pubDate>"& chr(13) & chr(10)
  91. xml_c_list =  xml_c_list & " <author>"& obj_news_rs("Author")&"</author>"& chr(13) & chr(10)
  92. xml_c_list =  xml_c_list & "</item>"& chr(13) & chr(10)
  93. obj_news_rs.movenext
  94. loop
  95. xml_c_list =  xml_c_list & "</channel>"& chr(13) & chr(10)
  96. xml_c_list =  xml_c_list & "</rss>"& chr(13) & chr(10)
  97. call SaveFile(xml_c_list,Classid,"xml",savepath,"NS")
  98. strShowErr = "<li>Xml生成成功！</li>"
  99. else
  100. strShowErr = "<li>Xml失败，没有符合条件的新闻！</li>"
  101. end if
  102. obj_news_rs.close:set obj_news_rs=nothing
  103. call newslist()
  104. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  105. Response.end
  106. Else
  107. If signxml="All" Then
  108. Classid=""
  109. Set class_tmp = conn.execute("select ClassID from FS_NS_NewsClass where IsURL=0")
  110. While Not class_tmp.Eof
  111. If Classid="" Then
  112. Classid=class_tmp(0)
  113. Else
  114. Classid=Classid&","&class_tmp(0)
  115. End If
  116. class_tmp.MoveNext
  117. Wend
  118. class_tmp.close
  119. Set class_tmp=Nothing
  120. End If
  121. If instr(Classid,",")=0 Then 
  122. strShowErr = "<li>批量生成xml至少选择2项</li>"
  123. Response.Redirect("lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  124. Response.End 
  125. Else 
  126. Call Allxml()
  127. Call newslist()
  128. End If 
  129. End if
  130. sub Allxml()
  131. ArrClassid =split(Classid,",")
  132. p1=UBound(ArrClassid)
  133. response.Write("<div style=""text-align: center;"">")
  134. response.Write("<div class=""RefreshLen""><div class=""xingmu"" id=""RefreshLen""></div></div><span id=""result_str""></span><br><br>")
  135. i=0
  136. i_k=0
  137. for  tmp_k = 0 to UBound(ArrClassid)
  138. set obj_class_rs = conn.execute("select classename,classname from FS_NS_NewsClass where classid='"& ArrClassid(tmp_k) &"'")
  139. if obj_class_rs.eof then
  140. i=i+1
  141. else
  142. set obj_news_rs = Server.CreateObject(G_FS_RS)
  143. obj_news_rs.open "select  top "& Fs_news.rssNumber&" id,newsid,newstitle,content,addtime,author From FS_NS_News where classid='"&ArrClassid(tmp_k) &"' and isdraft=0 and isRecyle=0 and isLock=0 order by PopId desc,id desc",conn,1,3
  144. set class_tmp = conn.execute("select ClassName,ClassEName,SavePath,[Domain],FileExtName from FS_NS_NewsClass where Classid='"& ArrClassid(tmp_k) &"'")
  145. call headxml(xml_c_list,class_tmp("ClassName"),class_tmp("ClassEName"),class_tmp("SavePath"),class_tmp("Domain"),class_tmp("FileExtName"))
  146. class_tmp.close:set class_tmp =nothing
  147. if i = p1 then
  148. Response.Write "<script>RefreshLen.style.width ="""&int(i/p1*100)&"%"";RefreshLen.innerHTML=""&nbsp;<span class=xingmu>"&int(i/p1*100)&"%</span>"";result_str.innerHTML=""当前栏目:"&obj_class_rs("classname")&"<br><span class=tx>生成完毕....ok!!共:"& i+1 &"个,生成了"& i_k &"个&nbsp;&nbsp;&nbsp;未生成原因：栏目下找不到符合条件的RSS聚合新闻</span>"";</script>" & VbCrLf
  149. else
  150. Response.Write "<script>RefreshLen.style.width ="""&int(i/p1*100)&"%"";RefreshLen.innerHTML=""&nbsp;<span class=xingmu>"&int(i/p1*100)&"%</span>"";result_str.innerHTML=""当前栏目:"&obj_class_rs("classname")&""";</script>" & VbCrLf
  151. end if
  152. Response.Flush
  153. if not obj_news_rs.eof then
  154. do while not obj_news_rs.eof
  155. xml_c_list =  xml_c_list & "<item>"& chr(13) & chr(10)
  156. xml_c_list =  xml_c_list & " <title>"& obj_news_rs("NewsTitle")&"</title>"& chr(13) & chr(10)
  157. xml_c_list =  xml_c_list & " <link>"& obj_news_rs("NewsID")&"</link>"& chr(13) & chr(10)
  158. if trim(obj_news_rs("Content"))<>empty  or not isnull(trim(obj_news_rs("Content"))) then
  159. xml_c_list =  xml_c_list & " <description><![CDATA["& GotTopic(obj_news_rs("Content"),Fs_news.rssContentNumber)&"]]></description>"& chr(13) & chr(10)
  160. else
  161. xml_c_list =  xml_c_list & " <description><![CDATA[无内容]]></description>"& chr(13) & chr(10)
  162. end if
  163. xml_c_list =  xml_c_list & " <pubDate>"& obj_news_rs("addtime")&"</pubDate>"& chr(13) & chr(10)
  164. xml_c_list =  xml_c_list & " <author>"& obj_news_rs("Author")&"</author>"& chr(13) & chr(10)
  165. xml_c_list =  xml_c_list & "</item>"& chr(13) & chr(10)
  166. obj_news_rs.movenext
  167. loop
  168. xml_c_list =  xml_c_list & "</channel>"& chr(13) & chr(10)
  169. xml_c_list =  xml_c_list & "</rss>"& chr(13) & chr(10)
  170. call SaveFile(xml_c_list,ArrClassid(tmp_k),"xml",savepath,"NS")
  171. set obj_news_rs=nothing
  172. i_k = i_k + 1
  173. end  if
  174. i=i+1
  175. end if
  176. next
  177. response.Write("</div>")
  178. End sub
  179. sub newslist()
  180. set obj_all_rs = Server.CreateObject(G_FS_RS)
  181. obj_all_rs.open "select  top "& Fs_news.rssNumber&" id,newsid,newstitle,content,addtime,author From FS_NS_News where isdraft=0 and isRecyle=0 and isLock=0 order by PopId desc,id desc",conn,1,3
  182. if not obj_all_rs.eof then
  183. set class_tmp = conn.execute("select ClassName,ClassEName,SavePath,[Domain],FileExtName from FS_NS_NewsClass where Classid='"& Classid &"'")
  184. xml_c_all_list = "<?xml version=""1.0"" encoding=""gb2312""?>" & chr(13) & chr(10)
  185. xml_c_all_list =  xml_c_all_list & "<rss version=""2.0"">"& chr(13) & chr(10)
  186. xml_c_all_list =  xml_c_all_list & "<channel>"& chr(13) & chr(10)
  187. xml_c_all_list =  xml_c_all_list & "<title>"& Fs_news.siteName &"</title>"& chr(13) & chr(10)
  188. xml_c_all_list =  xml_c_all_list & "<image>"& chr(13) & chr(10)
  189. xml_c_all_list =  xml_c_all_list & " <title>"& Fs_news.siteName &"</title>"& chr(13) & chr(10)
  190. xml_c_all_list =  xml_c_all_list & " <link>http://" & Replace(tmp_c_path &Fs_news.RSSPIC,"//","/") &"</link>"& chr(13) & chr(10)
  191. xml_c_all_list =  xml_c_all_list & " <url>http://" & Replace(tmp_c_path &Fs_news.RSSPIC,"//","/") &"</url>"& chr(13) & chr(10)
  192. xml_c_all_list =  xml_c_all_list & "</image>"& chr(13) & chr(10)
  193. xml_c_all_list =  xml_c_all_list & "<description>"& Fs_news.rssdescript&"</description>"& chr(13) & chr(10)
  194. class_tmp.close:set class_tmp =nothing
  195. do while not obj_all_rs.eof
  196. xml_c_all_list =  xml_c_all_list & "<item>"& chr(13) & chr(10)
  197. xml_c_all_list =  xml_c_all_list & " <title>"& obj_all_rs("NewsTitle")&"</title>"& chr(13) & chr(10)
  198. xml_c_all_list =  xml_c_all_list & " <link>"& obj_all_rs("NewsID")&"</link>"& chr(13) & chr(10)
  199. if trim(obj_all_rs("Content"))<>empty  or not isnull(trim(obj_all_rs("Content"))) then
  200. xml_c_all_list =  xml_c_all_list & " <description><![CDATA["& GotTopic(obj_all_rs("Content"),Fs_news.rssContentNumber)&"]]></description>"& chr(13) & chr(10)
  201. else
  202. xml_c_all_list =  xml_c_all_list & " <description><![CDATA[无内容]]></description>"& chr(13) & chr(10)
  203. end if
  204. xml_c_all_list =  xml_c_all_list & " <pubDate>"& obj_all_rs("addtime")&"</pubDate>"& chr(13) & chr(10)
  205. xml_c_all_list =  xml_c_all_list & " <author>"& obj_all_rs("Author")&"</author>"& chr(13) & chr(10)
  206. xml_c_all_list =  xml_c_all_list & "</item>"& chr(13) & chr(10)
  207. obj_all_rs.movenext
  208. loop
  209. xml_c_all_list =  xml_c_all_list & "</channel>"& chr(13) & chr(10)
  210. xml_c_all_list =  xml_c_all_list & "</rss>"& chr(13) & chr(10)
  211. DIM savepath1
  212. call SaveFile(xml_c_all_list,"now","xml",savepath,"NS")
  213. end if
  214. obj_all_rs.close:set obj_all_rs= nothing
  215. end sub
  216. function headxml(f_char,f_className,f_classeName,f_SavePath,f_Domain,f_FileExtName)
  217. f_char = "<?xml version=""1.0"" encoding=""gb2312""?>" & chr(13) & chr(10)
  218. f_char =  f_char & "<rss version=""2.0"">"& chr(13) & chr(10)
  219. f_char =  f_char & "<channel>"& chr(13) & chr(10)
  220. f_char =  f_char & "<title>"& Fs_news.siteName &"</title>"& chr(13) & chr(10)
  221. f_char =  f_char & "<image>"& chr(13) & chr(10)
  222. f_char =  f_char & " <title>"& Fs_news.siteName &"</title>"& chr(13) & chr(10)
  223. f_char =  f_char & " <link>"& f_classeName &"</link>"& chr(13) & chr(10)
  224. f_char =  f_char & " <url>http://"&Replace(tmp_c_path &Fs_news.RSSPIC,"//","/")&"</url>"& chr(13) & chr(10)
  225. f_char =  f_char & "</image>"& chr(13) & chr(10)
  226. f_char =  f_char & "<description>"& Fs_news.rssdescript&"</description>"& chr(13) & chr(10)
  227. headxml = f_char
  228. end function
  229. %>
  230. </body>
  231. </html>
  232. <%
  233. set Fs_news = nothing
  234. %>