将网站全部下载下来的ASP代码

关注

转载最新推荐文章于 2026-06-12 11:17:14 发布 917 阅读 AI 写同款· GEO 优化 ›

发布中小企业产品展示的ASP网站整站源代码好长时间没有发点什么可供大家分享和下载的东西了，说实话，CG个人最近比较忙，学校组织我们去常熟的某个学校培训Java课程，之前又出去旅游了一段时间，最近一个星期又因为我的母校单方面的原因，搞得在这里培训的人人心惶惶的，没有什么心思去搞什么学习，在这里先BS一下母校那些SB领导。废话不多说，今天要发布的是CG最近做的一家小公司的展示网站，源代码和整站内容提供给大家免费下载和使用，因为成本和客户的要求阅读详情

Description:

A script that downloads files from a remote web server to a local mirror site (you can use it for just downloading files to anywhere you want...)

Script:

'*************************************************************************************************
' Download.vbs - Download files from the internet to local mirror servers
' Created by Martin77 (version 1.0)
'*************************************************************************************************
Option Explicit
On Error Resume Next

Dim LogPath, SourceURL, TargetPath, Files2Download

'*************************************************************************************************
'            Edit these variables only!
'*************************************************************************************************
            'Where to save the log file:
            LogPath = "C:/Inetpub/wwwroot/Logs/"

            'From where download the files:
            SourceURL = "http://www.somesite.com/rootfolder/otherfolder/"

            'Where to save the downloaded files:
            TargetPath = "C:/Inetpub/wwwroot/LocalSite/"

            'What files to download (separated by ','):
            Files2Download = "file1.txt,file2.exe,file3.zip"

'*************************************************************************************************
    Main 'Run the main process
'*************************************************************************************************
'Main process:
Sub Main
    Dim strOutputFile, strErrCode, strOutPut, i
    Dim objArgs, objFSO, objOutputFile, objHTTP
    Dim arrFiles2Download
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    arrFiles2Download = Split(Files2Download,",")
    strOutputFile = LogPath & "Download-Log-" & Replace(Date,"/","-") & ".log"

    'Parse Arguments (from App. Center URL Health Monitor):
    Set objArgs = Wscript.Arguments
    For i = 0 To objArgs.count - 1
        strErrCode = strErrCode & objArgs(i) & " "
    Next
    Set objArgs = Nothing
    strOutPut = Now & " - " & strErrCode

    'Download files:
    For i = 0 To Ubound(arrFiles2Download)
        If SaveWebBinary(SourceURL & arrFiles2Download(i), TargetPath & arrFiles2Download(i)) Then
            'Download OK:
            strOutPut = strOutPut & vbCrLf & Now & " - Downloaded file: " & arrFiles2Download(i)
        Else
            'Download Error
            strOutPut = strOutPut & vbCrLf & Now & " - Error downloading file: " & arrFiles2Download(i)
        End If
    Next
    'Write LogFile:
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objOutputFile = objFSO.OpenTextFile(strOutputFile, ForAppending, True)
    objOutputFile.Write "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-" & vbCrLf
    objOutputFile.Write strOutPut & vbCrLf
    objOutputFile.Write "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-" & vbCrLf
    objOutputFile.Close
    Set objFSO = Nothing
    Set objOutputFile = Nothing
End Sub
'*************************************************************************************************
'Download the file from %strUrl% to %strFile% - returns True / False
Function SaveWebBinary(strUrl, strFile) 'As Boolean
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Const ForWriting = 2
    Dim web, varByteArray, strData, strBuffer, lngCounter, ado
    Err.Clear
    Set web = Nothing
    Set web = CreateObject("WinHttp.WinHttpRequest.5.1")
    If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest")
    If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP")
    If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP")
    web.Open "GET", strURL, False
    web.Send
    If Err.Number <> 0 Then
        SaveWebBinary = False
        Set web = Nothing
        Exit Function
    End If
    If web.Status <> "200" Then
        SaveWebBinary = False
        Set web = Nothing
        Exit Function
    End If
    varByteArray = web.ResponseBody
    Set web = Nothing

    'Save the file
    On Error Resume Next
    Set ado = Nothing
    Set ado = CreateObject("ADODB.Stream")
    If ado Is Nothing Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.OpenTextFile(strFile, ForWriting, True)
        strData = ""
        strBuffer = ""
        For lngCounter = 0 to UBound(varByteArray)
            ts.Write Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1, 1)))
        Next
        ts.Close
    Else
        ado.Type = adTypeBinary
        ado.Open
        ado.Write varByteArray
        ado.SaveToFile strFile, adSaveCreateOverWrite
        ado.Close
    End If
    SaveWebBinary = True
End Function
'*************************************************************************************************

Keywords: Dwonload, Savewebbinary, Winhttp.winhttprequest.5.1, Winhttp.winhttprequest, Msxml2.serverxmlhttp, Microsoft.xmlhttp

收录于