BVB Source Codes

Jie Yang v0.6.3 article system Show index.asp Source code

Return Download Jie Yang v0.6.3 article system: download index.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../../conn/conn.asp" -->
  3. <!--#include file="../admin_check.asp" -->
  4. <%
  5. If Not JYAdminLevel(603) Then
  6.         Call ErrorMsg()
  7. End If
  8. Action=trim(Request("Action"))
  9. step=trim(request("step"))
  10. filesname=trim(request("filesname"))
  11. UPFILES_DIR="upfiles"
  12. select case Action
  13.         case "del"
  14.                 if step<>"" then
  15.                         htmlfilespath=step
  16.                 else
  17.                         htmlfilespath=InstallDir&UPFILES_DIR&"/"
  18.                 end if
  19.                 filesnamenum=Split(filesname,",")
  20.                 For I=0 to UBound(filesnamenum)
  21.                         if filesnamenum(I)=InstallDir&UPFILES_DIR&"/" then
  22.                         Response.Write ("<script>{alert('非法操作!');window.close();}</script>")
  23.                         Response.End
  24.                         end if
  25.                         Set fso = Server.CreateObject("Scripting.FileSystemObject")
  26.                         HtmlFileName=Server.MapPath(filesnamenum(I))
  27.                         if fso.fileexists(HtmlFileName) then
  28.                                 fso.deleteFile(HtmlFileName)
  29.                         end if
  30.                         Set fso = Nothing
  31.                 Next
  32.                 response.redirect "index.asp?step="&htmlfilespath&""
  33.                 response.end
  34.         case "next"
  35.                 if step<>"" then
  36.                         htmlfilespath=step
  37.                 else
  38.                         htmlfilespath=InstallDir&UPFILES_DIR&"/"
  39.                 end if
  40. end select
  41. if step<>"" then
  42.         htmlfilespath=step
  43. else
  44.         htmlfilespath=InstallDir&UPFILES_DIR&"/"
  45. end if
  46. SysPath = Server.MapPath(htmlfilespath)
  47. Set FSO = Server.CreateObject("Scripting.FileSystemObject")
  48. Set F = FSO.GetFolder(SysPath)
  49. Set FC = F.SubFolders
  50. Set FL = F.Files
  51. %>
  52. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  53. <html xmlns="http://www.w3.org/1999/xhtml">
  54. <head>
  55. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  56. <title>上传文件管理--<%=sitename%></title>
  57. <script type="text/javascript" src="js/prototype.js"></script>
  58. <script type="text/javascript" src="js/scriptaculous.js?load=effects"></script>
  59. <script type="text/javascript" src="js/lightbox.js"></script>
  60. <link rel="stylesheet" href="lightbox.css" type="text/css" media="screen" />
  61. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  62. </head>
  63. <body>
  64. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  65.   <tr>
  66.     <td class="td28">上传文件管理</td>
  67.   </tr>
  68.   <tr>
  69.     <td bgcolor="#FFFFFF" class="td26"><b>管理选项</b>:&nbsp;<a href="Admin_ImgFiles.asp">管理首页</a> | <a href="#" <%if htmlfilespath<>InstallDir&UPFILES_DIR&"/" and htmlfilespath<>"" then%>onclick="history.back();"<%end if%>>返回上一级</a></td>
  70.   </tr>
  71. </table>
  72.  
  73. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  74. <form name="form2" action="index.asp" method="post">
  75.   <tr>
  76.     <td height="400" valign='top' bgcolor="#FFFFFF">
  77.         <div style="width:100%; height:auto;min-height:360px; background-color:#FFFFFF; ">
  78. <%
  79. For Each F In FC
  80. %><ul style="float:left; color:#000000; width:50px; margin:6px; padding:4px; text-align:center;" ondblclick="window.location='?Action=next&step=<%=htmlfilespath%><%=F.name%>/';" title="双击打开文件夹"><li style="float:left; width:50px;"><img src='../Img/TheSuperFolder.gif' border="0" align='absmiddle' /></li>
  81. <li style="float:left; width:50px; height:20px; overflow:hidden"><a href="?Action=next&step=<%=htmlfilespath%><%=F.name%>/" title="<%=F.name%>"><%=F.name%></a></li>
  82. </ul>
  83. <%Next
  84. For Each F In FL
  85. %><ul style="float:left; color:#000000; width:50px; margin:6px; padding:4px; text-align:center;">
  86. <li style="float:left; width:50px;"><a href="<%=htmlfilespath%><%=F.name%>" rel="lightbox[plants]" title="<%=F.name%>"><img src='../Img/<%=Split(F.name,".")(1)%>.gif' border="0" align='absmiddle' /></a></li>
  87. <li style="float:left; width:50px; height:20px; overflow:hidden"><a href="<%=htmlfilespath%><%=F.name%>" rel="lightbox[plants]" title="<%=F.name%>"><%=left(F.name,8)%></a></li>
  88. <li style="float:left; width:50px;"><input name="filesname" type="checkbox" class="checkbox" value="<%=htmlfilespath%><%=F.name%>"></li>
  89. </ul><%Next%></div>
  90. <div style="width:100%; height:30px; background-color:#FFFFFF; ">
  91. <ul style="float:right; color:#000000; width:98%; margin:0; padding:4px; text-align:center;"><li style="float:right;"><input type="hidden" name="step" value="<%=htmlfilespath%>" /><input name="checkSelect" type="checkbox" class="checkbox" onClick="javascript: checkAll(this)" value="checkbox">
  92.   全选  
  93.       <input name="button" type="button" class="submit1" onclick="confirmX(1);" value="删   除" />
  94. </li></ul>
  95. </div>
  96. </td>
  97.   </tr>
  98.  </form>
  99. </table>
  100. </body>
  101. </html>
  102. <script language="javascript">
  103. function confirmX(num)
  104. {
  105.         var ids = document.getElementsByName("filesname");
  106.         var check=false;
  107.         if (ids != null) {
  108.                
  109.                 for (i=0; i<ids.length; i++)
  110.                 {
  111.                         var obj = ids(i);
  112.                         if (obj.checked==true)
  113.                         {
  114.                                 check=true;
  115.                                
  116.                         }
  117.                 }
  118.                 if(check==false){alert("请选择操作对象!");return false;}
  119.         }
  120.         if(num==1)
  121.         {
  122.                 if(confirm("警告:此操作将会删除你选中的文件!\n是否继续操作下去?"))      
  123.                 {
  124.                         document.form2.action="index.asp?Action=del";
  125.                         document.form2.submit();               
  126.                 }
  127.         }
  128.         return false;  
  129. }
  130. function checkAll(box1) {
  131.     var ids = document.getElementsByName("filesname");
  132.         if (ids != null) {
  133.                 for (i=0; i<ids.length; i++) {
  134.                         var obj = ids(i);
  135.                         obj.checked = box1.checked;
  136.                 }
  137.         }
  138. }
  139. </script>
downloadindex.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top