鏅傛檪鐨勮繎缇╄灏堟キ绨℃鍒朵綔缍茬珯-1oca1.pittulloesq.com

google seo -> telegram: @ehseo6

">Newsnet 2022-11-28 12:39
  • home  >   /铜陵偾趴讼科技有限公司  >   鏅傛檪鐨勮繎缇╄灏堟キ绨℃鍒朵綔缍茬珯
  • 閫旈€斿妯傛鐗?.0>app『网址:mxsty.cc』 -<变量>-m1x1s1t1y1-app下载-   M

    235妫嬬墝瑙i櫎缍佸畾>app『网址:mxsty.cc』 -<变量>-m1x1s1t1y1-app下载- ?  H

    ASP编程   发布时间:2022-11-28  发布网站:脚本宝典  www.js-code.com
    脚本宝典收集整理的这篇文章主要介绍了一次性下载远程页面上的所有内容第1/2页脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。

    一次性下载远程页面上的所有内容
    使用方法,将上面的代码保存为一个比如:downfile.asp
    在浏览器上输入:
    http://你的地址/downfile.asp?url=http://www.b.pittulloesq.comaidu.COM/index.htML

    <%
    '设置超时的时间
    Server.ScriptTimeout=9999
    '##############
    '文件保存函数
    '#############
    function SaveToFile(From,tofile)
    on error resume next
    dim geturl,objStream,imgs
    geturl=trim(from)
    Mybyval=getHTTPstr(geturl)
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.TyPE =1
    objStream.Open
    objstream.wrITe Mybyval
    objstream.SaveToFile tofile,2
    objstream.Close()
    set objstream=nothing
    if err.number<>0 then err.Clear
    end function

    '##############
    '字符处理替换
    '#############
    function geturlencodel(byval url)'中文文件名转换
    Dim i,code
    geturlencodel=""
    if trim(Url)="" then exit function
    for i=1 to len(Url)
    code=Asc(mid(Url,i,1))
    if code<0 Then code = code + 65536
    If code>255 Then
    geturlencodel=geturlencodel&amp;"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)
    else
    geturlencodel=geturlencodel&;mid(Url,i,1)
    end if
    next
    end function
    '##############
    'XML获取远程页面开始
    '#############
    function getHTTPPage(url)
    on error resume next
    dim http
    set http=Server.createobject("Msxml2.XMLHTTP")
    Http.open "GET",url,false
    Http.send()
    if Http.readystate<>4 then exit function
    getHTTPPage=bytes2BSTR(Http.responseBody)
    set http=nothing
    if err.number<>0 then err.Clear
    end function

    Function bytes2BSTR(vIn)
    dim strReturn
    dim i,ThisCharCode,NextCharCode
    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
    '##############
    'XML获取远程页面结束,这段是小偷程序都通用的部分
    '#############

    '##############
    '分解地址,取得文件名
    '#############
    function getFileName(byval filename)
    if instr(filename,"/")>0 then
    fileExt_a=split(filename,"/")
    getFileName=lcase(fileExt_a(ubound(fileExt_a)))
    if instr(getFileName,"?")>0 then
    getFileName=left(getFileName,instr(getFileName,"?")-1)
    end if
    else
    getFileName=filename
    end if
    end function

    '##############
    '获取远程页面函数
    '#############
    function getHTTPstr(url)
    on error resume next
    dim http
    set http=server.createobject("MSXML2.XMLHTTP")
    Http.open "GET",url,false
    Http.send()
    if Http.readystate<>4 then exit function
    getHTTPstr=Http.responseBody
    set http=nothing
    if err.number<>0 then err.Clear
    end function

    '##############
    'FSO处理函数,创建目录
    '#############
    Function CreateDIR(ByVal LocalPath) '建立目录的程序,如果有多级目录,则一级一级的创建
    On Error Resume Next
    LocalPath = Replace(LocalPath, "\", "/")
    Set FileObject = server.CreateObject("Scripting.FileSystemObject")
    patharr = Split(LocalPath, "/")
    path_level = UBound(patharr)
    For I = 0 To path_level
    If I = 0 Then pathtmp = patharr(0) & "/" Else pathtmp = pathtmp & patharr(I) & "/"
    cpath = Left(pathtmp, Len(pathtmp) - 1)
    If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath

    Next
    Set FileObject = Nothing
    If Err.Number <> 0 Then
    CreateDIR = False
    Err.Clear
    Else
    CreateDIR = True
    End If
    End Function

    function GetfileExt(byval filename)
    fileExt_a=split(filename,".")
    GetfileExt=lcase(fileExt_a(ubound(fileExt_a)))
    end function

    '##############
    '如何获取虚拟的路径
    '#############
    function getvirtual(str,path,urlhead)
    if left(str,7)="http://" then
    url=str
    elseif left(str,1)="/" then
    start=instrrev(str,"/")
    if start=1 then
    url="/"
    else
    url=left(str,start)
    end if
    url=urlhead&url
    elseif left(str,3)="../" then
    str1=mid(str,inStrRev(str,"../")+2)
    ar=split(str,"../")
    lv=ubound(ar)+1
    ar=split(path,"/")
    url="/"
    for i=1 to (ubound(ar)-lv)
    url=url&ar(i)
    next
    url=url&str1
    url=urlhead&url
    else
    url=urlhead&str
    end if
    getvirtual=url
    end function

    脚本宝典总结

    以上是脚本宝典为你收集整理的一次性下载远程页面上的所有内容第1/2页全部内容,希望文章能够帮你解决一次性下载远程页面上的所有内容第1/2页所遇到的问题。

    如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

    本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
    如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
    标签:
    真人真钱电子游艺 新加坡金沙21点玩法 玩电子游戏的不利材料 网络棋牌推广赚佣金违法吗 能交易电玩游戏机
    百灵棋牌在线下载 打鱼机的抽水怎么调 柳城鼎丰电玩城 jj斗地主里面的金豆怎么刷 关于电子游戏的材料
    leg乐游棋牌手机版下载安装 快乐炸金花辅助工具谁有 普京捕鱼68采金网站 君悦娱乐场百家乐 长沙麻将清一色翻几倍
    刷糖果派对吧 腾讯qq够级 乐九娱乐城网上百家乐 国民娱乐炸金花外挂 科乐美电玩城怎么样