Упакуйте файл в пакет файлов XML, с помощью инструмента ASP, который распаковывает!
Упакуйте весь исходный код веб -сайта в файл XML, генерируйте файл updata.xml и загрузите файл XML в пространство
Затем выпустите все файлы через файл install.asp.
Он имеет ту же функцию, что и автоматический пакет установки Z-блога.
Код был написан братом, который был устарел, но код казался неверным. Это было изменено мной ссылкой, и он может работать нормально! ~~
Этот код может быть применен к службе автоматического обновления программы ASP. Как реализовать это конкретно, добро пожаловать, чтобы обсудить! ~~
Давайте обсудим это в следующем посте! ~~~
Нет необходимости устанавливать версию упакованного каталога, вам нужно установить разницу между версией упакованного каталога:
Вам не нужно устанавливать версию упакованного каталога, просто поместите ее в каталог, который вам нужно для выполнения.
Вам необходимо установить версию каталога пакетов, и вы должны указать путь к пакету (изменять в программе). Если вы не указаете это, вы не можете упаковать его.
Не нужно устанавливать каталог - пакет файл
Кода -копия выглядит следующим образом:
<%@Language = "vbscript" codepage = "65001"%>
<%OptionExplicit%>
<%OnerrorResumenext%>
<%Response.charset = "UTF-8"%>
<%Server.scripttimeout = 99999999%>
<! Doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<голова>
<metahttp-equiv = "content-type" content = "text/html; charset = utf-8"/>
<title> Программа упаковки файлов </title>
</head>
<тело>
<%
Dimzippathdir, Zippathfile, Zipfileext
DimStatim -Time, конечное время
'Измените путь на папку, которая будет упакована здесь
Zippathdir = left (request.servervariables ("path_translated"), instrrev (request.servervariables ("path_translated"), "/")) '
'Сгенерированный XML -файл
Zippathfile = "update.xml"
'Не упакованное расширение файла
Zipfileext = "db; bak"
ifright (Zippathdir, 1) <> "/" thenzippathdir = Zippathdir & "/"
'Начните упаковать
Createxml (Zippathfile)
'Путешествие по всем файлам и папкам в каталоге
Subloaddata (Dirpath)
Dimxmldoc
dimfso'fso объект
Dimobjfolder 'объект папки
Коллекция подпапки Dimobjsubfolders