ASP、特に静的ファイルを生成する必要がある cms システムでは、いくつかのファイルを判断、作成、削除する必要があることがよくあります。基本的に基本的なニーズを満たすものをいくつか紹介します。次のようにコードをコピーします。
'======================================
'ファイルのサフィックスを取得
'======================================
関数 Get_Filetxt(ByVal t0)
ディムt1
IF Len(t0)<2 または Instr(t0,.)=0 then Get_Filetxt=False:Exit Function
t1=分割(t0,.)
Get_Filetxt=Lcase(t1(Ubound(t1)))
終了機能
'======================================
'任意のファイルを読み取るための純粋なコード
'======================================
関数LoadFile(ByVal t0)
IF Len(t0)=0 then 関数を終了
IF Sdcms_Cache then
IF Check_Cache(LoadFile_&t0) then
Create_Cache LoadFile_&t0,LoadFile_Cache(t0)
終了IF
LoadFile=Load_Cache(LoadFile_&t0)
それ以外
LoadFile=LoadFile_Cache(t0)
終了IF
終了機能
関数LoadFile_Cache(ByVal t0)
ディム t1、stm
エラー時は次へ再開
IF Len(t0)=0 then 関数を終了
t1=空
Set Stm=Server.CreateObject(Adodb.Stream)
Stm付き
.Type=2'このモードで読み取ります
.mode=3
.charset=文字セット
。開ける
.loadfromfile Server.MapPath(t0)
t1=.readtext
。近い
で終わる
Stm=何も設定しない
エラーが発生した場合
LoadFile_Cache=&t0&&Err.Description:Err.Clear
それ以外
LoadFile_Cache=t1
終了IF
終了機能
'======================================
'ファイルが存在するかどうかを確認する
'======================================
関数 Check_File(ByVal t0)
ディムF
t0=サーバー.マップパス(t0)
Set Fso=CreateObject(Scripting.FileSystemObject)
Check_File=Fso.FileExists(t0)
Fso=何も設定しない
終了機能
'======================================
'フォルダが存在するか確認してください
'======================================
関数 Check_Folder(ByVal t0)
ディムF
t0=サーバー.マップパス(t0)
Set Fso=CreateObject(Scripting.FileSystemObject)
Check_Folder=Fso.FolderExists(t0)
Fso=何も設定しない
終了機能
'======================================
'フォルダーの作成(レベル無制限)
'======================================
関数 Create_UpFile(ByVal t0)
ディム t1、t2、objFSO、i
エラー時は次へ再開
t0=サーバー.マップパス(t0)
IF InStr(t0,/)<=0 または InStr(t0,:)<=0 then:Create_upfile=False:関数を終了
objFSO=CreateObject(Scripting.FileSystemObject) を設定します。
IF objFSO.FolderExists(t0) then:Create_upfile=True:関数を終了
t1=分割(t0,/):t2=
i=0 から UBound(t1) まで
t2=t2&t1(i)&/
objFSO.FolderExists(t2) でない場合、objFSO.CreateFolder(t2)
次
objFSO=Nothing を設定します
IF Err=0 then Create_upfile=True:Else Create_upfile=False:Echo Create_upfile：&Err.Description&<br>:Err.Clear
終了機能
サブ保存ファイル(ByVal t0,ByVal t1,ByVal t2)
薄暗いobjFSO、t3
objFSO=CreateObject(Scripting.FileSystemObject) を設定します。
IF t0= の場合、Echo ディレクトリを空にすることはできません。 :死亡
t3=サーバー.マップパス(t0)
IF t2= または IsNull(t2) then t2=
IF objFSO.FolderExists(t3)=False then Create_upfile(t0)
ビルドファイル t3&/&トリム(t1),t2
objFSO=Nothing を設定します
エンドサブ
関数 BuildFile(ByVal t0,ByVal t1)
ディムステム
エラー時は次へ再開
Stm=Server.CreateObject(Adodb.Stream) を設定します。
Stm付き
.Type=2 'このモードで読み取ります
.Mode=3
.Charset=CharSet
。開ける
.WriteText t1
.SaveToFile t0,2
。近い
で終わる
Stm=何も設定しない
IF Err then Echo BuildFile：&Err.Description&<br>:Err.Clear
終了機能
'======================================
'フォルダーの名前を変更します
'======================================
サブ RenameFile(ByVal t0,ByVal t1)
ディムF
エラー時は次へ再開
Set Fso=Server.CreateObject(Scripting.FileSystemObject)
IF Fso.FolderExists(Server.MapPath(t0)) then
Fso.MoveFolder Server.MapPath(t0),Server.MapPath(t1)
終了IF
Fso=何も設定しない
IF Err then Echo Renamefile：&Err.Description&<br>:Err.Clear
エンドサブ
'======================================
'ファイル名を変更
'======================================
サブ RenameHtml(ByVal t0,ByVal t1)
ディムF
エラー時は次へ再開
Set Fso=Server.CreateObject(Scripting.FileSystemObject)
IF Fso.FileExists(Server.MapPath(t0)) then
Fso.MoveFile Server.MapPath(t0),Server.MapPath(t1)
終了IF
Fso=何も設定しない
IF Err then Echo Renamehtml：&Err.Description&<br>:Err.Clear
エンドサブ
'======================================
'フォルダを削除
'======================================
サブ DelFile(ByVal t0)
ディム Fso,F
エラー時は次へ再開
Set Fso=Server.CreateObject(Scripting.FileSystemObject)
Set F=fso.GetFolder(Server.MapPath(t0))
IF Not IsNull(t0) then F.Delete True
IF Err then Echo Delfile：&Err.Description&<br>:Err.Clear
エンドサブ
'======================================
'ファイルを削除
'======================================
サブ DelHtml(ByVal t0)
ディムF
エラー時は次へ再開
Set Fso=Server.CreateObject(Scripting.FileSystemObject)
IF Fso.FileExists(Server.MapPath(t0)) then Fso.DeleteFile Server.MapPath(t0)
IF Err then Echo DelHtml：&Err.Description&<br>:Err.Clear
エンドサブ
関数 Re_FileName(ByVal t0)
ディムt1
t0=Lcase(t0)
IF Len(t0)=0 then Re_FileName={id}:関数の終了
t1=今()
'カスタムファイル名の処理
'IF Instr(t0,{)>0 かつ Instr(t0,})>0 の場合
'IF Instr(t0,{id})=0 次に
't0=t0&{id}' 重複を防止してください
'終了IF
'終了IF
t0=置換(t0,{y},年(t1))
t0=置換(t0,{m},右(0&月(t1),2))
t0=置換(t0,{d},右(0&日(t1),2))
t0=置換(t0,{h},右(0&時間(t1),2))
t0=置換(t0,{mm},右(0&分(t1),2))
t0=置換(t0,{s},右(0&秒(t1),2))
Re_ファイル名=t0
終了機能