folderimagelist.asp

在线网络测速在线网络测速在线网络测速在线网络测速

	SelectFolder();
}
function InitialClassListContentMenu()
{
	<%if MF_Check_Pop_TF("MF028") then Response.Write "ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction(""parent.AddFolderOperation();"",'新建目录','');"%>
	<%if MF_Check_Pop_TF("MF027") then Response.write "ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction(""if (confirm('确定要删除吗？')==true) parent.DelFolderFile();"",'删除','disabled');"%>
	//此处是否允许管理员重命名文件名，如果开启重命名有风险，请小心使用。
	<%if MF_Check_Pop_TF("MF026") then Response.write "ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction(""parent.EditFolder();"",'重命名','disabled');"%>
}
function SelectFolder()
{
	Obj=event.srcElement,DisabledContentMenuStr='';
	if (SelectedObj!=null) SelectedObj.className='TempletItem';
	if ((Obj.Path!=null)||(Obj.File!=null))
	{
		Obj.className='TempletSelectItem';
		SelectedObj=Obj;
	}
	else SelectedObj=null;
	if (SelectedObj!=null)	DisabledContentMenuStr='';
	else DisabledContentMenuStr=',删除,重命名,';
	for (var i=0;i<ContentMenuArray.length;i++)
	{
		if (DisabledContentMenuStr.indexOf(ContentMenuArray[i].Description)!=-1) ContentMenuArray[i].EnabledStr='disabled';
		else  ContentMenuArray[i].EnabledStr='';
	}
}
function SelectFile(Obj)
{	
	//for (var i=0;i<document.all.length;i++)
	//{
		//if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
	//}
	Obj.className='TempletSelectItem';
	PreviewFile(Obj);
}
function OpenParentFolder(Obj)
{
	location.href='FolderImageList.asp?CurrPath='+Obj.Path;
	SearchOptionExists(parent.document.all.FolderSelectList,Obj.Path);
}

function OpenFolder(Obj)
{
	var SubmitPath='';
	if (CurrPath=='/') SubmitPath=CurrPath+Obj.Path;
	else SubmitPath=CurrPath+'/'+Obj.Path;
	location.href='FolderImageList.asp?CurrPath='+SubmitPath;
	AddFolderList(parent.document.all.FolderSelectList,SubmitPath,SubmitPath);
}

function SelectUpFolder(Obj)
{
	//for (var i=0;i<document.all.length;i++)
	//{
		//if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
	//}
	Obj.className='TempletSelectItem';
	parent.UserUrl.value='';
}
function PreviewFile(Obj)
{
	var Url='';
	var Path=escape();
	if (CurrPath=='/') Path=escape(CurrPath+Obj.File);
	else Path=escape(CurrPath+'/'+Obj.File);
	Url='PreviewImage.asp?FilePath='+Path;
	//if (G_VIRTUAL_ROOT_DIR!='')
	//Path=Path.slice(G_VIRTUAL_ROOT_DIR.length+1)
	//parent.UserUrl.value="Http://"+MFDomain+Path;
	parent.UserUrl.value=Path;
	parent.frames["PreviewArea"].location=Url.toLowerCase();
}
function AddFolderList(SelectObj,Lable,LableContent)
{
	var i=0,AddOption;
	if (!SearchOptionExists(SelectObj,Lable))
	{
		AddOption = document.createElement("OPTION");
		AddOption.text=Lable;
		AddOption.value=LableContent;
		SelectObj.add(AddOption);
		SelectObj.options(SelectObj.length-1).selected=true;
	}
}
function SearchOptionExists(Obj,SearchText)
{
	var i;
	for(i=0;i<Obj.length;i++)
	{
		if (Obj.options(i).text==SearchText)
		{
			Obj.options(i).selected=true;
			return true;
		}
	}
	return false;
}
function SetFile(Obj)
{

		//var PathInfo='',TempPath='';
		//if (G_VIRTUAL_ROOT_DIR!='')
		//{
			//TempPath=CurrPath;
			//PathInfo=TempPath.substr(TempPath.indexOf(G_VIRTUAL_ROOT_DIR)+G_VIRTUAL_ROOT_DIR.length);
		//}
		//else
		//{
			PathInfo=CurrPath;
		//}
	//PathInfo="Http://"+MFDomain+PathInfo;
	if (CurrPath=='/')	window.returnValue=PathInfo+Obj.File;
	else window.returnValue=PathInfo+'/'+Obj.File;
	window.close();
}

