default.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 576 行 · 第 1/2 页

 
<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 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
			%>
 			<img src="<%=(UploadDir & theFile.Name)%>" width="35"  height="35">	
			<%			
			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='page' size='1' onchange='javascript: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>