ASPのFSOコンポーネントは非常に強力です。この機能がない場合、ASPがどうなるかわかりません。実際、ASPプログラミングを学びたい友人は、間違いなくFSO関連の運用にさらされます。次の新しいテクノロジーチャネルを使用すると、ASP FSOファイル処理機能の完全なコレクションを提供します。
コードコピーは次のとおりです。<%
'フォルダー関数を作成します
関数CreateFolder(strfolder) 'パラメーターは相対パスです
「最初の選択は、作成されるフォルダーがすでに存在するかどうかを判断することです
dim strtestfolder、objfso
strtestfolder = server.mappath(strfolder)
set objfso = createObject( "scripting.filesystemObject")
'フォルダーが存在するかどうかを確認してください
objfso.folderexists(strtestfolder)ではない場合
「存在しない場合は、フォルダーを作成します
objfso.createfolder(strtestfolder)
ifを終了します
objfso =何も設定しません
エンド関数
'フォルダーを削除します
function delfolder(strfolder) 'パラメーターは相対パスです
strtestfolder = server.mappath(strfolder)
set objfso = createObject( "scripting.filesystemObject")
'フォルダーが存在するかどうかを確認してください
objfso.folderexists(strtestfolder)の場合
objfso.deletefolder(strtestfolder)
ifを終了します
objfso =何も設定しません
エンド関数
'テキストファイルを作成します
function createTextFile(fileurl、filecontent) 'パラメーターは、ファイルに書き込まれる相対パスとコンテンツです
objfso = server.createObject( "Scripting.filesystemObject")を設定します
fout = objfso.createTextfile(server.mappath(fileurl))を設定します
fout.writeline filecontent
fout.close
objfso =何も設定しません
エンド関数
'ファイルを削除する(すべてのファイルに適した)
function deltextfile(fileurl) 'パラメーターは相対パスです
set objfso = createObject( "scripting.filesystemObject")
fileurl = server.mappath(fileurl)
objfso.fileexists(fileurl)の場合、ファイルが存在するかどうかを確認します
objfso.deletefile(server.mappath(fileurl))
ifを終了します
objfso =何も設定しません
エンド関数
'画像ファイルを作成し、画像データストリームを保存します
関数createimage(fileurl、imagecontent) 'パラメーターは相対パスとファイルコンテンツです
objstream = server.createobject( "adodb.stream") 'を設定してadodb.streamオブジェクトを作成します。
objstream.type = 1 'バイナリモードで開きます
objstream.open
objstream.write imagecontent 'bufferに文字列コンテンツを書き込みます
objstream.savetofile server.mappath(fileurl)、2 'write buffered content on file
objstream.close() '閉じるオブジェクト
objstream = Nothingを設定します
エンド関数
'ファイルデータをリモートで取得します
関数gethttppage(url)
'次にエラー再開
dim http
http = server.createobject( "microsoft.xmlhttp")を設定します
http.open "get"、url、false
http.send()
http.ReadyState <> 4の場合
出口機能
ifを終了します
gethttppage = bytestobstr(http.responsebody、 "gb2312")
http = Nothingを設定します
err.number <> 0の場合
gethttppage = "サーバーはファイルコンテンツエラーを取得しました"
err.clear
ifを終了します
エンド関数
関数bytestobstr(body、cset)
DIM OBJSTREAM
objstream = server.createObject( "adodb.stream")を設定します
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
objstream = Nothingを設定します
エンド関数
'画像データストリームを取得します
function getpic(url)
エラーの再開時に次に再開します
dim http
http = server.createobject( "msxml2.xmlhttp") 'xmlhttpメソッドを使用して画像のコンテンツを取得する
http.open "get"、url、false
http.send()
http.ReadyState <> 4の場合
出口機能
ifを終了します
getpic = http.responsebody
http = Nothingを設定します
err.number <> 0の場合
getPic = "ファイルコンテンツを取得する際にサーバーがエラーが発生しました」
err.clear
ifを終了します
エンド関数
'オープンファイル(テキストフォーム)
function openfile(fileurl) 'ファイル相対パス
dim filename、fso、hndfile
filename = fileurl
filename = server.mappath(filename)
set objfso = createObject( "scripting.filesystemObject")
objfso.fileexists(filename)の場合
set hndfile = objfso.opentextfile(filename)
openfile = hndfile.readall
それ以外
openfile = "ファイル読み取りエラー"
ifを終了します
hndfile = Nothingを設定します
objfso =何も設定しません
エンド関数
'ファイルの接尾辞名を取得します
function getFileExtName(filename)
Dim Pos
pos = instrrev(filename、 "。")
pos> 0の場合
getFileExtName = MID(FILENAME、POS+1)
それ以外
getFileExtName = ""
ifを終了します
エンド関数
%>
上記は、Foxin Technology Channelの編集者によって導入されたASP FSOファイル処理機能の完全なコレクションです。誰もが特定の理解を持っていると思います。 Foxin Technology Channelは、より多くの知識をあなたと共有し、この業界でどんどん良くなります。