<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="101"
	dir="../err.asp" 
  %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
 <!--#include file="../rolecheck.asp"-->
<%

 if Not ChkPost then response.redirect ("../../login/chklogin.asp?login=4")
Response.Expires = 0
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
 


act=Replace_Text(Trim(Request("act")))
SErverPath=Request.ServerVariables("Http_Host")
SErverPath="http://"&SErverPath&HOPE_InstallDir
Select case act 
	  Case "yixiang_AD"
			SaveUpFilesPath="UploadFile/AD/"
			
			WebPath=SErverPath&"UploadFile/AD/"
			
	  Case "yixiang_expouppic"
			SaveUpFilesPath="UploadFile/expouppic/"
			
			WebPath=SErverPath&"UploadFile/expouppic/"
			
	  Case "yixiang_infouppic"
	  		SaveUpFilesPath="UploadFile/infouppic/"
			
			WebPath=SErverPath&"UploadFile/infouppic/"

	  Case "yixiang_aboutuppic"
	  		SaveUpFilesPath="UploadFile/aboutuppic/"
	
			WebPath=SErverPath&"UploadFile/aboutuppic/"
			

	  Case "yixiang_Other"
	  		SaveUpFilesPath="UploadFile/Other/"
			
			WebPath=SErverPath&"UploadFile/Other/"
	  Case "yixiang_User"
	  		SaveUpFilesPath="UploadFile/User/"
				WebPath=SErverPath&"UploadFile/User/"
  Case "yixiang_vipinfopic"
	  		SaveUpFilesPath="UploadFile/vipinfopic/"
				WebPath=SErverPath&"UploadFile/vipinfopic/"
	  Case "yixiang_js"
	  		SaveUpFilesPath="ads/JS/"
				WebPath=SErverPath&"ads/JS/"
	  Case "yixiang_up_adsimg"
	  		SaveUpFilesPath="ads/up_adsimg/"
			WebPath=SErverPath&"ads/up_adsimg/"
	  Case "yixiang_Cofferlist"
	 	  	SaveUpFilesPath="corporation/offerlist/"
			WebPath=SErverPath&"corporation/offerlist/"
	  Case "yixiang_Ctrade"
	  	 	  	SaveUpFilesPath="corporation/trade/"
			 WebPath=SErverPath&"corporation/trade/"
			 
	  Case "yixiang_Hdetail"
	   	SaveUpFilesPath="Help/bin/detail/"
		 WebPath=SErverPath&"Help/bin/detail/"
			 
	  Case "yixiang_Hinfo"
	 	SaveUpFilesPath="Help/bin/info/"
		 WebPath=SErverPath&"Help/bin/info/"
	  Case "yixiang_community"
	 	 SaveUpFilesPath="info/community/"
		  WebPath=SErverPath&"info/community/"
	  Case "yixiang_Idetail"
	  	 SaveUpFilesPath="info/detail/"
		 WebPath=SErverPath&"info/detail/"
	  Case "yixiang_ptAll"
	  	  	 SaveUpFilesPath="Ptcom/"
			  WebPath=SErverPath&"Ptcom/"
	  Case "yixiang_Sofferlist"  
	  	  	 SaveUpFilesPath="Seller/offerlist/"
			 WebPath=SErverPath&"Seller/offerlist/"
	  Case "yixiang_Sofferdetail"  
	  	  	 SaveUpFilesPath="Seller/offerdetail/"
			  WebPath=SErverPath&"Seller/offerdetail/"
	  Case "yixiang_Strade" 
	  	  	 SaveUpFilesPath="Seller/trade/"
			  WebPath=SErverPath&"Seller/trade/"
	  Case "yixiang_Tofferlist"
	  	  	 SaveUpFilesPath="tradeinfo/offerlist/"
			 
			   WebPath=SErverPath&"tradeinfo/offerlist/"
	  Case "yixiang_Ttrade"
	  	  	 SaveUpFilesPath="tradeinfo/trade/"
			  WebPath=SErverPath&"tradeinfo/trade/"
	  Case "yixiang_Tofferdetail"
	  	  	 SaveUpFilesPath="tradeinfo/offerdetail/" 
			 WebPath=SErverPath&"tradeinfo/offerdetail/"
	  Case "yixiang_Vipcom"
	  	  	 SaveUpFilesPath="VipCom/" 
			  WebPath=SErverPath&"VipCom/"
	  Case "yixiang_page" 
		  	  	 SaveUpFilesPath="vipinfo/" 
				  WebPath=SErverPath&"vipinfo/"   
	  Case "yixiang_Vofferdetail"  
	      SaveUpFilesPath="vipinfo/offerdetail/"   
		    WebPath=SErverPath&"vipinfo/offerdetail/"    
	  Case else
	  	SaveUpFilesPath="UploadFile/"
		 WebPath=SErverPath&"UploadFile/" 
