ASP FSOファイル処理機能

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は、より多くの知識をあなたと共有し、この業界でどんどん良くなります。