window.onunload=CheckReturnValue;
function CheckReturnValue()
{
	if (typeof(window.returnValue)!='string') window.returnValue='';
}
function AddFolderOperation()
{
	var ReturnValue=prompt('新建目录名：','');
	if ((ReturnValue!='') && (ReturnValue!=null))
	{
		var patrn =/([^a-zA-Z0-9])/; 
		if (patrn.exec(ReturnValue))
		{
			alert('创建目录名不规范，请重设');
			return false;
		}
		else
		{
			window.location.href='?Type=AddFolder&Path='+CurrPath+'/'+ReturnValue+'&CurrPath='+CurrPath;
		}
	}
}
function DelFolderFile()
{
	if (SelectedObj!=null)
	{
		if (SelectedObj.Path!=null) window.location.href='?Type=DelFolder&Path='+CurrPath+'/'+SelectedObj.Path+'&CurrPath='+CurrPath;
		if (SelectedObj.File!=null) window.location.href='?Type=DelFile&Path='+CurrPath+'&FileName='+SelectedObj.File+'&CurrPath='+CurrPath;
	}
	else alert('请选择要删除的目录');
}
function EditFolder()
{
	var ReturnValue='';
	if (SelectedObj!=null)
	{
		if (SelectedObj.Path!=null)
		{
			ReturnValue=prompt('修改的名称：',SelectedObj.Path);
			var patrn =/([^a-zA-Z0-9])/; 
			if (patrn.exec(ReturnValue))
			{
				alert('修改目录名不规范，请重设');
				return false;
			}
			else
			{
				window.location.href='?Type=FolderReName&Path='+CurrPath+'&CurrPath='+CurrPath+'&OldPathName='+SelectedObj.Path+'&NewPathName='+ReturnValue;
			}
		}
		if (SelectedObj.File!=null)
		{
			ReturnValue=prompt('修改的名称：',SelectedObj.File);
			if ((ReturnValue!='') && (ReturnValue!=null)) 
			{
				var oldArr = SelectedObj.File.split('.');
				var NewArr = ReturnValue.split('.');
				var upload_Str = '<% = UpLoadFileNameStr %>';
				var Up_Arr = upload_Str.split(',');
				if (oldArr.length != NewArr.length)
				{
					alert('新的文件名不规范，请重设');
					return false;
				}
				window.location.href='?Type=FileReName&Path='+CurrPath+'&CurrPath='+CurrPath+'&OldFileName='+SelectedObj.File+'&NewFileName='+ReturnValue;
			}	
		}
	}
	else alert('请填写要更名的目录名称');
}
function ClearPicUrl()
{
parent.UserUrl.value='';
}
</script>
<body topmargin="0" leftmargin="0" onClick="SelectFolder();">
<%
'----2007-07-19 图片存入数组，排序显示
Dim All_Files_Arr(),str_Files_Name,str_Files_Size,str_Files_Date,str_Files_Type,Files_obj
Dim int_AllFilesNum,List_i,List_j,Ruler_Txt,Ruler_ID,Temp_Obj,Arr_List_i
Dim Order_Text,Order_Type,Order_Kind,Order_Mark
'排序字段：0文件名，1文件类型，2文件大小，3文件日期
Order_Text = Trim(Request.QueryString("Order_Text"))
If Order_Text = "" Or IsNull(Order_Text) Or Not IsNumeric(Order_Text) Then
	Order_Text = 3
