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

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

数据库编程

开发平台：

ASP/ASPX

FolderImageList.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="../lib/strlib.asp" -->
  6. <!--#include file="../lib/UserCheck.asp" -->
  7. <%
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. if trim(Request.QueryString("f_UserNumber"))="" then  response.Write("登陆过期,或者参数不正确"):response.end
  14. if trim(Request.QueryString("f_UserNumber"))<>Fs_User.UserNumber then  response.Write("错误参数"):response.end
  15. Dim TypeSql,RsTypeObj,LableSql,RsLableObj
  16. Dim CurrPath,FsoObj,SubFolderObj,FolderObj,FileObj,i,FsoItem,OType
  17. Dim ParentPath,FileExtName,AllowShowExtNameStr,str_CurrPath
  18. Dim ShowVirtualPath,sRootDir 
  19. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/" & G_VIRTUAL_ROOT_DIR else sRootDir=""
  20. CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  21. Set FsoObj = Server.CreateObject(G_FS_FSO)
  22. OType = Request("Type")
  23. if OType <> "" then
  24. Dim Path,PhysicalPath
  25. if OType = "DelFolder" then
  26. Path = Request("Path") 
  27. if Path <> "" then
  28. Path = Server.MapPath(Path)
  29. if FsoObj.FolderExists(Path) = true then FsoObj.DeleteFolder Path
  30. end if
  31. elseif OType = "DelFile" then
  32. Dim DelFileName
  33. Path = Request("Path") 
  34. DelFileName = Request("FileName") 
  35. if (DelFileName <> "") And (Path <> "") then
  36. Path = Server.MapPath(Path)
  37. if FsoObj.FileExists(Path & "" & DelFileName) = true then FsoObj.DeleteFile Path & "" & DelFileName
  38. end if
  39. elseif OType = "AddFolder" then
  40. Path = Request("Path")
  41. if Path <> "" then
  42. Path = Server.MapPath(Path)
  43. if FsoObj.FolderExists(Path) = True then
  44. Response.Write("<script>alert('目录已经存在');</script>")
  45. else
  46. FsoObj.CreateFolder Path
  47. end if
  48. end if
  49. elseif OType = "FileReName" then
  50. Dim NewFileName,OldFileName
  51. Path = Request("Path")
  52. if Path <> "" then
  53. NewFileName = Request("NewFileName")
  54. OldFileName = Request("OldFileName")
  55. if (NewFileName <> "") And (OldFileName <> "") then
  56. PhysicalPath = Server.MapPath(Path) & "" & OldFileName
  57. if FsoObj.FileExists(PhysicalPath) = True then
  58. PhysicalPath = Server.MapPath(Path) & "" & NewFileName
  59. if FsoObj.FileExists(PhysicalPath) = False then
  60. Set FileObj = FsoObj.GetFile(Server.MapPath(Path) & "" & OldFileName)
  61. FileObj.Name = NewFileName
  62. Set FileObj = Nothing
  63. end if
  64. end if
  65. end if
  66. end if
  67. elseif OType = "FolderReName" then
  68. Dim NewPathName,OldPathName
  69. Path = Request("Path")
  70. if Path <> "" then
  71. NewPathName = Request("NewPathName")
  72. OldPathName = Request("OldPathName")
  73. if (NewPathName <> "") And (OldPathName <> "") then
  74. PhysicalPath = Server.MapPath(Path) & "" & OldPathName
  75. if FsoObj.FolderExists(PhysicalPath) = True then
  76. PhysicalPath = Server.MapPath(Path) & "" & NewPathName
  77. if FsoObj.FolderExists(PhysicalPath) = False then
  78. Set FileObj = FsoObj.GetFolder(Server.MapPath(Path) & "" & OldPathName)
  79. FileObj.Name = NewPathName
  80. Set FileObj = Nothing
  81. end if
  82. end if
  83. end if
  84. end if
  85. end if
  86. end if
  87. ShowVirtualPath = Request("ShowVirtualPath")
  88. AllowShowExtNameStr = "jpg,txt,gif,bmp,png"
  89. CurrPath = Replace(Request("CurrPath"),"//","/")
  90. if CurrPath = "" then
  91. CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  92. ParentPath = ""
  93. else
  94. ParentPath = Mid(CurrPath,1,InstrRev(CurrPath,"/")-1)
  95. if ParentPath = "" then
  96. CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  97. end if
  98. end if
  99. dim CurrPath1
  100. CurrPath1 = Server.MapPath(replace(Replace(CurrPath,"\",""),"/",""))
  101. if FsoObj.FolderExists(CurrPath1) = false then FsoObj.CreateFolder CurrPath1
  102. Set FolderObj = FsoObj.GetFolder(Server.MapPath(CurrPath))
  103. Set SubFolderObj = FolderObj.SubFolders
  104. Set FileObj = FolderObj.Files
  106. Function CheckFileShowTF(AllowShowExtNameStr,ExtName)
  107. if ExtName="" then
  108. CheckFileShowTF = False
  109. else
  110. if InStr(1,AllowShowExtNameStr,ExtName) = 0 then
  111. CheckFileShowTF = False
  112. else
  113. CheckFileShowTF = True
  114. end if
  115. end if
  116. End Function
  117. %>
  118. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  119. <html>
  120. <head>
  121. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  122. <title>文件和目录列表</title>
  123. </head>
  124. <style>
  125. .TempletItem {
  126. cursor: default;
  127. }
  128. .TempletSelectItem {
  129. background-color:highlight;
  130. cursor: default;
  131. color: white;
  132. }
  133. </style>
  134. <link href="../../<% = G_USER_DIR %>/images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  135. <script language="JavaScript">
  136. var ObjPopupMenu=window.createPopup();
  137. document.oncontextmenu=new Function("return ShowMouseRightMenu(window.event);");
  138. function ShowMouseRightMenu(event)
  139. {
  140. ContentMenuShowEvent();
  141. var width=100;
  142. var height=0;
  143. var lefter=event.clientX;
  144. var topper=event.clientY;
  145. var ObjPopDocument=ObjPopupMenu.document;
  146. var ObjPopBody=ObjPopupMenu.document.body;
  147. var MenuStr='';
  148. for (var i=0;i<ContentMenuArray.length;i++)
  149. {
  150. if (ContentMenuArray[i].ExeFunction=='seperator')
  151. {
  152. MenuStr+=FormatSeperator();
  153. height+=16;
  154. }
  155. else
  156. {
  157. MenuStr+=FormatMenuRow(ContentMenuArray[i].ExeFunction,ContentMenuArray[i].Description,ContentMenuArray[i].EnabledStr);
  158. height+=20;
  159. }
  160. }
  161. MenuStr="<TABLE border=0 cellpadding=0 cellspacing=0 class=Menu width=100>"+MenuStr
  162. MenuStr=MenuStr+"</TABLE>";
  163. ObjPopDocument.open();
  164. ObjPopDocument.write("<head><link href="select_css.css" type="text/css" rel="stylesheet"></head><body scroll="no" onConTextMenu="event.returnValue=false;" onselectstart="event.returnValue=false;">"+MenuStr);
  165. ObjPopDocument.close();
  166. height+=4;
  167. if(lefter+width > document.body.clientWidth) lefter=lefter-width;
  168. ObjPopupMenu.show(lefter, topper, width, height, document.body);
  169. return false;
  170. }
  171. function FormatSeperator()
  172. {
  173. var MenuRowStr="<tr><td height=16 valign=middle><hr></td></tr>";
  174. return MenuRowStr;
  175. }
  176. function FormatMenuRow(MenuOperation,MenuDescription,EnabledStr)
  177. {
  178. var MenuRowStr="<tr "+EnabledStr+"><td align=left height=20 class=MouseOut onMouseOver=this.className='MouseOver'; onMouseOut=this.className='MouseOut'; valign=middle"
  179. if (EnabledStr=='') MenuRowStr+=" onclick=""+MenuOperation+"parent.ObjPopupMenu.hide();">&nbsp;&nbsp;&nbsp;&nbsp;";
  180. else MenuRowStr+=">&nbsp;&nbsp;&nbsp;&nbsp;";
  181. MenuRowStr=MenuRowStr+MenuDescription+"</td></tr>";
  182. return MenuRowStr;
  183. }
  184. </script>
  185. <body topmargin="0" leftmargin="0" onClick="SelectFolder();"  class="hback">
  186. <table width="99%" border="0" align="center" cellpadding="2" cellspacing="0"  class="hback">
  187.   <%
  188. if  lcase(Trim(CurrPath))<>  lcase(Trim(str_CurrPath)) then  
  189. %>
  190.   <tr title="上级目录<% = ParentPath %>" onClick="SelectUpFolder(this);" Path="<% = ParentPath %>" onDblClick="OpenParentFolder(this);"> 
  191.     <td colspan="2"> <table width="62" border="0" cellpadding="0" cellspacing="0">
  192.         <tr> 
  193.           <td width="21"><font color="#FFFFFF"><img src="../Images/folder.gif" width="20" height="16"></font></td>
  194.           <td width="41">...</td>
  195.         </tr>
  196.       </table></td>
  197.     <td width="35%"><div align="center"><font color="#FFFFFF">-</font></div></td>
  198.     <td width="17%"><div align="center"><font color="#FFFFFF">-</font></div></td>
  199.   </tr>
  200.   <%
  201. end if
  202. for each FsoItem In SubFolderObj
  203. %>
  204.   <tr> 
  205.     <td colspan="2"><table border="0" cellspacing="0" cellpadding="0">
  206.         <tr title="双击鼠标进入此目录"> 
  207.           <td valign="top"><img src="../Images/folder.gif" width="20" height="16"></td>
  208.           <td valign="bottom"> <span class="TempletItem" Path="<% = FsoItem.name %>" onClick="ClearPicUrl()"; onDblClick="OpenFolder(this);"> 
  209.             <% = FsoItem.name %>
  210.             </span> </td>
  211.         </tr>
  212.       </table></td>
  213.     <td><div align="left">文件夹</div></td>
  214.     <td><div align="center"> 
  215.         <% = FsoItem.Size %>
  216.       </div></td>
  217.   </tr>
  218.   <%
  219. next
  220. for each FsoItem In FileObj
  221. FileExtName = LCase(Mid(FsoItem.name,InstrRev(FsoItem.name,".")+1))
  222. if True then 'CheckFileShowTF(AllowShowExtNameStr,FileExtName) = 
  223. %>
  224.   <tr title="双击鼠标选择此文件"> 
  225.     <td width="2%"> <span class="TempletItem" File="<% = FsoItem.name %>" onDblClick="SetFile(this);" onClick="SelectFile(this);"> 
  226.       <img src="../Images/files.gif" width="16" height="16"> </span> </td>
  227.     <td width="46%"><span class="TempletItem" File="<% = FsoItem.name %>" onDblClick="SetFile(this);" onClick="SelectFile(this);">
  228.       <% = FsoItem.name %>
  229.       </span></td>
  230.     <td> <div align="left"> 
  231.         <%if len(FsoItem.Type)>18 then:response.Write left(FsoItem.Type,18)&"...":else:response.Write FsoItem.Type:end if%>
  232.       </div></td>
  233.     <td><div align="center"> 
  234.         <%
  235. if FsoItem.Size>1000 then
  236. Response.Write FormatNumber(FsoItem.Size/1024,1,-1) &"KB"
  237.         Else
  238. Response.Write FsoItem.Size &"字节"
  239. End if
  240. %>
  241.       </div></td>
  242.   </tr>
  243.   <%
  244.    end if
  245. next
  246. %>
  247. </table>
  248. </body>
  249. </html>
  250. <%
  251. Set FsoObj = Nothing
  252. Set SubFolderObj = Nothing
  253. Set FileObj = Nothing
  254. %>
  255. <script language="JavaScript">
  256. var CurrPath='<% = CurrPath %>';
  257. var G_VIRTUAL_ROOT_DIR='<% = G_VIRTUAL_ROOT_DIR %>';
  258. var ShowVirtualPath='<% = ShowVirtualPath %>';
  259. var SelectedObj=null;
  260. var ContentMenuArray=new Array();
  261. DocumentReadyTF=false;
  262. function document.onreadystatechange()
  263. {
  264. if (DocumentReadyTF) return;
  265. InitialClassListContentMenu();
  266. DocumentReadyTF=true;
  267. }
  268. function ContentMenuFunction(ExeFunction,Description,EnabledStr)
  269. {
  270. this.ExeFunction=ExeFunction;
  271. this.Description=Description;
  272. this.EnabledStr=EnabledStr;
  273. }
  274. function ContentMenuShowEvent()
  275. {
  276. SelectFolder();
  277. }
  278. function InitialClassListContentMenu()
  279. {
  280. <%Response.write "ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction(""parent.AddFolderOperation();"",'新建目录','');"%>
  281. <%Response.write "ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction(""if (confirm('确定要删除吗？')==true) parent.DelFolderFile();"",'删除','disabled');"%>
  282. //此处是否允许管理员重命名文件名，如果开启重命名有风险，请小心使用。
  283. //<%Response.write "ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction(""parent.EditFolder();"",'重命名','disabled');"%>
  284. }
  285. function SelectFolder()
  286. {
  287. Obj=event.srcElement,DisabledContentMenuStr='';
  288. if (SelectedObj!=null) SelectedObj.className='TempletItem';
  289. if ((Obj.Path!=null)||(Obj.File!=null))
  290. {
  291. Obj.className='TempletSelectItem';
  292. SelectedObj=Obj;
  293. }
  294. else SelectedObj=null;
  295. if (SelectedObj!=null) DisabledContentMenuStr='';
  296. else DisabledContentMenuStr=',删除,重命名,';
  297. for (var i=0;i<ContentMenuArray.length;i++)
  298. {
  299. if (DisabledContentMenuStr.indexOf(ContentMenuArray[i].Description)!=-1) ContentMenuArray[i].EnabledStr='disabled';
  300. else  ContentMenuArray[i].EnabledStr='';
  301. }
  302. }
  303. function SelectFile(Obj)
  304. {
  305. for (var i=0;i<document.all.length;i++)
  306. {
  307. if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
  308. }
  309. Obj.className='TempletSelectItem';
  310. PreviewFile(Obj);
  311. }
  312. function OpenParentFolder(Obj)
  313. {
  314. location.href='FolderImageList.asp?f_UserNumber=<%=session("FS_UserNumber")%>&CurrPath='+Obj.Path;
  315. SearchOptionExists(parent.document.all.FolderSelectList,Obj.Path);
  316. }
  318. function OpenFolder(Obj)
  319. {
  320. var SubmitPath='';
  321. if (CurrPath=='/') SubmitPath=CurrPath+Obj.Path;
  322. else SubmitPath=CurrPath+'/'+Obj.Path;
  323. location.href='FolderImageList.asp?f_UserNumber=<%=session("FS_UserNumber")%>&CurrPath='+SubmitPath;
  324. AddFolderList(parent.document.all.FolderSelectList,SubmitPath,SubmitPath);
  325. }
  327. function SelectUpFolder(Obj)
  328. {
  329. for (var i=0;i<document.all.length;i++)
  330. {
  331. if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
  332. }
  333. Obj.className='TempletSelectItem';
  334. parent.UserUrl.value='';
  335. }
  336. function PreviewFile(Obj)
  337. {
  338. var Url='';
  339. var Path=escape();
  340. if (CurrPath=='/') Path=escape(CurrPath+Obj.File);
  341. else Path=escape(CurrPath+'/'+Obj.File);
  342. Url='PreviewImage.asp?FilePath='+Path;
  343. if (G_VIRTUAL_ROOT_DIR!='')
  344. Path=Path.slice(G_VIRTUAL_ROOT_DIR.length+1)
  345. parent.UserUrl.value=Path;
  346. parent.frames["PreviewArea"].location=Url.toLowerCase();
  347. }
  348. function AddFolderList(SelectObj,Lable,LableContent)
  349. {
  350. var i=0,AddOption;
  351. if (!SearchOptionExists(SelectObj,Lable))
  352. {
  353. AddOption = document.createElement("OPTION");
  354. AddOption.text=Lable;
  355. AddOption.value=LableContent;
  356. SelectObj.add(AddOption);
  357. SelectObj.options(SelectObj.length-1).selected=true;
  358. }
  359. }
  360. function SearchOptionExists(Obj,SearchText)
  361. {
  362. var i;
  363. for(i=0;i<Obj.length;i++)
  364. {
  365. if (Obj.options(i).text==SearchText)
  366. {
  367. Obj.options(i).selected=true;
  368. return true;
  369. }
  370. }
  371. return false;
  372. }
  373. function SetFile(Obj)
  374. {
  375. //if (ShowVirtualPath=='')
  376. //{
  377. var PathInfo='',TempPath='';
  378. if (G_VIRTUAL_ROOT_DIR!='')
  379. {
  380. TempPath=CurrPath;
  381. PathInfo=TempPath.substr(TempPath.indexOf(G_VIRTUAL_ROOT_DIR)+G_VIRTUAL_ROOT_DIR.length);
  382. }
  383. else
  384. {
  385. PathInfo=CurrPath;
  386. }
  387. //}
  388. //else PathInfo=CurrPath;
  389. if (CurrPath=='/') window.returnValue=PathInfo+Obj.File;
  390. else window.returnValue=PathInfo+'/'+Obj.File;
  391. window.close();
  392. }
  393. window.onunload=CheckReturnValue;
  394. function CheckReturnValue()
  395. {
  396. if (typeof(window.returnValue)!='string') window.returnValue='';
  397. }
  398. function AddFolderOperation()
  399. {
  400. var ReturnValue=prompt('新建目录名：','');
  401. if ((ReturnValue!='') && (ReturnValue!=null))
  402. window.location.href='?f_UserNumber=<%=session("FS_UserNumber")%>&Type=AddFolder&Path='+CurrPath+'/'+ReturnValue+'&CurrPath='+CurrPath;
  403. }
  404. function DelFolderFile()
  405. {
  406. if (SelectedObj!=null)
  407. {
  408. if (SelectedObj.Path!=null) window.location.href='?f_UserNumber=<%=session("FS_UserNumber")%>&Type=DelFolder&Path='+CurrPath+'/'+SelectedObj.Path+'&CurrPath='+CurrPath;
  409. if (SelectedObj.File!=null) window.location.href='?f_UserNumber=<%=session("FS_UserNumber")%>&Type=DelFile&Path='+CurrPath+'&FileName='+SelectedObj.File+'&CurrPath='+CurrPath;
  410. }
  411. else alert('请选择要删除的目录');
  412. }
  413. function EditFolder()
  414. {
  415. var ReturnValue='';
  416. if (SelectedObj!=null)
  417. {
  418. if (SelectedObj.Path!=null)
  419. {
  420. ReturnValue=prompt('修改的名称：',SelectedObj.Path);
  421. if ((ReturnValue!='') && (ReturnValue!=null)) window.location.href='?f_UserNumber=<%=session("FS_UserNumber")%>&Type=FolderReName&Path='+CurrPath+'&CurrPath='+CurrPath+'&OldPathName='+SelectedObj.Path+'&NewPathName='+ReturnValue;
  422. }
  423. if (SelectedObj.File!=null)
  424. {
  425. ReturnValue=prompt('修改的名称：',SelectedObj.File);
  426. if ((ReturnValue!='') && (ReturnValue!=null)) window.location.href='?f_UserNumber=<%=session("FS_UserNumber")%>&Type=FileReName&Path='+CurrPath+'&CurrPath='+CurrPath+'&OldFileName='+SelectedObj.File+'&NewFileName='+ReturnValue;
  427. }
  428. }
  429. else alert('请填写要更名的目录名称');
  430. }
  431. function ClearPicUrl()
  432. {
  433. parent.UserUrl.value='';
  434. }
  435. </script>