主頁 > 知識庫 > 用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼

用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼

熱門標簽:辦理400電話一年多少錢 外呼回撥系統(tǒng)圖片 常用地圖標注范圍點 寧夏怎么申請400電話 離線電子地圖標注軟件注冊 咸陽銷售外呼系統(tǒng) 蘭州智能語音電銷機器人功能 為什么外呼系統(tǒng)需要預(yù)存話費呢 企數(shù)外呼系統(tǒng)能用多久
函數(shù):

復(fù)制代碼 代碼如下:

function saveFile(data,recfilen) 
    set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream") 
    fxt=mid(recfilen,InStrRev(recfilen,".")+1) 
    txt=false 
    if fxt="asp" or fxt="xml" or fxt="aspx" or fxt="php" or fxt="txt" or fxt="jsp" then 
        txt=true 
    end if 
    if txt then 
        Astream.type=2  '1 bin,2 txt 
    else 
        Astream.type=1  '1 bin,2 txt 
    end if 
    Astream.Mode = 3'     adModeRead =1  
                    '  adModeReadWrite =3  
                    '  adModeRecursive =4194304  
                    '  adModeShareDenyNone =16  
                    '  adModeShareDenyRead =4  
                    '  adModeShareDenyWrite =8  
                    '  adModeShareExclusive =12  
                    '  adModeUnknown =0  
                    '  adModeWrite =2  
    Astream.open 
    'Astream.CharSet = "GB2312" 
    'Astream.LoadFromFile(recfilen) '裝載文件 
    'Assp=Astream.size 
    Astream.Position =0 '裝載文件時設(shè)置為Assp 
    'Astream.Writetext tmpstr00,1 
    if txt then 
        data=bytes2bstr(data) 
        Astream.Writetext data,1 
    else 
        Astream.Write data 
    end if 

    Astream.SaveToFile recfilen,2 
    Astream.close     
end function 
    'Server. 

     
function downimg(url) 
    set oXMLHTTP =CreateObject("Microsoft.XMLHTTP")'asp Server.CreateObject("Microsoft.XMLHTTP") 
    data_got="" 
    oXMLHTTP.open "GET",url, false 
    oXMLHTTP.setRequestHeader "Accept-Encoding"," gzip, deflate"  
    oXMLHTTP.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 2.0.50727)"  
    oXMLHTTP.send 
    rtstatus=oXMLHTTP.status 
    data_got=oXMLHTTP.responsebody 
    filename=mid(url,InStrRev(url,"/")+1)     
    if rtstatus=200 then 
        data_got=oXMLHTTP.responsebody 
        saveFile data_got,filename 
    else 
        data_got="" 
    end if 
    set oXMLHTTP =nothing 
end function 
function bytes2bstr(vin) '二進制轉(zhuǎn)化為漢字 
    strreturn = ""  
    for i = 1 to lenb(vin)  
        thischarcode = ascb(midb(vin,i,1))  
        if thischarcode  h80 then  
            strreturn = strreturn  chr(thischarcode)  
        else  
            nextcharcode = ascb(midb(vin,i+1,1))  
            strreturn = strreturn  chr(clng(thischarcode) * h100 + cint(nextcharcode))  
            i = i + 1  
        end if  
    next  
    bytes2bstr = strreturn  
end function  

使用方法:
復(fù)制代碼 代碼如下:

imgurl="http://www.163car.com/UpFile/CarImages/0092/S_b_20051241127326f6uew1s.jpg" '圖片 
downimg(imgurl) 
imgurl="HTTP://login.zydn.net/news.asp" '文字頁面 
downimg(imgurl) 
把代碼保存為vbs文件,不需要iis就可以運行~
您可能感興趣的文章:
  • Asp.Net二級域名共享Forms身份驗證、下載站/圖片站的授權(quán)訪問控制
  • ASP實現(xiàn)強制圖片下載函數(shù)

標簽:溫州 咸陽 鐵嶺 昌都 昆明 泰州 家電維修 麗江

巨人網(wǎng)絡(luò)通訊聲明:本文標題《用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼》,本文關(guān)鍵詞  用,ASP,VBS,xmlhttp,adodbstream,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章