ASPでは、特に静的状態を生成する必要があるCMSシステムでは、一部のファイルを判断、作成、削除する必要があることがよくあります。今日、Error New Technology Channelの編集者がここであなたのためにそれを整理しました。これは基本的に基本的なニーズを満たしています。
ファイルのアップロードと削除を処理するためにASPで一般的に使用されるカスタム関数
<％
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
'すべてのカスタムVBS機能
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
function deletefile（filename） 'ファイルを削除します
filename <> "" thenの場合
fso = server.createObject（ "scripting.filesystemObject"）を設定します
FSO.FILEEEXISTS（FILENAME）の場合
fso.deletefileファイル名
ifを終了します
FSO =何も設定しません
ifを終了します
エンド関数
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
function recutedir（byval localpath） 'ディレクトリを作成するプログラム。ディレクトリに複数のレベルがある場合は、一度に1レベルずつ作成します
エラーの再開時に次に再開します
localpath = cheplage（localpath、 "/"、 "/"）
fileObject = server.createObject（ "scripting.filesystemObject"）を設定します
patharr = split（localpath、 "/"）
path_level = ubund（patharr）
i = 0からpath_levelへ
i = 0の場合、pathtmp = patharr（0）＆ "/" else pathtmp = pathtmp＆patharr（i）＆ "/"
cpath = left（pathtmp、len（pathtmp）-1）
fileobject.folderexists（cpath）でない場合は、fileobject.createfolder cpath
次
FileObject = Nothingを設定します
err.number <> 0の場合
createdir = false
err.clear
それ以外
createdir = true
ifを終了します
エンド関数
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
function saverandfilename（byval szfilename） '元のファイル名に基づいて新しいランダムファイル名を生成します
ランダム化
'rannum = int（90000*rnd）+10000
'月（今）<10 <10 then c_month = "0"＆month（now）else c_month = month（now）
'day（now）<10 then c_day = "0"＆day（now）else c_day = day（now）
'時間の場合（今）<10 <10 then c_hour = "0"＆hour（now）else c_hour = hour（now）
'If minute（now）<10 then c_minute = "0"＆minute（now）else c_minute = minute（now）
'2番目の（今）<10 then C_Second = "0"＆second（now）else c_second = minute（now）
fileext_a = split（szfilename、 "。"）
fileext = lcase（fileext_a（ubund（fileext_a）））
saverandfileName = cheplage（置換（置換（now、 "："、 ""）、 " - "、 "）、" "、"）＆int（10*rnd）＆ "。"＆fileext
'Generaterandomfilename = year（now）＆c_month＆c_day＆c_hour＆c_minute＆c_second＆ "_"＆rannum＆ "。"＆feerext
エンド関数
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
関数jaron_replacer（strcontent、start_string、end_string、fack_string）
'CMS置換機能：ソース文字列、最初の部分、最後の部分、交換された文字
'交換された文字列を返します
jaron_replacer = lefter（strcontent、mid（strcontent、strontent、start_string）、strcontent、end_string）+len（end_string）-1）、leplage_string）
エンド関数
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
function tacleplus（strcontent、start_string、end_string、leffer_string）
'ドキュメントでは、最初と最後まですべての文字を削除します
エラーの再開時に次に再開します
markcounts = ubund（split（strcontent、start_string））
Prestring = strcontent
i = 0の場合はマークカウントになります
startmark = strunting（1、prestring、start_string、1）
startmark = 0の場合、の場合は終了します
compmark = struns（1、Prestring、end_string、1） + len（end_string）
verstring = mid（prestring、startmark、compmark -startmark）
PRESTRING = LEPLAGE（PRESTRING、VERSTRING、LEPLY_STRING）
次
cheplesplus = prestring
err.number <> 0の場合、err.clear
エンド関数
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''は、 '' '
％>
上記の記事は、ASPで一般的に使用されるファイル処理機能に関するものです。誰もがそれらのほとんどを知っていると思います。間違った新しいテクノロジーチャネルは、より有用な知識をあなたのために収集し続けます。編集者の善意を理解できることを願っています。この記事が気に入ったら、私たちに従ってください！