Js_Free_Manage.asp
上传用户:jisenq
上传日期:2014-06-29
资源大小:7216k
文件大小:7k
源码类别:

数据库编程

开发平台:

ASP/ASPX

  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_InterFace/ns_Function.asp" -->
  5. <!--#include file="../../FS_Inc/Function.asp" -->
  6. <!--#include file="lib/cls_main.asp" -->
  7. <!--#include file="lib/cls_js.asp"-->
  8. <!--#include file="../../FS_Inc/Func_page.asp" -->
  9. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
  10. Dim Conn,FS_JsObj,Js_Rs,Manner,i
  11. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  12. '权限判断
  13. 'Call MF_Check_Pop_TF("NS_Class_000001") 
  14. '得到会员组列表 
  15. MF_Default_Conn
  16. MF_Session_TF 
  17. if not MF_Check_Pop_TF("NS_Sysjs") then Err_Show
  18. Set FS_JsObj=New Cls_Js
  19. '---------------------------------分页定义
  20. int_RPP=15 '设置每页显示数目
  21. int_showNumberLink_=8 '数字导航显示数目
  22. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转,当多次调用时只能选1
  23. str_nonLinkColor_="#999999" '非热链接颜色
  24. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  25. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  26. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  27. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  28. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  29. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  30. '-----------------------------------------
  31. %>
  32. <html>
  33. <head>
  34. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  35. <title>CMS4.0</title>
  36. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  37. </head>
  38. <body>
  39. <script src="js/Public.js" language="JavaScript"></script>
  40. <form action="Js_Free_Action.asp?act=delete" method="post" name="JSForm">
  41.   <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  42. <tr> 
  43.   <td class="xingmu" colspan="11"><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 刘南兵 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>自由JS管理</strong></a><a href="../../help?Lable=NS_Class_Templet" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0">
  44. </tr>
  45. <tr class="hback">
  46. <td align="center" width="30%">名称</td>
  47. <td align="center">类型</td>
  48. <td align="center">样式</td>
  49. <td align="center" width="20%">新闻条数[点击查看详情]</td>
  50. <td align="center">代码</td>
  51. <td align="center" width="20%">添加时间</td>
  52. <td align="center" width="5%"><input type="checkbox" name="chk_FreeJs" id="chk_FreeJs" value='' onClick="javascript:checkAll()"></td> 
  53. </tr> 
  54. <%
  55. Set Js_Rs=Server.CreateObject(G_FS_RS)
  56. Js_Rs.open "Select id from FS_NS_FreeJS",Conn,1,1
  57. If Not Js_Rs.eof then
  58. '分页使用-----------------------------------
  59. Js_Rs.PageSize=int_RPP
  60. cPageNo=NoSqlHack(Request.QueryString("page"))
  61. If cPageNo="" Then cPageNo = 1
  62. If not isnumeric(cPageNo) Then cPageNo = 1
  63. cPageNo = Clng(cPageNo)
  64. If cPageNo<=0 Then cPageNo=1
  65. If cPageNo>Js_Rs.PageCount Then cPageNo=Js_Rs.PageCount 
  66. Js_Rs.AbsolutePage=cPageNo
  67. End if
  68. '--------------------------------------
  69. For i=0 To int_RPP
  70. If Js_Rs.eof Then Exit For
  71. Response.Write("<tr class='hback'>"&vbcrlf)
  72. FS_JsObj.getFreeJsParam(Js_Rs("id"))
  73. Response.Write("<td align='center'><a href='Js_Free_Add.asp?act=edit&jsid="&FS_JsObj.id&"' title='点击进行修改'>"&FS_JsObj.cname&"</a></td>")
  74. if FS_JsObj.js_type=1 then
  75. Response.Write("<td align='center'>图片</td>"&vbcrlf)
  76. else
  77. Response.Write("<td align='center'>文字</td>"&vbcrlf)
  78. End if
  79. Select Case FS_JsObj.manner
  80. Case 1  Manner="样式A"
  81. Case 2  Manner="样式B"
  82. Case 3  Manner="样式C"
  83. Case 4  Manner="样式D"
  84. Case 5  Manner="样式E"
  85. Case 6  Manner="样式A"
  86. Case 7  Manner="样式B"
  87. Case 8  Manner="样式C"
  88. Case 9  Manner="样式D"
  89. Case 10 Manner="样式E"
  90. Case 11 Manner="样式F"
  91. Case 12 Manner="样式G"
  92. Case 13 Manner="样式H"
  93. Case 14 Manner="样式I"
  94. Case 15 Manner="样式J"
  95. Case 16 Manner="样式K"
  96. Case 17 Manner="样式L"
  97. End Select
  98. Response.Write("<td align='center'>"&Manner&"</td>"&vbcrlf)
  99. Dim NewsNumberRs,NewsNumber
  100. Set NewsNumberRs=Conn.execute("Select count(ID) from FS_NS_FreeJsFile where jsname='"&FS_JsObj.ename&"'")
  101. if not NewsNumberRs.eof then
  102. NewsNumber=NewsNumberRs(0)
  103. Else
  104. NewsNumber=0
  105. End if
  106. Response.Write("<td align='center'><a href='#' onClick=""newsDetial('"&FS_JsObj.ename&"')"">"&NewsNumber&"(<font color=""red"">"&FS_JsObj.newsNum&"</font>)</a></td>"&vbcrlf)
  107. Response.Write("<td align='center'><a href=""javascript:getCode('"&FS_JsObj.id&"')"">代码</a></td>"&vbcrlf)
  108. Response.Write("<td align='center'>"&FS_JsObj.addtime&"</td>"&vbcrlf)
  109. Response.Write("<td align='center'><input type='checkbox' name='chk_FreeJs' value='"&FS_JsObj.id&"' id='chk_FreeJs_"&FS_JsObj.id&"'></td>")
  110. Response.Write("</tr>"&vbcrlf)
  111. Js_Rs.movenext
  112. next
  113. %>
  114. <tr class="hback"> 
  115. <td colspan="11" align="right">
  116. <button onClick="javascript:location='Js_Free_Add.asp'">新增</button> &nbsp;
  117. <button onClick="javascript:DeleteJs()">删除</button> &nbsp;
  118. <!--<button onClick="">查看新闻</button>-->&nbsp;
  119. </td>
  120. </tr>
  121. <%
  122. Response.Write("<tr>"&vbcrlf)
  123. Response.Write("<td align='right' colspan='11'  class=""hback"">"&fPageCount(js_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
  124. Response.Write("</tr>"&vbcrlf)
  125. %>
  126.   </table> 
  127. </form>
  128. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
  129. </body>
  130. <script  language="JavaScript">  
  131. <!--  
  132. function DeleteJs()
  133. {
  134. var chkJs_Array=document.all.chk_FreeJs;
  135. var chkTF=false;
  136. if (chkJs_Array[0]==null)
  137. {
  138. return 
  139. }
  140. else
  141. {
  142. //判断是否选择了记录
  143. for(var i=1;i<chkJs_Array.length;i++)
  144. {
  145. if (chkJs_Array[i].checked)
  146. {
  147. chkTF=true
  148. }
  149. }
  150. }
  151. if(chkTF)
  152. {
  153. if(confirm("确认要删除选中的记录?"))
  154. document.JSForm.submit();
  155. }else
  156. {
  157. alert("请选择你要删除的对象");
  158. }
  159. }
  160. function checkAll()
  161. {
  162. var chkJs_Array=document.all.chk_FreeJs;
  163. if (chkJs_Array[0]==null)
  164. {
  165. return 
  166. }
  167. if(chkJs_Array[0].checked)
  168. {
  169. for(var i=1;i<chkJs_Array.length;i++)
  170. {
  171. chkJs_Array[i].checked=true;
  172. }
  173. }else if(!chkJs_Array[0].checked)
  174. {
  175. for(var i=1;i<chkJs_Array.length;i++)
  176. {
  177. chkJs_Array[i].checked=false;
  178. }
  179. }
  180. }
  181. function getCode(jsid)
  182. {
  183. if (jsid!=""&&!isNaN(jsid))
  184. {
  185. OpenWindow('lib/Frame.asp?PageTitle=获取JS调用代码&FileName=showJsPath.asp&JsID='+jsid,360,140,window);
  186. }else
  187. {
  188. alert("出现错误,请联系客服人员!")
  189. }
  190. }
  191. function newsDetial(JsName)
  192. {
  193. if (JsName!=""&&JsName!=null)
  194. {
  195. OpenWindow('lib/Frame.asp?PageTitle=调用新闻列表&FileName=showJsNews.asp&JsName='+JsName,360,400,window);
  196. }else
  197. {
  198. alert("出现错误,请联系客服人员!")
  199. }
  200. }
  201. //-->  
  202. </script>  
  203. <%
  204. Conn.close
  205. Set Conn=nothing
  206. Set Js_Rs=nothing
  207. %>
  208. </html>
  209. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->