FPOを使ってフォルダ名を変更し、ファイル転送盗難防止チェーンを実現します。

この日突然のインスピレーションは、防犯チェーンに対して正常にアップロードされたファイルです。チェーンを盗むとサーバーの負担が増えてしまいます。前回は164 ccでそのためにかけられて対策を考えてみました。現在は各種の防犯チェーンプログラムも少なくありませんが、使うのも簡単ではありません。また無料ではありません。では、タイトルを見てから、盗難防止チェーンを考えてみます。時間内にファイルをアップロードするフォルダ名を変更することができます。この駅のプログラムは動的にフォルダ名を取得します。このように元々は駅のファイルを盗用したサイトは経路の間違いでファイルが見つけられなくなり、盗難防止チェーンを実現しました。では、どのようにFPOを使ってフォルダの名前を変更しますか？簡単な関数：

<%  
Function fldrename(nowfld,newfld)  
nowfld=server.mappath(nowfld)  
newfld=server.mappath(newfld)  

Set fso = CreateObject("Scripting.FileSystemObject")  
if not fso.FolderExists(nowfld) then  
    response.write("                       ")  
else  
    fso.CopyFolder nowfld,newfld  
    fso.DeleteFolder(nowfld)  
end if  
set fso=nothing  

End Function  
%> 

総じて言えば、現在のフォルダの内容を新しいフォルダにコピーして、そのフォルダの内容を削除して、間接的にフォルダ名を変更する目的を達成します。これは偏執狂の問題です。フォルダ名を修正するため、特に名前を修正するこのフォルダの内容がG量の場合、この待ち時間はFTP遠隔修正の名前に対してちょっとお得ではないです。ある人はFPOが直接にフォルダ名を修正できますか？私はこれに及ばないこの関数を適用します。 fdrename(「ex 01」「ex02」%>   基本的な意味はプログラム実行ファイルと同じディレクトリにあります。 ex 01 フォルダ名を x 02以下は現地でのテスト状況の通報です。1、本プログラムはプログラム実行時間を消費しません。2、1 Gフォルダを実行するには間接的に50秒ぐらいかかります。つまり、サーバー端末のファイルコピー転送時間です。    a、新しいフォルダが作成された初期（新しいフォルダが作成されていません）、次の実行プログラムが発生します。 エラーのタイプ：Microsoft VB Script 実行時エラー (0 x 800 A 003 A）ファイルは既に存在していますが、FTPは新しいフォルダを削除して実行するしかないです。    b、一部のファイルをコピーしましたが、次回プログラムを実行して、コピーされたフォルダの内容を自動的に上書きします。元のフォルダの内容は依然として存在します。コピーが終わったら、元のフォルダとそのファイルを削除します。5，新しいフォルダの名前にも注意してください。既存のフォルダ名と重複しないようにしてください。もちろん、フォルダ名を変更しながら、フォルダ内にデータベース関連の操作や音楽ファイルが再生されている場合は、Microsoftとして表示されます。 VB Script 実行時エラー (0 x 800 A 0046)は、既存のフォルダの問題を削除する権限がありません。（音楽ファイルは削除されましたが、フォルダは削除されませんでした。）FTP登録処理だけです。このフォルダが全画像ファイルであれば、実行に成功します。