用ASP VBS xmlhttp adodbstream下载和保存图片的代码

2024-05-04 10:58:20

字体：大中小

来源：转载

供稿：网友

函数：

复制代码代码如下:

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 '装载文件时设置为Assp
    'Astream.Writetext tmpstr00,1
    if txt then
        data=bytes2bstr(data)
        Astream.Writetext data,1
    else
        Astream.Write data
    end if

上一篇：用ASP打开远端MDB文件的方法

下一篇：用asp实现批量删除bak文件

发表评论

共有条评论