<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="51windows.Net">
<meta name="Author" content="haiwa">
<title>Upload many file - 51windows.Net</title>
<style>
*{font:menu}
input{font-size:12px;}
.checkbox{}
.showdiv{padding-left:40px;}
</style>
</head>
<body>
请选择要上传的条件的过滤条件：<br>
<input onclick="document.all.strdiv.style.display=(this.checked?'':'none')" type="checkbox" class="checkbox" name="checkstr" id="checkstr" value="1"> <label for="checkstr">文件名</label><br>
<div class="showdiv" id="strdiv" style="display:none;"><select name="filestrconditions" xonchange="alert(this.options[this.selectedIndex].value)">
<option value="1">包含</option>
<option value="0">不包含</option>
</select>
<input type="text" size="8" name="filestrstr" value=""> <input type="checkbox" class="checkbox" name="checkstrinstart" id="checkstrinstart" value="1"> <label for="checkstrinstart">文件名开头</label>
<br><input type="checkbox" class="checkbox" name="checkstrcase" id="checkstrcase" value="1"> <label for="checkstrcase">区分大小写</label>
<!-- <br><input type="checkbox" class="checkbox" name="checkreg" id="checkreg" value="1"> <label for="checkreg">使用正则表达式</label>
--></div>
<div><input onclick="document.all.sizediv.style.display=(this.checked?'':'none')" type="checkbox" class="checkbox" name="checksize" id="checksize" value="1"> <label for="checksize">大小</label></div>
<div class="showdiv" id="sizediv" style="display:none;"><select name="filesizeconditions" xonchange="alert(this.options[this.selectedIndex].value)">
<option value="1">至多</option>
<option value="0">至少</option>
</select>
<input type="text" size="8" id="filesizelimit" value="100" style="text-align:right"> K
</div>
<div><input onclick="document.all.typediv.style.display=(this.checked?'':'none')" type="checkbox" class="checkbox" name="checktype" id="checktype" value="1"> <label for="checktype">类型</label></div>
<div class="showdiv" id="typediv" style="display:none;"><select name="fileextconditions" xonchange="alert(this.options[this.selectedIndex].value)">
<option value="1">选择所选类型</option>
<option value="0">排除所选类型</option>
</select><br>
<SCRIPT LANGUAGE="JavaScript">
<!--
allextstr = "gif,bmp,jpg,png<br>,js,css,html,htm,asp,aspx,java<br>,mp3,avi,rm,ram,mid,wmv<br>,doc,xls,ppt,eml,txt,pdf,chm<br>,rar,zip,exe,reg"
extarr = allextstr.split(",")
for (var l = 0;l<extarr.length;l++)
{
document.write('<label for="ft'+l+'"><input onclick="selectfiletype()" type="checkbox" class="checkbox" name="ft" id="ft'+l+'" value="'+extarr[l]+'">.'+extarr[l]+'</label>')
}
//-->
</SCRIPT>
<input type="hidden" name="allselectfileeext">
</div>
<div><input onclick="document.all.datediv.style.display=(this.checked?'':'none')" type="checkbox" class="checkbox" name="checkdate" id="checkdate" value="1"> <label for="checkdate">日期</label></div>
<div class="showdiv" id="datediv" style="display:none;">
<input checked onclick="document.all.filedate.disabled=!this.checked" type="radio" class="checkbox" name="sdate" id="sdate0" value="0"> <label for="sdate0">前</label> <input type="text" size="8" name="filedate" value="1" style="text-align:right"> 小时(可以使用1*24)<br>
<span style="width:60px;"><input onclick="document.all.filedate.disabled=this.checked" type="radio" class="checkbox" name="sdate" id="sdate1" value="1"> <label for="sdate1">介于</label></span> <object disabled id=startdate height="22" width="100" classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" name="date1">
<param name="CurrentDate" value=Date(now())>
</object><br>
<span style="width:60px;"> 和 </span><object disabled id=enddate height="22" width="100" classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" name="date2">
<param name="CurrentDate" value=Date(now())>
</object>
</div>
在要上传的文件夹中选择一个文件：<input type="file" name="spath" size="1" onchange="filelist()"> ，然后在弹出的安全提示对话框中选择<B>是</B><br>
<input type="hidden" name="pathstr">
<input type="hidden" name="fileliststr">
<form name="form1" method="post" action="
http://127.0.0.1/upfiles.asp?up=1" enctype="multipart/form-data">
<input type="hidden" name="act" value="upload">
<div id=MyZone></div>
<SCRIPT LANGUAGE="VBScript">
<!--
'
http://www.51windows.Net'海娃＠2004-11-5
function checkfilename(fname1)
fname = fname1
check = true
searchstr = document.all.filestrstr.value
if (document.all.checkstr.checked) and len(searchstr)>0 then
if (document.all.checkstrcase.checked=false) then
fname = lcase(fname)
searchstr = lcase(searchstr)
end if
if (document.all.checkstrinstart.checked) and (len(fname) >= len(searchstr)) then
fname = left(fname,len(searchstr))
end if
if (document.all.filestrconditions.value="1") then
if instr(fname,searchstr)>0 then
check = true
else
check = false
end if
else
if instr(fname,searchstr)>0 then
check = false
else
check = true
end if
end if
end if
if HasCnStr(fname1) then
check = false
end if
checkfilename = check
end function
function checkextname(fname1)
fname = fname1
check = true
if (document.all.checktype.checked) then
fnameext = lcase(fname)
while instr(fnameext,".")>0
fnameext = right(fnameext,len(fnameext)-1)
wend
if (document.all.fileextconditions.value="1") then
if instr(document.all.allselectfileeext.value,","& fnameext &",")>0 then
check1 = true
else
check = false
end if
else
if instr(document.all.allselectfileeext.value,","& fnameext &",")>0 then
check = false
else
check = true
end if
end if
end if
checkextname = check
end function
function checksize(fsize1)
nfilesizelimit = document.all.filesizelimit.value
if isnumeric(nfilesizelimit) = false then
checksize = true
exit function
end if
fsize = fsize1
nfilesizelimit = nfilesizelimit*1024
check = true
if (document.all.checksize.checked) then
if (document.all.filesizeconditions.value="1") then
if fsize>nfilesizelimit then
check = false
else
check = true
end if
else
if fsize<nfilesizelimit then
check = false
else
check = true
end if
end if
end if
checksize = check
end function
function checkdate(fdate1)
fdate = fdate1
check = true
if (document.all.checkdate.checked) then
if (document.all.sdate0.checked) then
nfiledate = eval(document.all.filedate.value)
if isnumeric(nfiledate) = false then
checkdate = true
exit function
end if
if fdate>dateadd("h",-nfiledate,now) then
check = true
else
check = false
end if
else
if (fdate > startdate.value and fdate<enddate.value) or (fdate < startdate.value and fdate > enddate.value) then
check = true
else
check = false
end if
end if
end if
checkdate = check
end function
Function HasCnStr(str)
Set regEx=New RegExp
regEx.Pattern="[\u4E00-\u9FA5]"
regEx.IgnoreCase=true
regEx.Global=True
HasCnStr = regEx.test(str)
End Function
function formatsendkey(str)
str1 = str
str1 = replace(str1,"%","{%}")
str1 = replace(str1,"~","{~}")
str1 = replace(str1,"^","{^}")
str1 = replace(str1,"+","{+}")
formatsendkey = str1
end function
function filelist()
Set fsoBrowse = CreateObject("Scripting.FileSystemObject")
cpath = document.all.spath.value
if instr(cpath,":")>0 then
if HasCnStr(cpath) then
msgbox "对不起，暂时不支持中文路径，请把要上传的文件移动或复制到一个非中文路径下的文件夹中。"
exit function
end if
while right(cpath,1)<>"\"
cpath = left(cpath,len(cpath)-1)
wend
dim allfilename,filesize,filenum
allfilename = ""
filesize = 0
filenum = 0
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
For Each x In theFiles
if checkfilename(x.name) and checkextname(x.name) and checksize(x.Size) and checkdate(x.DateLastModified) then
filesize = filesize + x.Size
filenum = filenum + 1
'msgbox checkextname(x.name)
'msgbox (x.DateLastModified)'DateCreated
allfilename = allfilename & formatsendkey(x.name) & "*"& formatnumber(x.Size/1024,2) &"|"
end if
next
end if
set fsoBrowse = nothing
if len(allfilename)>0 then allfilename = left(allfilename,len(allfilename)-1)
document.all.pathstr.value = cpath
document.all.fileliststr.value = allfilename
if len(allfilename) > 0 then
Bstart = msgbox("共"& filenum &"个文件，"& formatnumber(filesize/1024/1024,3) &"M"&vbnewline & vbnewline&"开始列出文件吗？",vbYesNo)
if Bstart = 6 then
creatinput()
end if
else
msgbox "没有查找到适合的文件"
end if
else
msgbox "路径错误"
end if
end function
//-->
</SCRIPT>
<script language="JavaScript">
//http://www.51windows.Net
//海娃＠2004-11-5
var allfilefolder
var allfilename
var filearr
var start = 1
var end
var s;
function selectfiletype()
{
var sHTML = ',';
var oListft = document.all.ft;
for ( var i = 0 ; i < oListft.length ; i++ )
{
var sValue = oListft.value.replace("<br>","");
if (oListft.checked)
{
sHTML += sValue+"," ;
}
}
document.all.allselectfileeext.value = sHTML;
}
function creatinput()
{
var allfilefolder = document.all.pathstr.value
var allfilename = document.all.fileliststr.value
var filearr = allfilename.split("|")
end = filearr.length+1
formhtml = ""
for (i=start;i<end;i++)
{
k = "00000"+i;
k = k.substr(k.length-4,4)
formhtml+="("+k+").<input type='file' style='ime-mode:disabled;' size='80' name='file"+i+"'><span style='width:60px;text-align:right;'> "+filearr[i-1].split("*")[1]+"k</span><br>"
}
document.all.MyZone.innerHTML=formhtml;
s = setInterval("setfile(start)",50);
}
function setfile(j)
{
var allfilefolder = document.all.pathstr.value
var allfilename = document.all.fileliststr.value
var filearr = allfilename.split("|")
eval("document.all.file"+j).focus();
var WshShell=new ActiveXObject("WScript.Shell")
WshShell.sendKeys(allfilefolder+filearr[j-1].split("*")[0])
start++
if (start==end){clearInterval(s);start=1;}
}
</script>
上传到:<input name="filepath" type="text" value="/xxx/" size="40">
<input type="submit" name="Submit" value="上传文件"></form>
</body>
</html>
《〈〈〈〈〈〈〈222222222222222222222〉〉〉〉〉〉〉〉〉〉〉。〉
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="51windows.Net">
<meta name="Author" content="haiwa">
<title>Upload many file - 51windows.Net</title>
<style>*{font:menu}</style>
</head>
<body>
在要上传的文件夹中选择一个文件：<input type="file" name="spath" size="1" onchange="filelist()"> ，然后在弹出的安全提示对话框中选择<B>是</B><br>
<input type="hidden" name="pathstr">
<input type="hidden" name="fileliststr">
<form name="form1" method="post" action="
http://127.0.0.1/upfiles.asp?up=1" enctype="multipart/form-data">
<input type="hidden" name="act" value="upload">
<div id=MyZone></div>
<SCRIPT LANGUAGE="VBScript">
<!--
Function HasCnStr(str)
Set regEx=New RegExp
regEx.Pattern="[\u4E00-\u9FA5]"
regEx.IgnoreCase=true
regEx.Global=True
HasCnStr = regEx.test(str)
End Function
function formatsendkey(str)
str1 = str
str1 = replace(str1,"%","{%}")
str1 = replace(str1,"~","{~}")
str1 = replace(str1,"^","{^}")
str1 = replace(str1,"+","{+}")
formatsendkey = str1
end function
function filelist()
Set fsoBrowse = CreateObject("Scripting.FileSystemObject")
cpath = document.all.spath.value
if instr(cpath,":")>0 then
if HasCnStr(cpath) then
msgbox "对不起，暂时不支持中文路径，请把要上传的文件移动或复制到一个非中文路径下的文件夹中。"
exit function
end if
while right(cpath,1)<>"\"
cpath = left(cpath,len(cpath)-1)
wend
dim allfilename,filesize,filenum
allfilename = ""
filesize = 0
filenum = 0
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
For Each x In theFiles
'if x.Size < 1024*100 then'这里是条件，现在条件为小于100K之内的
if HasCnStr(x.Name) = false then
filesize = filesize + x.Size
filenum = filenum + 1
allfilename = allfilename & formatsendkey(x.name) & "|"
end if
'end if
next
end if
set fsoBrowse = nothing
'cpath = replace(cpath,"\","\\")
allfilename = left(allfilename,len(allfilename)-1)
document.all.pathstr.value = cpath
document.all.fileliststr.value = allfilename
msgbox "共"& filenum &"个文件，"& formatnumber(filesize/1024/1024,3) &"M"
creatinput()
else
msgbox "路径错误"
end if
end function
//-->
</SCRIPT>
<script language="JavaScript">
var allfilefolder
var allfilename
var filearr
var start = 1
var end
var s;
function creatinput()
{
var allfilefolder = document.all.pathstr.value
var allfilename = document.all.fileliststr.value
var filearr = allfilename.split("|")
end = filearr.length+1
formhtml = ""
for (i=start;i<end;i++)
{
k = "00000"+i;
k = k.substr(k.length-4,4)
formhtml+="("+k+").<input type='file' size='80' name='file"+i+"'><br>"
}
document.all.MyZone.innerHTML=formhtml;
s = setInterval("setfile(start)",50);
}
function setfile(j)
{
var allfilefolder = document.all.pathstr.value
var allfilename = document.all.fileliststr.value
var filearr = allfilename.split("|")
eval("document.all.file"+j).focus();
var WshShell=new ActiveXObject("WScript.Shell")
WshShell.sendKeys(allfilefolder+filearr[j-1])
start++
if (start==end){clearInterval(s);start=1;}
}
</script>
上传到:<input name="filepath" type="text" value="/xxx/" size="40">
<input type="submit" name="Submit" value="上传文件"></form>
</body>
</html>