Else
	Order_Text = Cint(Order_Text)
End If
'排序方式，0降序，1升序
Order_Type = Trim(Request.QueryString("Order_Type"))
If Order_Type = "" Or IsNull(Order_Type) Or Not IsNumeric(Order_Type) Then
	Order_Type = 0
Else
	Order_Type = Cint(Order_Type)
End If
'---
if Order_Text = 0 Or Order_Text = 1 Then
	If Order_Type = 0 Then
		Order_Kind = 1
	Else
		Order_Kind = 2
	End if
Else
	If Order_Type = 0 Then
		Order_Kind = 3
	Else
		Order_Kind = 4
	End if
End if	
%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
    <td width="37%" align="left" valign="middle" class="xingmu" title="点击以文件名排序"><span value="<% = Order_Type %>" id="Order_0" style="cursor:pointer;" onClick="Javascript:Order_AllFiles(this);">文 件 名</span></td>
    <td width="18%" align="left" valign="middle" class="xingmu" title="点击以文件类型排序"><span value="<% = Order_Type %>" id="Order_1" style="cursor:pointer;" onClick="Javascript:Order_AllFiles(this);">文件类型</span></td>
    <td width="15%" align="left" valign="middle" class="xingmu" title="点击以文件大小排序"><span value="<% = Order_Type %>" id="Order_2" style="cursor:pointer;" onClick="Javascript:Order_AllFiles(this);">文件大小</span></td>
    <td width="30%" align="left" valign="middle" class="xingmu" title="点击以上传日期排序"><span value="<% = Order_Type %>" id="Order_3" style="cursor:pointer;" onClick="Javascript:Order_AllFiles(this);">上传日期</span></td>
  </tr> 
  <%
if  lcase(Trim(CurrPath))<>  lcase(Trim(str_CurrPath)) then  
%>
  <tr title="上级目录<% = ParentPath %>" onClick="SelectUpFolder(this);" Path="<% = ParentPath %>" onDblClick="OpenParentFolder(this);"> 
    <td width="37%" class="hback"> <table width="62" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="21"><font color="#FFFFFF"><img src="../../Images/Folder/folder.gif" width="20" height="16"></font></td>
          <td width="41">...</td>
        </tr>
    </table></td>
    <td width="18%" class="hback"><div align="center"><font color="#FFFFFF">-</font></div></td>
    <td width="15%" class="hback"><div align="center"><font color="#FFFFFF">-</font></div></td>
    <td width="30%" class="hback">&nbsp;</td>
  </tr>
  <%
end if
for each FsoItem In SubFolderObj
%>
  <tr> 
    <td width="37%"  class="hback"><table border="0" cellspacing="0" cellpadding="0">
        <tr title="双击鼠标进入此目录"> 
          <td valign="top"><img src="../../Images/Folder/folder.gif" width="20" height="16"></td>
          <td> <span class="TempletItem" Path="<% = FsoItem.name %>" onClick="ClearPicUrl()"; onDblClick="OpenFolder(this);"> 
            <% = FsoItem.name %>
            </span> </td>
        </tr>
    </table></td>
    <td width="18%" class="hback"><div align="left">文件夹</div></td>
    <td width="15%" align="left" class="hback"><div align="left"> 
        0
		<!--<% = FsoItem.Size %>-->
    </div></td>
    <td width="30%" align="left" class="hback">&nbsp;</td>
  </tr>
  <%
next
%>
 
<%
'---存入数组
int_AllFilesNum = -1
For Each Files_obj In FileObj
	int_AllFilesNum = int_AllFilesNum + 1
	str_Files_Name = Files_obj.Name
	str_Files_Size = Files_obj.Size
	str_Files_Date = Files_obj.DateCreated
	str_Files_Type = Files_obj.Type
	ReDim Preserve All_Files_Arr(int_AllFilesNum)
	All_Files_Arr(int_AllFilesNum) = Array(str_Files_Name,str_Files_Type,str_Files_Size,str_Files_Date)
