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

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

数据库编程

开发平台：

ASP/ASPX

NewsOfHistory.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="inc/Function.asp"-->
  5. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  6. <%
  7. Dim Conn,CollectConn
  8. MF_Default_Conn
  9. MF_Collect_Conn
  10. MF_Session_TF
  12. '判断权限结束
  13. Dim Action
  14. Action = Request("Action")
  15. if Action = "DelAll" then
  16. if Not JudgePopedomTF(Session("Name"),"P080400") then Call ReturnError1()
  17. CollectConn.Execute("Delete from FS_News where History=1 and SiteID in(select id from fs_site where siteid="&Session("SiteID")&")")
  18. end if
  19. Dim NewsSql,RsNewsObj,CurrPage,AllPageNum,RecordNum,i,SysClassCName,SiteName,RsTempObj
  20. CurrPage = Request("CurrPage")
  21. NewsSql = "Select * from FS_News where History=1 and SiteID in(select id from fs_site where siteid="&Session("SiteID")&") Order by ID Desc"
  22. Set RsNewsObj = Server.CreateObject("ADODB.RecordSet")
  23. RsNewsObj.Open NewsSql,CollectConn,1,1
  24. %>
  25. <HTML>
  26. <HEAD>
  27. <META http-equiv="Content-Type" content="text/html; charset=gb2312">
  28. <TITLE>新闻采集</TITLE>
  29. </HEAD>
  30. <link href="../../../CSS/FS_css.css" rel="stylesheet">
  31. <script language="JavaScript" src="../../../SysJS/PublicJS.js"></script>
  32. <script language="JavaScript" src="../../../SysJS/ContentMenu.js"></script>
  33. <BODY topmargin="2" leftmargin="2" onClick="SelectNews();" onselectstart="return false;">
  34. <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
  35.   <tr bgcolor="#EEEEEE"> 
  36.     <td height="26" colspan="5" valign="middle">
  37.       <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
  38.         <tr>
  39.           <td width="35" align="center" alt="删除" onClick="DelNews();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">删除</td>
  40. <td width=2 class="Gray">|</td>
  41.           <td width="70" align="center" alt="删除全部" onClick="DelAll();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">删除全部</td>
  42. <td width=2 class="Gray">|</td>
  43.   <td width="35" align="center" alt="入库" onClick="MoveNewsToSystem();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">入库</td>
  44. <td width=2 class="Gray">|</td>
  45.   <td width="35" align="center" alt="后退" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
  46.           <td>&nbsp;</td>
  47.         </tr>
  48.       </table>
  49.   </td>
  50.   </tr>
  51. </table>
  52. <table width="100%" border="0" cellpadding="0" cellspacing="0">
  53.   <tr>
  54.    <td colspan="5" height="2"></td>
  55.   </tr>
  56.   <tr> 
  57.     <td height="26" nowrap class="ButtonListLeft"> <div align="center">标题</div></td>
  58.     <td width="15%" height="24" nowrap class="ButtonList"> 
  59.       <div align="center">新闻长度</div></td>
  60.     <td width="15%" height="24" nowrap class="ButtonList"> 
  61.       <div align="center">目标栏目</div></td>
  62.     <td width="15%" height="24" nowrap class="ButtonList"> 
  63.       <div align="center">采集站点</div></td>
  64.     <td width="15%" height="24" nowrap class="ButtonList"> 
  65.       <div align="center">添加日期</div></td>
  66.   </tr>
  67.   <%
  68. if Not RsNewsObj.Eof then
  69. if CurrPage = "" then
  70. CurrPage = 1
  71. else
  72. CurrPage = CInt(CurrPage)
  73. end if
  74. RsNewsObj.PageSize = 18
  75. RecordNum = RsNewsObj.RecordCount
  76. AllPageNum = RsNewsObj.PageCount
  77. if CurrPage > AllPageNum then CurrPage = AllPageNum
  78. RsNewsObj.AbsolutePage = Cint(CurrPage)
  79. for i = 1 to RsNewsObj.PageSize
  80. if RsNewsObj.Eof then Exit For
  81. Set RsTempObj = Conn.Execute("Select ClassCName from FS_NewsClass where ClassID='" & RsNewsObj("ClassID") & "' and SiteID ="&Session("SiteID"))
  82. if Not RsTempObj.Eof then
  83. SysClassCName = RsTempObj("ClassCName")
  84. else
  85. SysClassCName = "栏目不存在"
  86. end if
  87. RsTempObj.Close
  88. Set RsTempObj = Nothing
  89. Set RsTempObj = CollectConn.Execute("Select SiteName from FS_Site where ID=" & RsNewsObj("SiteID")&" and SiteID ="&Session("SiteID"))
  90. if Not RsTempObj.Eof then
  91. SiteName = RsTempObj("SiteName")
  92. else
  93. SiteName = "未知"
  94. end if
  95. RsTempObj.Close
  96. Set RsTempObj = Nothing
  97. %>
  98.   <tr> 
  99.     <td height="26" nowrap>
  100. <table border="0" cellspacing="0" cellpadding="0">
  101.         <tr>
  102.           <td><img src="../../Images/Info/WordNews.gif" width="24" height="22"></td>
  103.           <td><span class="TempletItem" NewsID=<% = RsNewsObj("ID") %>>
  104. <% = Left(RsNewsObj("Title"),20) %></span></td>
  105.         </tr>
  106.       </table></td>
  107.     <td nowrap><div align="center"> 
  108.         <% = Len(RsNewsObj("Content")) %>
  109.         字符</div></td>
  110.     <td nowrap><div align="center"> 
  111.         <% = SysClassCName %>
  112.       </div></td>
  113.     <td nowrap><div align="center"> 
  114.         <% = SiteName %>
  115.       </div></td>
  116.     <td nowrap><div align="center"> 
  117.         <% = RsNewsObj("AddDate") %>
  118.       </div></td>
  119.   </tr>
  120.   <%
  121. RsNewsObj.MoveNext
  122. next
  123. %>
  124.   <tr> 
  125.     <td height="30" colspan="5" nowrap><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  126.         <tr> 
  127.           <td> <div align="right"> 
  128.               <%
  129. Response.Write"&nbsp;共<b>"& AllPageNum & "</b>页<b>" & RecordNum & "</b>条记录，每页<b>" & RsNewsObj.pagesize & "</b>条，本页是第<b>"& CurrPage &"</b>页"
  130. if Int(CurrPage) > 1 then
  131. Response.Write"&nbsp;<a href=?CurrPage=1>首页</a>&nbsp;"
  132. Response.Write"&nbsp;<a href=?CurrPage=" & Cstr(CInt(CurrPage)-1) & ">上页</a>&nbsp;"
  133. end if
  134. if Int(CurrPage) < AllPageNum then
  135. Response.Write"&nbsp;<a href=?CurrPage=" & Cstr(Cint(CurrPage)+1) & ">下页</a>"
  136. Response.Write"&nbsp;<a href=?CurrPage=" & AllPageNum & ">末页</a>&nbsp;"
  137. end if
  138. Response.Write"<br>"
  139. %>
  140.             </div></td>
  141.         </tr>
  142.       </table></td>
  143.   </tr>
  144.   <%
  145. end if
  146. %>
  147. </table>
  148. </BODY>
  149. </HTML>
  150. <%
  151. Set CollectConn = Nothing
  152. Set Conn = Nothing
  153. Set RsNewsObj = Nothing
  154. %>
  155. <script language="JavaScript">
  156. var DocumentReadyTF=false;
  157. var ListObjArray = new Array();
  158. var ContentMenuArray=new Array();
  159. function document.onreadystatechange()
  160. {
  161. if (DocumentReadyTF) return;
  162. IntialListObjArray();
  163. InitialContentListContentMenu();
  164. DocumentReadyTF=true;
  165. }
  166. function InitialContentListContentMenu()
  167. {
  168. ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction("parent.DelNews();",'删除','disabled');
  169. ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.MoveNewsToSystem();','入库','disabled');
  170. ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('seperator','','');
  171. ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('location.reload();','刷新','');
  172. ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('prompt('本页面路径属性','<%=Request.ServerVariables("SCRIPT_NAME")%>');','路径属性','');
  173. }
  174. function ContentMenuFunction(ExeFunction,Description,EnabledStr)
  175. {
  176. this.ExeFunction=ExeFunction;
  177. this.Description=Description;
  178. this.EnabledStr=EnabledStr;
  179. }
  180. function ContentMenuShowEvent()
  181. {
  182. ChangeContentMenuStatus();
  183. }
  184. function ChangeContentMenuStatus()
  185. {
  186. var EventObjInArray=false,SelectContent='',DisabledContentMenuStr='';
  187. for (var i=0;i<ListObjArray.length;i++)
  188. {
  189. if (event.srcElement==ListObjArray[i].Obj)
  190. {
  191. if (ListObjArray[i].Selected==true) EventObjInArray=true;
  192. break;
  193. }
  194. }
  195. for (var i=0;i<ListObjArray.length;i++)
  196. {
  197. if (event.srcElement==ListObjArray[i].Obj)
  198. {
  199. ListObjArray[i].Obj.className='TempletSelectItem';
  200. ListObjArray[i].Selected=true;
  201. if (SelectContent=='') SelectContent=ListObjArray[i].Obj.NewsID;
  202. else SelectContent=SelectContent+'***'+ListObjArray[i].Obj.NewsID;
  203. }
  204. else
  205. {
  206. if (!EventObjInArray)
  207. {
  208. ListObjArray[i].Obj.className='TempletItem';
  209. ListObjArray[i].Selected=false;
  210. }
  211. else
  212. {
  213. if (ListObjArray[i].Selected==true)
  214. {
  215. if (SelectContent=='') SelectContent=ListObjArray[i].Obj.NewsID;
  216. else SelectContent=SelectContent+'***'+ListObjArray[i].Obj.NewsID;
  217. }
  218. }
  219. }
  220. }
  221. if (SelectContent=='') DisabledContentMenuStr=',删除,入库,';
  222. else DisabledContentMenuStr='';
  223. for (var i=0;i<ContentMenuArray.length;i++)
  224. {
  225. if (DisabledContentMenuStr.indexOf(ContentMenuArray[i].Description)!=-1) ContentMenuArray[i].EnabledStr='disabled';
  226. else  ContentMenuArray[i].EnabledStr='';
  227. }
  228. }
  229. function FolderFileObj(Obj,Index,Selected)
  230. {
  231. this.Obj=Obj;
  232. this.Index=Index;
  233. this.Selected=Selected;
  234. }
  235. function IntialListObjArray()
  236. {
  237. var CurrObj=null,j=1;
  238. for (var i=0;i<document.all.length;i++)
  239. {
  240. CurrObj=document.all(i);
  241. if (CurrObj.NewsID!=null)
  242. {
  243. ListObjArray[ListObjArray.length]=new FolderFileObj(CurrObj,j,false);
  244. j++;
  245. }
  246. }
  247. }
  248. function SelectNews()
  249. {
  250. var el=event.srcElement;
  251. var i=0;
  252. if ((event.ctrlKey==true)||(event.shiftKey==true))
  253. {
  254. if (event.ctrlKey==true)
  255. {
  256. for (i=0;i<ListObjArray.length;i++)
  257. {
  258. if (el==ListObjArray[i].Obj)
  259. {
  260. if (ListObjArray[i].Selected==false)
  261. {
  262. ListObjArray[i].Obj.className='TempletSelectItem';
  263. ListObjArray[i].Selected=true;
  264. }
  265. else
  266. {
  267. ListObjArray[i].Obj.className='TempletItem';
  268. ListObjArray[i].Selected=false;
  269. }
  270. }
  271. }
  272. }
  273. if (event.shiftKey==true)
  274. {
  275. var MaxIndex=0,ObjInArray=false,EndIndex=0,ElIndex=-1;
  276. for (i=0;i<ListObjArray.length;i++)
  277. {
  278. if (ListObjArray[i].Selected==true)
  279. {
  280. if (ListObjArray[i].Index>=MaxIndex) MaxIndex=ListObjArray[i].Index;
  281. }
  282. if (el==ListObjArray[i].Obj)
  283. {
  284. ObjInArray=true;
  285. ElIndex=i;
  286. EndIndex=ListObjArray[i].Index;
  287. }
  288. }
  289. if (ElIndex>MaxIndex)
  290. for (i=MaxIndex-1;i<EndIndex;i++)
  291. {
  292. ListObjArray[i].Obj.className='TempletSelectItem';
  293. ListObjArray[i].Selected=true;
  294. }
  295. else
  296. {
  297. for (i=EndIndex;i<MaxIndex-1;i++)
  298. {
  299. ListObjArray[i].Obj.className='TempletSelectItem';
  300. ListObjArray[i].Selected=true;
  301. }
  302. ListObjArray[ElIndex].Obj.className='TempletSelectItem';
  303. ListObjArray[ElIndex].Selected=true;
  304. }
  305. }
  306. }
  307. else
  308. {
  309. for (i=0;i<ListObjArray.length;i++)
  310. {
  311. if (el==ListObjArray[i].Obj)
  312. {
  313. ListObjArray[i].Obj.className='TempletSelectItem';
  314. ListObjArray[i].Selected=true;
  315. }
  316. else
  317. {
  318. ListObjArray[i].Obj.className='TempletItem';
  319. ListObjArray[i].Selected=false;
  320. }
  321. }
  322. }
  323. }
  324. function EditNews()
  325. {
  326. var SelectedNews='';
  327. for (i=0;i<ListObjArray.length;i++)
  328. {
  329. if (ListObjArray[i].Selected==true)
  330. {
  331. if (ListObjArray[i].Obj.NewsID!=null)
  332. {
  333. if (SelectedNews=='') SelectedNews=ListObjArray[i].Obj.NewsID;
  334. else  SelectedNews=SelectedNews+'***'+ListObjArray[i].Obj.NewsID;
  335. }
  336. }
  337. }
  338. if (SelectedNews!='')
  339. {
  340. if (SelectedNews.indexOf('***')==-1) window.location='EditNews.asp?NewsIDStr='+SelectedNews;
  341. else alert('请选择一条新闻');
  342. }
  343. else alert('请选择新闻');
  344. }
  345. function DelNews()
  346. {
  347. var SelectedNews='';
  348. for (i=0;i<ListObjArray.length;i++)
  349. {
  350. if (ListObjArray[i].Selected==true)
  351. {
  352. if (ListObjArray[i].Obj.NewsID!=null)
  353. {
  354. if (SelectedNews=='') SelectedNews=ListObjArray[i].Obj.NewsID;
  355. else  SelectedNews=SelectedNews+'***'+ListObjArray[i].Obj.NewsID;
  356. }
  357. }
  358. }
  359. if (SelectedNews!='')
  360. OpenWindow('Frame.asp?FileName=DelNews.asp&PageTitle=删除新闻&NewsIDStr='+SelectedNews,200,120,window);
  361. else alert('请选择新闻');
  362. }
  363. function DelAll()
  364. {
  365. if (confirm('确定要删除吗？')) location='?Action=DelAll'
  366. }
  367. function MoveNewsToSystem()
  368. {
  369. var SelectedNews='';
  370. for (i=0;i<ListObjArray.length;i++)
  371. {
  372. if (ListObjArray[i].Selected==true)
  373. {
  374. if (ListObjArray[i].Obj.NewsID!=null)
  375. {
  376. if (SelectedNews=='') SelectedNews=ListObjArray[i].Obj.NewsID;
  377. else  SelectedNews=SelectedNews+'***'+ListObjArray[i].Obj.NewsID;
  378. }
  379. }
  380. }
  381. if (SelectedNews!='')
  382. OpenWindow('Frame.asp?FileName=MoveNewsToSystem.asp&PageTitle=新闻入库&DelNews=true&NewsIDStr='+SelectedNews,200,120,window);
  383. else alert('请选择新闻');
  384. }
  385. </script>