End Select

 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成文件管理</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<style type="text/css">
<!--
.STYLE1 {color: #0099CC}
.STYLE2 {color: #FF0000}
-->
</style>
<script language="javascript" >

function  isgo()
{
var i=confirm("你确定要删除吗？此操作将删除的是所有的该名目下生成的html文件，不可恢复！请慎重！");
if(i)
{
return true;

}
else
{
return false;
}
}
</script>
</head>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder">
 <tr> 
<th height=25 class="tableHeaderText">上传文件与生成ＨＴＭＬ文件管理</th>
</tr>
 <tr>
<td height="25" bgcolor="#EFF1F8"  >
<span style='color:red'>注意：
①删除文件时,请慎重操作。一旦删除后将无法恢复(注意：站点文件夹UploadFile下的图片文件nopicture.gif是默认的无图片显示用，请不要删除)</span></td>
</tr>
<tr><td height="30">
 <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#7B9EDE">
<tr>
<td bgcolor="#E2E8F3">
  <span class="STYLE1"><strong>&nbsp;快捷批量删除生成文件</strong>(<font color="red">提示：此操作将删除该名目下的<font color="#0033FF"><b>所有</b></font>的生成的html文件，不可恢复！</font>)</span>:<br>
  &nbsp;(<span class="STYLE2">一</span>).<a href="delfolderin.asp?dir=tradeinfo/trade" onClick="return isgo();">供应信息一、二级分类</a>|<a href="delfolderin.asp?dir=tradeinfo/offerlist" onClick="return isgo();">供应信息三级分类</a>|<a href="delfolderin.asp?dir=tradeinfo/offerdetail" onClick="return isgo();">供应信息详细页面</a>
  
  &nbsp;(<span class="STYLE2">二</span>).<a href="delfolderin.asp?dir=seller/trade" onClick="return isgo();">求购信息一二级分类</a>|<a href="delfolderin.asp?dir=seller/offerlist" onClick="return isgo();">求购信息三级分类</a>|<a href="delfolderin.asp?dir=seller/offerdetail" onClick="return isgo();">求购信息详细页面</a>
  <br>
   &nbsp;(<span class="STYLE2">三</span>).<a href="delfolderin.asp?dir=productshow/trade" onClick="return isgo();">产品库信息一二级分类</a>|<a href="delfolderin.asp?dir=productshow/offerlist" onClick="return isgo();">产品库信息三级分类</a>|<a href="delfolderin.asp?dir=productshow/offerdetail" onClick="return isgo();">产品库信息详细页面</a>
 
  &nbsp;(<span class="STYLE2">四</span>).<a href="delfolderin.asp?dir=service/expo/info" onClick="return isgo();">展会资讯信息详细页面</a>|<a href="delfolderin.asp?dir=service/expo/detail" onClick="return isgo();">展会信息详细页面</a>
 	      <br>   &nbsp;(<span class="STYLE2">五</span>).<a href="delfolderin.asp?dir=help/bin/info" onClick="return isgo();">帮助信息分类列表页</a>|<a href="delfolderin.asp?dir=help/bin/detail" onClick="return isgo();">帮助信息详细页面</a> 
  
 
    &nbsp;(<span class="STYLE2">六</span>).<a href="delfolderin.asp?dir=info/community" onClick="return isgo();">行业资询信息分类列表页</a>|<a href="delfolderin.asp?dir=info/detail" onClick="return isgo();">行业资询信息详细页面</a> 
	
       <br>
      &nbsp;(<span class="STYLE2">七</span>).<a href="delfolderin.asp?dir=vipinfo/offerdetail" onClick="return isgo();">专项商机信息详细页面</a>
	  
	      &nbsp;(<span class="STYLE2">八</span>).<a href="delfolderin.asp?dir=corporation/trade" onClick="return isgo();">公司库信息一二级分类</a>|<a href="delfolderin.asp?dir=corporation/offerlist" onClick="return isgo();">公司库信息三级分类</a>|<a href="delfolderin.asp?dir=Ptcom" onClick="return isgo();">所有企业的单名片页面</a>  </td>

 </tr>
</table>
</td></tr>
<tr>

<form name="form1">
<td height="40" bgcolor="#FAFBFC"  >

<script language="JavaScript"> 
<!-- 
var subcat = new Array(); 
subcat[0] = new Array('pic','AD','AD') 
subcat[1] = new Array('pic','expouppic','expouppic') 
subcat[2] = new Array('pic','infouppic','infouppic') 
subcat[3] = new Array('pic','aboutuppic','aboutuppic') 
subcat[4] = new Array('pic','Other','Other') 
subcat[5] = new Array('pic','User','User') 
subcat[6] = new Array('pic','vipinfopic','vipinfopic') 

subcat[7] = new Array('ads','js','js') 
subcat[8] = new Array('ads','up_adsimg','up_adsimg') 


subcat[9] = new Array('Help','detail','Hdetail') 
subcat[10] = new Array('Help','info','Hinfo') 

subcat[11] = new Array('info','community','community') 
subcat[12] = new Array('info','detail','Idetail') 
subcat[13] = new Array('pt','所有','ptAll') 

subcat[14] = new Array('seller','offerlist','Sofferlist') 
subcat[15] = new Array('seller','trade','Strade') 
subcat[23] = new Array('seller','offerdetail','Sofferdetail') 

subcat[16] = new Array('tradeinfo','offerlist','Tofferlist') 
subcat[17] = new Array('tradeinfo','trade','Ttrade') 
subcat[24] = new Array('tradeinfo','offerdetail','Tofferdetail') 

subcat[18] = new Array('Vipcom','根目录','Vipcom') 

subcat[19] = new Array('vipinfo','根目录','page') 
subcat[20] = new Array('vipinfo','offerdetail','Vofferdetail') 

subcat[21] = new Array('Co','offerlist','Cofferlist') 
subcat[22] = new Array('Co','trade','Ctrade') 

function changeselect1(locationid) 
{ 
document.form1.s2.length = 0; //初始化下拉列表 清空下拉数据 
document.form1.s2.options[0] = new Option('==请选择==',''); //给第一个值 
for (i=0; i<subcat.length; i++) //legth=20 
{ 
if (subcat[i][0] == locationid) //[0] [1] 第一列 第二列 
{document.form1.s2.options[document.form1.s2.length] = new Option(subcat[i][1], subcat[i][2]);} //建立option 
//第一次 length=1 因为有==请选择== 
//i=9时 length= 10 值有11个 因为从0数起 subcat[i][0] == locationid屏蔽了再写 
} 
} 
//--> 
function localhref(Values)
{	
	window.location.href='default.asp?act=yixiang_'+Values;

}
</script> 

   &nbsp;&nbsp;选择管理
   <select name="s1" onChange="changeselect1(this.value)"> 
<option>========请选择======</option> 

<option value="pic">UploadFile文件夹</option> 
<option value="ads">ads文件夹</option> 
<option value="info">info文件夹</option> 
<option value="Co">corporation文件夹</option> 
<option value="Help">help\bin文件夹</option> 
<option value="pt">Ptcom文件夹</option> 
<option value="seller">seller文件夹</option> 
<option value="tradeinfo">tradeinfo文件夹</option> 
<option value="Vipcom">Vipcom文件夹</option> 
<option value="vipinfo">vipinfo文件夹</option> 
</select>
下的 

<select name="s2" onChange="localhref(this.value)"> 
<option>==请选择==</option> 
</select> 
文件夹
</form> 
</tr>
<tr>
  <td class="forumRowHighlight">&nbsp;

<span class="forumRowHighlight">&nbsp; <br>
&nbsp;
<img src="../../images/bit2-1-1.gif" width="11" height="11" align="absmiddle"> 您当前位置:
<input name="yixiang_text" type="text" disabled id="yixiang_text"  style="border:1px solid #2B73F1;" value="<%=WebPath%>" size="50">
</span>
<%

Const MaxPerPage=20
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
strFileName="default.asp?"

if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

if request("page1")<>"" then
	currentPage=cint(request("page1"))
end if

if right(SaveUpFilesPath,1)<>"/" then
	UploadDir=HOPE_InstallDir& SaveUpFilesPath & "/"
else
	UploadDir=HOPE_InstallDir& SaveUpFilesPath
end if

TruePath=Server.MapPath(UploadDir)
If not IsObjInstalled(FS) Then
	Response.Write "<center><b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b></center>"
Else
	set fso=YXFSO
	if request("Action")="Del" then
		HisPath=Request.ServerVariables("SCRIPT_NAME")&"?act="&act&"&page="&currentpage&""
		whichfile=server.mappath(Request("FileName")) 
		Set thisfile = fso.GetFile(whichfile) 
		thisfile.Delete True
		
		Response.write "<script>window.location.href='"&HisPath&"'</script>"
	end if
	
	if request("Action")="FoDel" then
		HisPath=Request.ServerVariables("SCRIPT_NAME")&"?act="&act&"&page="&currentpage&""
			Call FSO_Del(Trim(Request("FileName")))
		Response.write "<script>window.location.href='"&HisPath&"'</script>"
		Response.end
	end if
	
	
%>
<script language="JavaScript">
function ConfirmDel()
{
if (confirm("您是否真的要删除此文件吗?一旦删除之后将无法恢复!!"))
	return true;
else
	return false;
}
</script>
 
	 <% 

  if fso.FolderExists(TruePath)then
	FileCount=0
	TotleSize=0
	Set theFolder=fso.GetFolder(TruePath)
	For Each theFile In theFolder.Files
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
	next
    totalPut=FileCount
	if currentpage<1 then
   		currentpage=1
   	end if
   	if (currentpage-1)*MaxPerPage>totalput then
		if (totalPut mod MaxPerPage)=0 then
	  		currentpage= totalPut \ MaxPerPage
	  	else
	      	currentpage= totalPut \ MaxPerPage + 1
		end if

    end if
	if currentPage=1 then
		showpage2 strFileName,totalput,MaxPerPage
		showContent     	
		showpage2 strFileName,totalput,MaxPerPage
		response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
   	else
   	   	if (currentPage-1)*MaxPerPage<totalPut then
			showpage2 strFileName,totalput,MaxPerPage
			showContent     	
			showpage2 strFileName,totalput,MaxPerPage
			response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
       	else
        	currentPage=1
			showpage2 strFileName,totalput,MaxPerPage
			showContent     	
			showpage2 strFileName,totalput,MaxPerPage
			response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
    	end if
	end if
  else
	response.write "找不到文件夹！可能是配置有误！"
  end if
end if

sub showContent()
   	dim c
	FileCount=0
	TotleSize=0
%>
<%if act="yixiang_Vipcom" then %>
	<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top">

        <br>
  <%
	  SET   objFSO   = yXFSO 
      SET   objFolder   =   objFSO.GetFolder(Server.MapPath(HOPE_InstallDir&"vipcom/"))   
 %>
	 <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8">
          <tr bgcolor="#EBEEF3">
            <td width="219" height="25" align="center" >文件夹名称</td>
            <td height="20" align="center">大小</td>
            <td height="20" align="center">文件类型</td>
            <td height="20" align="center">最后修改时间</td>
            <td width="71" height="20" align="center">操作</td>
        </tr>
   <%   For   Each   objSubFolder   in   objFolder.SubFolders 
				c=c+1
				if FileCount>=MaxPerPage then
					exit for
				elseif c>MaxPerPage*(CurrentPage-1) then
   
     %>
         
          <tr align="center" class="tdbg">
            <td height="22"><% response.write   objSubFolder.Name %></td>
            <td width="182"><% response.write   (int(objSubFolder.size/1024))&"KB" %></td>
            <td width="241"><%=objSubFolder.type%></td>
            <td width="264"><%=objSubFolder.DateLastModified%></td>
            <td><a href="Default.asp?Action=FoDel&FileName=<%=UploadDir&objSubFolder.Name%>&act=<%=Trim(Request("act"))%>&page=<%=currentPage%>" onClick="return ConfirmDel()">删除</a></td>
        </tr>
  <%		FileCount=FileCount+1
		TotleSize=TotleSize+objSubFolder.Size
	end if
  
  
   next
  SEt objFolder=nothing
  %>	
      </table>


<%else%>
        <table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8">
          <tr bgcolor="#EBEEF3">
            <td height="25" align="center" >文件名</td>
            <td height="20" align="center">文件大小</td>
            <td height="20" align="center">文件类型</td>
            <td height="20" align="center">最后修改时间</td>
            <td height="20" align="center">操作</td>
          </tr>
          <%

For Each theFile In theFolder.Files
	c=c+1
	if FileCount>=MaxPerPage then
		exit for
	elseif c>MaxPerPage*(CurrentPage-1) then
			if Right(theFile.Name,4)<>".asp" then 
%>
          <tr class="tdbg">
            <td height="22">
			<%
			if instr(UploadDir,"UploadFile")>0  then
 
			if right(trim(theFile.Name),4)=".swf" then 
			%>
		 <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="35" height="35"> 
		 <param name="movie" value="<%=(UploadDir & theFile.Name)%>"><param name="quality" value="high">
		 <embed src="<%=(UploadDir & theFile.Name)%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="35" height="35">
		 </embed>
		 </object>
		 <%
	else
	%> 	
			<img src="<%=(UploadDir & theFile.Name)%>" width="35"  height="35">	
 	
	<%
	end if
 end if
			%>
			<a href="<%=(UploadDir & theFile.Name)%>" target="_blank"><strong>&nbsp;<%=theFile.Name%></strong></a></td>
            <td align="center"><%=theFile.size/1024%>KB</td>
            <td align="center"><%=theFile.type%></td>
            <td align="center"><%=theFile.DateLastModified%></td>
            <td width="43" align="center"><% if theFile.Name<>"nopicture.gif" then %><a href="Default.asp?Action=Del&FileName=<%=UploadDir&theFile.Name%>&act=<%=Trim(Request("act"))%>&page=<%=currentPage%>" onClick="return ConfirmDel()">删除</a><%else%>
			<font  color="#CCCCCC">删除</font>
			<%end if%></td>
          </tr>
          <%
		  	end if
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
	end if
Next
%>
      </table>
    <%
	end if
end sub
%></td>
  </tr>
</table><br><br></td>
</tr>
 
</table>
<%
sub showpage2(sfilename,totalnumber,maxperpage)
	dim n, i,strTemp
	if totalnumber mod maxperpage=0 then
    	n= totalnumber \ maxperpage
  	else
    	n= totalnumber \ maxperpage+1
  	end if
  	strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "page=" & n & "&act="&act&"'><tr><td>"
	strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K&nbsp;&nbsp;&nbsp;"
	sfilename=JoinChar(sfilename)
  	if CurrentPage<2 then
    		strTemp=strTemp & "首页 上一页&nbsp;"
  	else
    		strTemp=strTemp & "<a href='" & sfilename & "page=1&act="&act&"'>首页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "&act="&act&"'>上一页</a>&nbsp;"
  	end if

  	if n-currentpage<1 then
    		strTemp=strTemp & "下一页 尾页"
  	else
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "&act="&act&"'>下一页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "&act="&act&"'>尾页</a>"
  	end if
   	strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
    strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & "个文件/页"
	strTemp=strTemp & "&nbsp;转到：<select name='page1' size='1' onchange='javascript:this.form.submit()'>"   
    for i = 1 to n   
   		strTemp=strTemp & "<option value='" & i & "'"
		if cint(CurrentPage)=cint(i) then strTemp=strTemp & "  selected "
		strTemp=strTemp & ">第" & i & "页</option>"   
	next
	strTemp=strTemp & "</select>"
	strTemp=strTemp & "</td></tr></form></table>"
	response.write strTemp
end sub

'***************************************************
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'       False ----没有安装
'***************************************************
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

'***********************************************
'函数名：JoinChar
'作  用：向地址中加入 ? 或 &
'参  数：strUrl  ----网址
'返回值：加了 ? 或 & 的网址
'***********************************************
function JoinChar(strUrl)
	if strUrl="" then
		JoinChar=""
		exit function
	end if
	if InStr(strUrl,"?")<len(strUrl) then 
		if InStr(strUrl,"?")>1 then
			if InStr(strUrl,"&")<len(strUrl) then 
				JoinChar=strUrl & "&"
			else
				JoinChar=strUrl
			end if
		else
			JoinChar=strUrl & "?"
		end if
	else
		JoinChar=strUrl
	end if
end function

%></body>
</html>