Next

Set FsoObj = Nothing
Set SubFolderObj = Nothing
Set FileObj = Nothing

'---按照排序重排数组
For List_i = int_AllFilesNum To 0 Step - 1
	Ruler_Txt = All_Files_Arr(0)(Order_Text)
	Ruler_ID = 0
	For List_j = 1 To List_i
		Select Case Order_Kind
			Case 1
				Order_Mark = (StrComp(All_Files_Arr(List_j)(Order_Text),Ruler_Txt,vbTextCompare) < 0)
			Case 2
				Order_Mark = (StrComp(All_Files_Arr(List_j)(Order_Text),Ruler_Txt,vbTextCompare) > 0)
			Case 3
				Order_Mark = (All_Files_Arr(List_j)(Order_Text) < Ruler_Txt)
			Case 4
				Order_Mark = (All_Files_Arr(List_j)(Order_Text) > Ruler_Txt)			
		End Select
		If Order_Mark = True Then
			Ruler_Txt = All_Files_Arr(List_j)(Order_Text)
			Ruler_ID = List_j
		End If
	Next
	If Ruler_ID <> List_i Then
		Temp_Obj = All_Files_Arr(Ruler_ID)
		All_Files_Arr(Ruler_ID) = All_Files_Arr(List_i)
		All_Files_Arr(List_i) = Temp_Obj
	End If	
Next

For Arr_List_i = LBound(All_Files_Arr) To UBound(All_Files_Arr)
	Dim Arr_Files_Type
	Arr_Files_Type = All_Files_Arr(Arr_List_i)(1)
	Arr_Files_Type = Replace(Arr_Files_Type," ","")
%>
  <tr title="双击鼠标选择此文件"> 
    <td width="37%"  class="hback">
	<%
	if Session("upfiles")=All_Files_Arr(Arr_List_i)(0) then %>
	<span  id="span_<% = All_Files_Arr(Arr_List_i)(0) %>" File="<% = All_Files_Arr(Arr_List_i)(0) %>" onDblClick="SetFile(this);" onClick="SelectFile(this);"> 
	<script language="javascript">
		AutoSelectFile($("span_<% = All_Files_Arr(Arr_List_i)(0) %>"));
		AutoSetFile($("span_<% = All_Files_Arr(Arr_List_i)(0) %>"));
		SelectedObj = $("span_<% = All_Files_Arr(Arr_List_i)(0) %>");
	</script>
	<%Else%>
	<span  id="<% = All_Files_Arr(Arr_List_i)(0) %>" File="<% = All_Files_Arr(Arr_List_i)(0) %>" onDblClick="SetFile(this);" onClick="SelectFile(this);"> 
	<%End if%>
      <img src="../../Images/FileIcon/doc.gif" width="16" height="16"> 
      <% = All_Files_Arr(Arr_List_i)(0) %>
      </span> </td>
    <td width="18%" class="hback"> <div align="left"> 
        <%if len(Arr_Files_Type)>18 then:response.Write left(Arr_Files_Type,18)&"...":else:response.Write Arr_Files_Type:end if%>
      </div></td>
    <td width="15%" class="hback"><div align="left"> 
        <%
		if All_Files_Arr(Arr_List_i)(2)>1000 then
			Response.Write FormatNumber(All_Files_Arr(Arr_List_i)(2)/1024,1,-1) &"KB"
        Else
			Response.Write All_Files_Arr(Arr_List_i)(2) &"字节"
		End if
		%>
      </div></td>
    <td width="30%" class="hback"><% = All_Files_Arr(Arr_List_i)(3) %></td>
  </tr>
  <%
  	'end if
next
%>
</table>
</body>
</html>