六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

使用FSO按文件大小瀏覽文件目錄并進行刪除設置

發表時間：2023-08-13 來源：明輝站整理相關軟件相關文章人氣：

[摘要]<%@ Language=VBScript %><%Server.ScriptTimeout=50000%><HTML><HEAD><META ...
<%@ Language=VBScript %>
<%Server.ScriptTimeout=50000%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<%
function JudgeParaRegular(intID)
if intID<>"" and isnumeric(intID) then
JudgeParaRegular=intId
else
Response.Write "輸入錯誤！"
Response.End
end if
end function
intFileSize=JudgeParaRegular(Request.QueryString("intFileSize"))
strPath=Request.QueryString("strPath")
if instr(strPath,":")=0 then strPath=server.MapPath(strPath)
%>
<%
function deletefiles(path)
on error resume next
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path) then
fs.DeleteFile path,True
response.write "成功刪除"&path
else
response.write "文件不存在!"
end if
Set fs=nothing
if Err.number<>0 then Response.Write Err.number
end function
strFile=request("strFile")
if request("strFile")<>"" then
deletefiles strFile
end if

%>

<%
function ListFolderFiles(strPath,intFileSize,intFlag)
strOriginPath= Request.ServerVariables("Script_Name")& "?strPath=" &Request.QueryString("strPath") & "&intFileSize="&Request.QueryString("intFileSize")
if strPath<>"" then
if intFlag=0 then
intFlag=intFlag+1
end if
Set objFs=Server.CreateObject("Scripting.FileSystemObject")
Set objFdir=objFs.GetFolder(strPath)
strParentPath= objFs.GetParentFolderName(strPath)
for each strSubFiles in objFdir.files
if strSubFiles.size /(1024^2)>=intFileSize then
Response.Write "<TR>" & vbcrlf
Response.Write "<TD>" & replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),"<b>"&strNullTran(strSubFiles.Name)&"</b>") & "</TD>" & vbcrlf
Response.Write "<TD>"& strNullTran(FormatNumber(strSubFiles.size /(1024^2),2)) &" MB</TD>" & vbcrlf
Response.Write "<TD>" & strNullTran(strSubFiles.type) & "</TD>" & vbcrlf
Response.Write "<TD>" & strNullTran(strSubFiles.datelastmodified) & "</TD>" & vbcrlf
Response.Write "<TD><A HREF='"& strOriginPath & "&strFile="&strNullTran(strSubFiles)&"'><img align=absmiddle border=0 src='http://edu.chinaz.com/Get/Program/Asp/images/delete.gif'></A></TD>" & vbcrlf
Response.Write "</TR>" & vbcrlf
intFlag=intFlag+strSubFiles.size
end if
next
for each strSubFolders in objFdir.SubFolders
if intFlag=0 then intFlag=1
ListFolderFiles strSubFolders,intFileSize,intFlag
next
else
Response.Write "<tr><td colspan=5>輸入錯誤！</td></tr>"
end if
ListFolderFiles=intFlag
end function
function strNullTran(str)
if isnull(str) or str="" then
strNullTran=" "
else
strNullTran=str
end if
end function
Response.Write "<TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1>" & vbcrlf
Response.Write "<TR>" & vbcrlf
Response.Write "<TD>文件名及路徑</TD>" & vbcrlf
Response.Write "<TD align=center>大小</TD>" & vbcrlf
Response.Write "<TD align=center>類別</TD>" & vbcrlf
Response.Write "<TD align=center>修改時間</TD>" & vbcrlf
Response.Write "<TD align=center>刪除</TD>" & vbcrlf
Response.Write "</TR>" & vbcrlf
intFlag=ListFolderFiles(strPath,CDbl(intFileSize),0)
Response.Write "<tr><td align=right>總計：</td><td colspan=4>"&formatNumber((intFlag-1)/(1024^2),2) &" MB</td></tr>" & vbcrlf
Response.Write "</TABLE>" & vbcrlf
%>
</BODY>
</HTML>
主站蜘蛛池模板： 午夜精品福利在线观看 | 亚洲黄网在线 | 婷婷激情六月 | 青娱乐手机在线视频 | 亚洲成a人一区二区三区 | 亚洲人成在线观看男人自拍 | 影音先锋久久 | 亚洲a级黄色 | 日本国产在线视频 | 校园激情综合网 | 中文字幕第二一区 | 性大交 | 亚洲zscs综合网站 | 亚洲观看视频 | 日韩精品成人a在线观看 | 伊人手机在线视频 | 亚洲精品小说 | 青青视频网站 | 天天操天天干天天玩 | 日本中文字幕网址 | 色综合久久五月 | 亚洲国产日产无码精品 | 欧洲呦女网站 | 在线亚洲+欧美+日本专区 | 亚洲ol | 日本精品一区二区三区四区 | 日本红怡院亚洲红怡院最新 | 中国xxxx色视频在线观看 | 四虎网址在线 | 日韩精品特黄毛片免费看 | 在线观看国产一区二三区 | 亚洲国产第一 | 日本高清视频一区二区 | 色综合天天综合高清网国产 | 天天怕夜夜怕狠狠怕 | 亚洲乱码中文字幕久久 | 三级成人影院 | 天天躁天天碰天天看 | 天堂网色| 四虎国产精品永久地址51 | 欧美在线日韩在线 |