'************************************************ * ***************
' 関数
' 機能: ストリームを使用してファイルを保存する
'パラメータ: from (リモートファイルアドレス)、tofile (ファイルの保存場所)
'************************************************ * ***************
プライベート関数 SaveFiles(byref from,byref tofile)
薄暗いデータ
データ=GetData(from,0)
Response.Write が正常に保存されました: &formatnumber(len(Datas)/1024*2,2)&Kb
応答.フラッシュ
if formatnumber(len(Datas)/1024*2,2)>1 then
ADOS.タイプ = 1
ADOS.モード =3
ADOS.オープン
ADOS.writeデータ
ADOS.SaveToFile サーバー.マップパス(ファイルへ),2
ADOS.Close()
それ以外
Response.Write の保存に失敗しました: ファイル サイズ&フォーマット番号(len(imgs)/1024*2,2)&Kb、1K 未満
応答.フラッシュ
終了する場合
終了関数
'************************************************ * ***************
' 関数 (プライベート)
' 機能: fso を使用してファイルが存在するかどうかを検出します。存在する場合は true を返し、存在しない場合は false を返します。
'パラメータ: filepes (ファイルの場所)
'************************************************ * ***************
プライベート関数 IsExists(byref filespec)
If (FSO.FileExists(server.MapPath(filespec))) then
IsExists = True
それ以外
IsExists = False
終了の場合
終了機能
'************************************************ * ***************
' 関数 (プライベート)
' 機能: fso を使用してフォルダーが存在するかどうかを検出し、存在しない場合は false を返します。
'パラメータ: フォルダ (フォルダの場所)
'************************************************ * ***************
プライベート関数 IsFolder(byref フォルダー)
FSO.FolderExists(server.MapPath(Folder)) の場合
IsFolder = True
それ以外
IsFolder = False
終了の場合
終了機能
'************************************************ * ***************
' 関数 (プライベート)
' 機能: fso を使用してフォルダーを作成します
'パラメータ: fldr (フォルダの場所)
'************************************************ * ***************
プライベート関数 CreateFolder(byref fldr)
f
Set f = FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder = f.Path
f=何も設定しない
終了機能
'************************************************ * ***************
' 関数 (パブリック)
' 機能: ファイルを保存し、複数レベルのフォルダーを自動的に作成します
'パラメータ: fromurl (リモートファイルアドレス)、tofiles (保存場所)
'************************************************ * ***************
パブリック関数 SaveData(byref FromUrl,byref ToFiles)
ToFiles=trim(Replace(ToFiles,//,/))
flName=ToFiles
fldr=
IsExists(flName)=false の場合
GetNewsFold=split(flName,/)
i=0 から Ubound(GetNewsFold)-1 の場合
fldr= の場合
fldr=GetNewsFold(i)
それ以外
fldr=fldr&/&GetNewsFold(i)
終了する場合
IsFolder(fldr)=false の場合
フォルダーの作成
次の場合に終了
次
ファイルの保存元 URL、flName
次の場合に終了
終了機能
'************************************************ * ***************
' 関数 (パブリック)
' 機能: リモートデータを取得する
'パラメータ: url (リモート ファイル アドレス)、getmode (モード: 0 はバイナリ、1 は中国語エンコード)
'************************************************ * ***************
パブリック関数 GetData(byref url,byref GetMode)
'エラー時は次から再開
ソースコード = OXML.open (GET,url,false)
OXML.send()
if OXML.readystate<>4 then exit 関数
GetMode=0 の場合
GetData = OXML.responseBody
それ以外
GetData = BytesToBstr(OXML.responseBody)
終了する場合
if err.number<>0 then err.Clear
終了機能
'************************************************ * ***************
' 関数 (パブリック)
' 機能: リモート イメージ アドレスをローカルの場所としてフォーマットします
'パラメータ: imgurl (リモート イメージ アドレス)、imgfolder (ローカル イメージ ディレクトリ)、fristname (追加されたプレフィックス名)
'************************************************ * ***************
Public Function FormatImgPath(byref ImgUrl、byref ImgFolder、byref FristName、byref noimg)
ストラパス=
ImgUrl=ImgUrl
instr(ImgUrl,Nophoto) または lenb(GetData(ImgUrl,0))<=0 の場合
strpath=noimg
Response.Write &strpath& &vbcrlf
それ以外
if Instr(ImgUrl,.asp) then
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
それ以外
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
終了する場合
strpath = ImgFolder&/&strpath
strpath = 置換(strpath,//,/)
if left(strpath,1)=/ then strpath=right(strpath,len(strpath)-1)
strpath = トリム(strpath)
Response.Write &strpath& &vbcrlf
セーブデータImgUrl、strpath
終了する場合
FormatImgPath = ストラパス
終了機能