父目录:"&f2.parentfolder& "" s_mess = s_mess & "文件名称:" & f2.name & "
" s_mess = s_mess & "文件短路径名:" & f2.shortPath & "
" s_mess = s_mess & "文件物理地址:" & f2.Path & "
" s_mess = s_mess & "文件属性:" & f2.Attributes & "
" s_mess = s_mess & "文件大小: " & f2.size & "
" s_mess = s_mess & "文件类型: " & f2.type & "
" s_mess = s_mess & "文件创建时间: " & f2.DateCreated & "
" s_mess = s_mess & "最近访问时间: " & f2.DateLastAccessed & "
" s_mess = s_mess & "最近修改时间: " & f2.DateLastModified&"
" response.write(s_mess) If killint(Trim(request("type")),0,0,2)<>0 Then showtext(whichfile) End If response.write deltext(whichfile,0) End Function ' SUB showtext(files) dim iStr,adosText,strasp set adosText=Server.CreateObject("ADODB.Stream") adosText.mode=3 adosText.type=2 adosText.charset="gb2312" 'adosText.charset="big5" adosText.open If InStr(1,files,":\")=0 Then files=Replace(files,"\","/") files = server.mappath(files) Else files=Replace(files,"/","\") files=files End If adosText.loadFromFile (files) strasp=adosText.ReadText() adosText.close set adosText=nothing%> " Select Case killint(mode,0,0,2) Case 0: deltext_mess=deltext_mess&"文件操作:
属性编辑移动复制重命名删除" Case 1: deltext_mess=deltext_mess&"文件夹操作:
列表创建目录手建文件上传文件移动复制重命名删除" End Select deltext_mess=deltext_mess&"
" deltext=deltext_mess End Function