ASP で FSO を使用しない場合は、adodb.stream オブジェクトを使用してファイルの保存と読み取りを行い、FSO をサポートしない仮想ホストを持つマシンを回避します。 「************************************
'ファイルを読んでください
「************************************
関数LoadFromFile(ByValファイル)
薄暗いobjStream
薄暗い RText
RText = 配列(0, )
objStream = Server.CreateObject(ADODB.Stream) を設定します。
objStreamを使用する場合
.Type = 2
.モード = 3
。開ける
.Charset = utf-8
.Position = objStream.Size
エラー時は次へ再開
.LoadFromFile Server.MapPath(ファイル)
エラーの場合はその後
RText = Array(Err.Number, Err.Description)
LoadFromFile = RText
エラークリア
終了関数
終了の場合
RText = 配列(0, .ReadText)
。近い
で終わる
LoadFromFile = RText
objStream = なしを設定します
終了機能
「************************************
'ファイルを保存
「************************************
関数 SaveToFile(ByVal strBody, ByVal File)
薄暗いobjStream
薄暗い RText
RText = 配列(0, )
objStream = Server.CreateObject(ADODB.Stream) を設定します。
objStreamを使用する場合
.Type = 2
。開ける
.Charset = utf-8
.Position = objStream.Size
.WriteText = strBody
エラー時は次へ再開
.SaveToFile Server.MapPath(ファイル)、2
エラーの場合はその後
RText = Array(Err.Number, Err.Description)
SaveToFile = RText
エラークリア
終了関数
終了の場合
。近い
で終わる
RText = Array(0, ファイルは正常に保存されました!)
SaveToFile = RText
objStream = なしを設定します
終了機能