ファイルのアップロードと削除を処理するために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 =置換(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の場合、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、C_HOUR = 0&hour(now)else c_hour = hour(now)
'minute(now)<10 then c_minute = 0&minute(now)else c_minute = minute(now)
'2番目の(今)<10の場合、C_SECOND = 0&SECOND(NOW)else c_second = minute(now)
fileext_a = split(szfilename、。)
fileext = lcase(fileext_a(ubund(fileext_a)))
saverandfilename =置換(置換(now、:、)、 - 、)、、)&int(10*rnd)&。&fileext
'Generaterandomfilename = year(now)&c_month&c_day&c_hour&c_minute&c_second&rannum&。&fileext
エンド関数
'' '' '' '' '' '' '' '' ''は、 ''は、 '' ''は 'の'は '' 'は、' '' ''です。
関数jaron_replacer(strcontent、start_string、end_string、fack_string)
'CMS置換機能:ソース文字列、最初の部分、最後の部分、交換された文字
'交換された文字列を返します
jaron_replacer = lepplay(strcontent、mid(strcontent、strontent、start_string)、strcontent、end_string)+len(end_string)-1)、repalling_string)
エンド関数
'' '' '' '' '' '' '' '' ''は、 ''は、 '' ''は 'の'は '' 'は、' '' ''です。
function tacleplus(strcontent、start_string、end_string、leffer_string)