复制代码代码如下所示：
=====================================
获取文件后缀
=====================================
功能get_filetxt（ByVal T0）
昏暗的T1
如果Len（T0）＜2或仪器（T0，，）= 0然后get_filetxt =假：退出功能
t1 =分裂（T0，）
get_filetxt = Lcase（T1（UBound（T1）））
端功能

=====================================
读取任何文件的纯代码
=====================================
函数的LoadFile（ByVal T0）
如果Len（T0）＝0，则退出函数
如果sdcms_cache然后
如果check_cache（loadfile_T0）然后
create_cacheloadfile_T0，loadfile_cache（T0）
最后如果
出现= load_cache（loadfile_T0）
其他的
出现= loadfile_cache（T0）
最后如果
端功能

功能loadfile_cache（ByVal T0）
暗t1
下次继续出错
如果Len（T0）＝0，则退出函数
T1=Empty
集STM = server.createobject（ADODB。流）
STM
在这种模式下阅读。类型=是
模式= 3
字符集的字符集。
开。
loadfromfile Server.MapPath（T0）。
READTEXT T1 =。
关闭
结束
设置STM =无
如果犯错，然后
loadfile_cache = T0描述：err.clear犯错。
其他的
loadfile_cache = T1
最后如果
端功能

=====================================
检查文件存在吗
=====================================
功能check_file（ByVal T0）
暗淡的光
T0 = server.mappath（T0）
设置FSO = CreateObject（脚本。FileSystemObject ）
check_file = fso.fileexists（T0）
设置FSO
端功能

=====================================
检查文件夹是否存在
=====================================
功能check_folder（ByVal T0）
暗淡的光
T0 = server.mappath（T0）
设置FSO = CreateObject（脚本。FileSystemObject ）
check_folder = fso.folderexists（T0）
设置FSO
端功能

=====================================
创建文件夹（无限级）
=====================================
功能create_upfile（ByVal T0）
昏暗的T1，T2，objfso，我
下次继续出错
T0 = server.mappath（T0）
如果InStr（T0，）< = 0或仪器（T0，：）< = 0：create_upfile =假：退出功能
集objfso = CreateObject（脚本。FileSystemObject ）
如果objfso.folderexists（T0）：create_upfile =真的退出功能
t1 =分裂（T0， ）
我= 0，UBound（T1）
T2 = t2t1（我）
如果不objfso.folderexists（T2）然后objfso.createfolder（T2）
下一个
集objfso =没有
如果错误＝0然后create_upfile =真实：别人create_upfile =假：回声create_upfile：错误。说明：错误。明确
端功能

Sub SaveFile（ByVal T0、T1 T2 ByVal，ByVal）
昏暗的objfso，T3
集objfso = CreateObject（脚本。FileSystemObject ）
如果，那么目录不能为空！死了
T3＝server.mappath（T0）
如果T2 = 或空（T2）然后T2 =
如果objfso.folderexists（T3）= FALSE然后create_upfile（T0）
构建文件T3 修剪（T1，T2）
集objfso =没有
端子

功能构建文件（ByVal T0、T1 ByVal）
昏暗的隧道
下次继续出错
集STM = server.createobject（ADODB。流）
STM
在这种模式下读取类型= 2
模式= 3
字符集的字符集。
开。
WRITETEXT T1。
SaveToFile t0,2。
关闭
结束
设置STM =无
如果犯错，然后回声构建文件：错误。说明：错误。明确
端功能

=====================================
重命名文件夹
=====================================
Sub RenameFile（ByVal T0、T1 ByVal）
暗淡的光
下次继续出错
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.folderexists（server.mappath（T0））然后
Fso.MoveFolder Server.MapPath（T0）、Server.MapPath（T1）
最后如果
设置FSO
如果犯错，然后回声重命名文件：错误。说明：错误。明确
端子

=====================================
重命名文件
=====================================
Sub RenameHtml（ByVal T0、T1 ByVal）
暗淡的光
下次继续出错
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.fileexists（server.mappath（T0））然后
Fso.MoveFile Server.MapPath（T0）、Server.MapPath（T1）
最后如果
设置FSO
如果犯错，然后回声renamehtml：错误。说明：错误。明确
端子

=====================================
删除文件夹
=====================================
Sub DelFile（ByVal T0）
模糊FSO
下次继续出错
设置FSO = server.createobject（脚本。FileSystemObject ）
集F = fso.getfolder（server.mappath（T0））
如果Not IsNull（T0）F. Delete True
如果犯错，然后回声删除文件：错误。说明：错误。明确
端子

=====================================
删除文件
=====================================
Sub DelHtml（ByVal T0）
暗淡的光
下次继续出错
设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.fileexists（server.mappath（T0））Fso.DeleteFile Server.MapPath（T0）
如果犯错，然后回声delhtml：错误。说明：错误。明确
端子

功能re_filename（ByVal T0）
昏暗的T1
T0 = Lcase（T0）
如果Len（T0）= 0，然后re_filename ={id}：退出功能
T1 =现在（）
处理自定义文件名

如果仪器（T0，{）> 0和仪器（T0，}）> 0
如果仪器（T0，{id}）= 0
要避免尽可能多地重复。
如果
如果
替换
替换
替换
替换
替换
替换
re_filename = t0
端功能