隋国明-手机版个人主页

网页编程－快捷上传文件的脚本与代码

本脚本与代码的功能为：选定几个文件后，通过右键中菜单中可以很方便的将文件上传到服务器。

1、将下面代码修改后（上传密码与默认上传路径）存为myup.asp，通过ftp等工具上传到服务器

<html><head><meta http-equiv="content-type" content="text/html; charset=gb2312"><title>upload</title><style>*{font:12px}</style></head><body> <%if request("act")="upload" then%><%server.scripttimeout=5000%> <script runat=server language=vbscript> dim data_5xsoft class upload_5xsoft dim objform,objfile,version public function form(strform) strform=lcase(strform) if not objform.exists(strform) then form="" else form=objform(strform) end if end function public function file(strfile) strfile=lcase(strfile) if not objfile.exists(strfile) then set file=new fileinfo else set file=objfile(strfile) end if end function private sub class_initialize dim requestdata,sstart,vbcrlf,sinfo,iinfostart,iinfoend,tstream,istart,thefile dim ifilesize,sfilepath,sfiletype,sformvalue,sfilename dim ifindstart,ifindend dim iformstart,iformend,sformname set objform=server.createobject("scripting.dictionary") set objfile=server.createobject("scripting.dictionary") if request.totalbytes<1 then exit sub set tstream = server.createobject("adodb.stream") set data_5xsoft = server.createobject("adodb.stream") data_5xsoft.type = 1 data_5xsoft.mode =3 data_5xsoft.open data_5xsoft.write request.binaryread(request.totalbytes) data_5xsoft.position=0 requestdata =data_5xsoft.read iformstart = 1 iformend = lenb(requestdata) vbcrlf = chrb(13) & chrb(10) sstart = midb(requestdata,1, instrb(iformstart,requestdata,vbcrlf)-1) istart = lenb (sstart) iformstart=iformstart+istart+1 while (iformstart + 10) < iformend iinfoend = instrb(iformstart,requestdata,vbcrlf & vbcrlf)+3 tstream.type = 1 tstream.mode =3 tstream.open data_5xsoft.position = iformstart data_5xsoft.copyto tstream,iinfoend-iformstart tstream.position = 0 tstream.type = 2 tstream.charset ="gb2312" sinfo = tstream.readtext tstream.close iformstart = instrb(iinfoend,requestdata,sstart) ifindstart = instr(22,sinfo,"name=""",1)+6 ifindend = instr(ifindstart,sinfo,"""",1) sformname = lcase(mid (sinfo,ifindstart,ifindend-ifindstart)) if instr (45,sinfo,"filename=""",1) > 0 then set thefile=new fileinfo ifindstart = instr(ifindend,sinfo,"filename=""",1)+10 ifindend = instr(ifindstart,sinfo,"""",1) sfilename = mid (sinfo,ifindstart,ifindend-ifindstart) thefile.filename=getfilename(sfilename) thefile.filepath=getfilepath(sfilename) ifindstart = instr(ifindend,sinfo,"content-type: ",1)+14 ifindend = instr(ifindstart,sinfo,vbcr) thefile.filetype =mid (sinfo,ifindstart,ifindend-ifindstart) thefile.filestart =iinfoend thefile.filesize = iformstart -iinfoend -3 thefile.formname=sformname if not objfile.exists(sformname) then objfile.add sformname,thefile end if else tstream.type =1 tstream.mode =3 tstream.open data_5xsoft.position = iinfoend data_5xsoft.copyto tstream,iformstart-iinfoend-3 tstream.position = 0 tstream.type = 2 tstream.charset ="gb2312" sformvalue = tstream.readtext tstream.close if objform.exists(sformname) then objform(sformname)=objform(sformname)&", "&sformvalue else objform.add sformname,sformvalue end if end if iformstart=iformstart+istart+1 wend requestdata="" set tstream =nothing end sub private sub class_terminate if request.totalbytes>0 then objform.removeall objfile.removeall set objform=nothing set objfile=nothing data_5xsoft.close set data_5xsoft =nothing end if end sub private function getfilepath(fullpath) if fullpath <> "" then getfilepath = left(fullpath,instrrev(fullpath, "\")) else getfilepath = "" end if end function private function getfilename(fullpath) if fullpath <> "" then getfilename = mid(fullpath,instrrev(fullpath, "\")+1) else getfilename = "" end if end function end class class fileinfo dim formname,filename,filepath,filesize,filetype,filestart private sub class_initialize filename = "" filepath = "" filesize = 0 filestart= 0 formname = "" filetype = "" end sub public function saveas(fullpath) dim dr,errorchar,i saveas=true if trim(fullpath)="" or filestart=0 or filename="" or right(fullpath,1)="/" then exit function set dr=createobject("adodb.stream") dr.mode=3 dr.type=1 dr.open data_5xsoft.position=filestart data_5xsoft.copyto dr,filesize dr.savetofile fullpath,2 dr.close set dr=nothing saveas=false end function end class </script> <% 'http://www.51windows.net '海娃＠2005-6-9 dim upload,file,formname,formpath,icount,jscriptback,uppass,rename jscriptback = "<a href=""javascript:history.back();"">返回</a>" set upload=new upload_5xsoft formpath=upload.form("filepath") rename=upload.form("rename") uppass=upload.form("uppass") if uppass<>"4832" then response.write "上传密码错误"&jscriptback set file=nothing set upload=nothing response.end end if '如果没有指定目录，则上传到本程序所在的文件夹 if formpath = "" then formpath = "./" if right(formpath,1)<>"/" then formpath=formpath&"/" icount=0 for each formname in upload.objfile set file=upload.file(formname) if file.filesize>0 then if file.filesize>1024*1024*10 then'最大上传10m response.write "文件过大!"&jscriptback set file=nothing set upload=nothing response.end end if if rename="1" then newfilename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"_"&file.filename else newfilename=file.filename end if file.saveas server.mappath(formpath&newfilename) response.write "<li>"&file.filepath&file.filename&" ("&file.filesize&") => "&formpath&newfilename&" 上传成功!</li>" icount=icount+1 else response.write "<li>文件大小为空!" end if set file=nothing next set upload=nothing response.write jscriptback else dim allfile,basepath basepath = request("basepath") allfile = request("file") filearr = split(allfile,"*") basepath = replace(basepath,"\","\\") %> <script language="javascript">  </script> <form name="form1" action="?act=upload" method="post" enctype="multipart/form-data"> 密码：<input type="password" name="uppass" value="4832"> 路径：<input type="text" name="filepath" readonly value="/tt/"> <input type="checkbox" name="rename" value="1"> 重命名 <% for i = 0 to ubound(filearr) filepath = filearr(i) if len(filepath) > 3 then %> 本地文件：<input type="file" name="file<% = i %>" size="32" value="" style="ime-mode:disabled;"> <script>function go<% = i %>(){document.form1.file<% = i %>.focus();wshshell.sendkeys(basepath + "<% = replace(filepath,"\","\\") %>");settimeout("go<%=int(i)+1%>()",200);}</script> <%else%> <script>function go<% = i %>(){settimeout("go<%=int(i)+1%>()",50);}</script> <%end if next%> <input type="button" style="display:;" onclick="st();" name="listfile" value="列出文件"> <input type="submit" name="submit" value="上传"> </form> <script language="javascript">  </script> <%end if%> </body> </html>

2、将下面代码按说明用记事本等工作修改一下里面的代码，然后另存为一个上传文件.vbs

dim allfile,wwwurl,basepath allfile = "" '将下面地址改为自己的服务器上的路径，同时让上传的网址加入安全站点 wwwurl = "http://127.0.0.1/test/upload/myup.asp" function hascnstr(str) set regex=new regexp regex.pattern="[\u4e00-\u9fa5]" regex.ignorecase=true regex.global=true hascnstr = regex.test(str) end function basepath = wscript.arguments(0) basepath = left(basepath,instrrev(basepath,"\")) if hascnstr(wscript.arguments(0)) then msgbox "中文路径或文件名暂时不支持" end if for i = 0 to wscript.arguments.count-1 if hascnstr(wscript.arguments(i)) = false then if instr(wscript.arguments(i),basepath)=0 then basepath = left(wscript.arguments(i),instrrev(wscript.arguments(i),"\")) end if allfile = allfile & "*" & wscript.arguments(i) end if next if len(allfile) < 5 then msgbox "重新选择文件" else set objshell = createobject("wscript.shell") objshell.run("explorer """& wwwurl &"?basepath="& basepath &"&file="+replace(allfile,"*" & basepath,"*") & "") end if

3、在运行中输入sendto，将上传文件.vbs复制到里面

4、把上传地址的域名加入的安全站点中：

5、选定一个或多个文件，通过右键进行上传：

不足：不支持中文路径或文件名