●Описание: Класс онлайн-обновления ASP. ●Версия: 1.0.0.
●Автор: Сяо Юэхэнь (xiaoyuehen)
●MSN: xiaoyuehen(at)msn.com.
●Пожалуйста, замените (at) на @●Авторское право: поскольку оно является общим, авторское право не имеет значения, но оно должно быть ограничено распространением в Интернете и не может использоваться в традиционных средствах массовой информации!
●Я был бы еще более благодарен, если бы вы сохранили эти инструкции!
●Если у вас есть улучшенная оптимизация кода и связанные с этим улучшения, не забудьте сказать мне, большое спасибо!
●Идеи:
1. Запрос списка версий => 2. Сравните различия версий => 3. Получите список обновлений следующей более высокой версии, если более высокой версии нет, перейдите к шагу 5 => 4. Обновление => вернитесь к шагу 3
5. Выйдите из обновления. ●Другие инструкции: добавочное обновление.
● Не по теме: в общей сложности это заняло около 7 часов. Это было немного торопливо, и код не был достаточно доработан. Во время локального тестирования обновление двух версий и всего 4 файлов заняло почти 1 секунду.
Я никогда раньше не делал ничего подобного, поэтому не могу говорить о каком-либо алгоритме. Друзья, кто это делал, выскажите свое мнение. Спасибо!
●Этот код предназначен для связи друг с другом. ●
●Прежде чем начать, внимательно прочитайте следующие инструкции.
●Требования к серверу:
1. Менеджер сайта. Вы можете получить доступ к версии и соответствующей информации об обновлении через URL-адрес.
2. Файл информации о версии, например Version.asp.
3. Каждый каталог версии должен находиться в каталоге, указанном UrlUpdate (см. описание ниже). Например: UrlUpdate — это http://Localhost/__Jxc/Update/ ,
Если версия — 1.0.8, файл обновления этой версии должен находиться по адресу http://Localhost/__Jxc/Update/108/ .
4. Информация, возвращаемая информацией о версии, представляет собой список, каждая строка представляет информацию о версии (пустые строки не допускаются), а более высокая версия находится вверху. Формат следующий:
1.1.0
1.0.8
1.0.0
5. Формат информации об обновлении файла определенной версии заключается в удалении числа после номера + FileType (см. описание ниже) и помещении его в UrlUpdate, например: http://Localhost/__Jxc/Update/110.asp , и формат его содержимого следующий:
3.htm|Тест/Тест/3.asp
4.htm|Тест/Тест/4.asp
5.htm|Test/5.asp
6.htm|Test/6.asp
Разделите исходный файл и файл назначения с помощью |. Исходный файл будет считан из каталога соответствующей версии, как показано выше, соответствующий адрес 3.htm должен быть.
http://Localhost/__Jxc/Update/110/3.htm
Если UpdateLocalPath = «/», соответствующим местом назначения обновления Test/Test/3.asp является /Test/Test/3.asp. В процессе обновления программа автоматически создаст несуществующий каталог.
И перезапишите целевой файл.
● Требования к клиенту:
IIS 5.0 или выше
Поддержка FSO (для создания файлов)
Поддержка Adodb.Stream (для преобразования кодировки)
Поддержка Microsoft.XMLHTTP (для удаленного получения информации)
●Атрибуты:
Информация Получите последнюю информацию в процессе обновления ●Описание параметра:
UrlVersion ●Обязательный ● Полный URL-адрес информации о версии, начиная с http://.
UrlUpdate ●Обязательный ● URL-адрес обновления, начинающийся с http:// и заканчивающийся на /.
UpdateLocalPath ●Обязательный ● Локальный каталог обновлений, начинающийся с / и заканчивающийся на /. Запретить запись в другие каталоги. ● Значение по умолчанию. ● /.
UrlHistory ●Обязательный ● Имя созданного файла истории программного обеспечения.
LocalVersion ●Обязательный ● Информация о текущей версии ● Значение по умолчанию ● 1.0.0
Тип файла ●Обязательный ● Суффикс информации о версии ●Значение по умолчанию ● .asp
●Описание метода:
doUpdate обновление
После установки соответствующих параметров вы можете запустить длинный уровень следующим образом. ●Другие инструкции: Номер версии должен состоять из цифр 0–9 и ., а первая цифра не может быть меньше 1. Длина каждой версии. номер должен быть одинаковым. Например, 1.0.0 и 1.2.2 или 1.2.04 и 1.2.78.
●Пример:
код программы.
<!--#include file="../__Inc/Cls_OnlineUpdate.asp"-->
<%
Dim objОбновить
Установите objUpdate = New Cls_oUpdate
С помощью objUpdate
.UrlVersion = " http://Localhost/__Jxc/Update/Version.asp "
.UrlUpdate = " http://Localhost/__Jxc/Update/ "
.UpdateLocalPath = "/"
.LocalVersion = "1.0.0"
.doUpdate
ответ.Запись(.Информация)
Конец с
Установить objUpdate = Ничего
%>
Файлы классов:
программный код
<%
Рем ############################################## ########################################################################
Rem ## Заявление о классе онлайн-обновления
Класс Cls_oUpdate
Рем ############################################## ##############
Rem ## Описание: Класс онлайн-обновления ASP.
Рем ## Версия: 1.0.0
Рем ## Автор: Сяо Юэхэнь
Рем ## MSN: xiaoyuehen(at)msn.com
Rem ## Пожалуйста, замените (at) на @
Rem ## Авторское право: поскольку оно является общим, авторские права отсутствуют. Но оно должно быть ограничено распространением в Интернете и не может использоваться в традиционных средствах массовой информации!
Rem## Если сможете сохранить эту инструкцию, буду еще больше благодарен!
Rem ## Если у вас есть лучшая оптимизация кода и связанные с этим улучшения, не забудьте сказать мне, большое спасибо!
Рем ############################################## ##############
Публичный LocalVersion, LastVersion, FileType
Публичная UrlVersion, UrlUpdate, UpdateLocalPath, Информация
История общедоступных URL-адресов
Частный sstrVersionList, sarrVersionList, sintLocalVersion, sstrLocalVersion
Частный sstrLogContent, sstrHistoryContent, sstrUrlUpdate, sstrUrlLocal
Рем ############################################## ##############
Частный подкласс_Initialize()
Rem ## Полный URL-адрес информации о версии, начиная с http://
Rem ## Пример: http://localhost/software/Version.htm
УрлВерсия = ""
Rem ## URL-адрес обновления, начинающийся с http:// и заканчивающийся /
Rem ## Пример: http://localhost/software/
УрлОбновление = ""
Rem ## Локальный каталог обновления, начинающийся с / и заканчивающийся /. Запретить запись в другие каталоги.
Rem ## Программа проверит, существует ли каталог. Если он не существует, он будет создан автоматически.
UpdateLocalPath = "/"
Rem ## Созданный файл истории программного обеспечения
UrlHistory = "history.htm"
Rem ## Последнее сообщение с подсказкой
Информация = ""
Рем ## Текущая версия
Локальная версия = "1.0.0"
Рем ## последняя версия
Последняя версия = "1.0.0"
Rem ## Суффиксное имя каждого файла с информацией о версии.
ТипФайла = ".asp"
Конец субтитра
Рем ############################################## ##############
Рем ############################################## ##############
Частный подкласс_Terminate()
Конец субтитра
Рем ############################################## ##############
Rem ## Выполнить обновление
Рем ############################################## ##############
Открытая функция doUpdate()
доОбновление = Ложь
UrlVersion = Обрезать(UrlVersion)
UrlUpdate = Trim(UrlUpdate)
Rem ## Обнаружение URL-адреса обновления
Если (Left(UrlVersion, 7) <> "http://") или (Left(UrlUpdate, 7) <> "http://") Тогда
Info = «URL-адрес определения версии пуст, URL-адрес обновления пуст или имеет неверный формат (#1)»
Функция выхода
Конец, если
Если Right(UrlUpdate, 1) <> "/" Тогда
sstrUrlUpdate = UrlUpdate & "/"
Еще
sstrUrlUpdate = UrlUpdate
Конец, если
Если Right(UpdateLocalPath, 1) <> "/" Тогда
sstrUrlLocal = UpdateLocalPath & "/"
Еще
sstrUrlLocal = UpdateLocalPath
Конец, если
Rem ## Информация о текущей версии (номер)
sstrLocalVersion = Локальная версия
sintLocalVersion = Заменить(sstrLocalVersion, ".", "")
sintLocalVersion = toNum(sintLocalVersion, 0)
Rem ## Обнаружение версии (инициализация информации о версии и сравнение)
Если IsLastVersion, то выйти из функции
Rem ## Начать обновление
doUpdate = NowUpdate()
ЛастВерсион = сстрЛокалВерсион
Конечная функция
Рем ############################################## ##############
http://bizhi.downcodes.com/
Rem ## Проверьте, последняя ли это версия
Рем ############################################## ##############
Частная функция IsLastVersion()
Rem ## Инициализировать информацию о версии (инициализировать массив sarrVersionList)
Если iniVersionList Тогда
Rem ## В случае успеха сравнить версии
Дим я
Исластверсион = Истина
Для i = 0 до UBound(sarrVersionList)
Если sarrVersionList(i) > sintLocalVersion Тогда
Rem ## Если установлена последняя версия, выходим из цикла
Исластверсион = ложь
Info="Уже последняя версия!"
Выход для
Конец, если
Следующий
Еще
Rem ## В противном случае вернуть сообщение об ошибке.
Исластверсион = Истина
Info = "Ошибка получения информации о версии!(#2)"
Конец, если
Конечная функция
Рем ############################################## ##############
Rem ## Проверьте, последняя ли это версия
Рем ############################################## ##############
Частная функция iniVersionList()
iniVersionList = Ложь
Dim strVersion
стрВерсия = getVersionList()
Rem ## Если возвращаемое значение пусто, инициализация не удалась.
Если стрВерсия = "" Тогда
Информация = "Ошибка......"
Функция выхода
Конец, если
sstrVersionList = Заменить(strVersion, " ", "")
sarrVersionList = Split(sstrVersionList, vbCrLf)
iniVersionList = Истина
Конечная функция
Рем ############################################## ##############
Rem ## Проверьте, последняя ли это версия
Рем ############################################## ##############
Частная функция getVersionList()
getVersionList = GetContent(UrlVersion)
Конечная функция
Рем ############################################## ##############
Рем ## Начать обновление
Рем ############################################## ##############
Частная функция NowUpdate()
Дим я
Для i = UBound(sarrVersionList) до 0 шаг -1
Вызов doUpdateVersion(sarrVersionList(i))
Следующий
Info = "Обновление завершено! <a href=""" & sstrUrlLocal & UrlHistory & """>Просмотр</a>"
Конечная функция
Рем ############################################## ##############
http://qqface.downcodes.com/
Rem ## Содержание обновленной версии
Рем ############################################## ##############
Частная функция doUpdateVersion(strVer)
доОбдатеВерсион = Ложь
Тусклый интервал
intVer = toNum(Replace(strVer, ".", ""), 0)
Rem ## Если обновленная версия меньше текущей, выйти из обновления
Если intVer <= sintLocalVersion Тогда
Функция выхода
Конец, если
Dim strFileListContent, arrFileList, strUrlUpdate
strUrlUpdate = sstrUrlUpdate & intVer & FileType
strFileListContent = GetContent(strUrlUpdate)
Если strFileListContent = "" Тогда
Функция выхода
Конец, если
Rem ## Обновить номер текущей версии
sintLocalVersion = intVer
sstrLocalVersion = стрвер
Дим я, arrTmp
Rem ## Получить список файлов обновлений
arrFileList = Split (strFileListContent, vbCrLf)
Rem ## Журнал обновлений
сстрлогконтент = ""
sstrLogContent = sstrLogContent & strVer & ":" & vbCrLf
Рем ## Начать обновление
Для i = 0 до UBound(arrFileList)
Rem ## Формат обновления: номер версии/file.htm|файл назначения
arrTmp = Split(arrFileList(i), "|")
sstrLogContent = sstrLogContent & vbTab & arrTmp (1)
Вызовите doUpdateFile(intVer & "/" & arrTmp(0), arrTmp(1))
Следующий
Rem ## Запись в файл журнала
sstrLogContent = sstrLogContent & Now() & vbCrLf
response.Write("<pre>" & sstrLogContent & "</pre>")
Вызовите sDoCreateFile(Server.MapPath(sstrUrlLocal & "Log" & intVer & ".htm"), _
"<pre>" & sstrLogContent & "</pre>")
Вызовите sDoAppendFile(Server.MapPath(sstrUrlLocal & UrlHistory), "<pre>" & _
strVer & "_______" & Now() & "</pre>" & vbCrLf)
Конечная функция
Рем ############################################## ##############
Rem ## файл обновления
Рем ############################################## ##############
Частная функция doUpdateFile(strSourceFile, strTargetFile)
Dim strContent
strContent = GetContent(sstrUrlUpdate & strSourceFile)
Rem ## Обновить и записать в лог
Если sDoCreateFile(Server.MapPath(sstrUrlLocal & strTargetFile), strContent) Тогда
sstrLogContent = sstrLogContent & «Успех» & vbCrLf
Еще
sstrLogContent = sstrLogContent & «Не удалось» & vbCrLf
Конец, если
Конечная функция
Рем ############################################## ##############
Rem ## Получайте контент удаленно
Рем ############################################## ##############
Частная функция GetContent(strUrl)
ПолучитьСодержимое = ""
Dim oXhttp, strContent
Установите oXhttp = Server.CreateObject("Microsoft.XMLHTTP")
'При ошибке возобновить далее
С oXhttp
.Откройте "GET", strUrl, False, "", ""
.Отправлять
Если .readystate <> 4 Тогда Выход из функции
strContent = .Responsebody
стрКонтент = sBytesToBstr(strContent)
Конец с
Установить oXhttp = Ничего
Если Номер ошибки <> 0 Тогда
ответ.Запись(Ошибка.Описание)
Ошиб.Очистить
Функция выхода
Конец, если
GetContent = стрКонтент
Конечная функция
Рем ############################################## ##############
Рем ############################################## ##############
Rem ## Преобразование кодировки двоичная => строка
Частная функция sBytesToBstr(vIn)
DimobjStream
set objStream = Server.CreateObject("adodb.stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write vIn
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "GB2312"
sBytesToBstr = objStream.ReadText
objStream.Close
установить objStream = ничего
Конечная функция
Рем ############################################## ##############
Рем ############################################## ##############
Rem ## Преобразование кодировки двоичная => строка
Частная функция sDoCreateFile(strFileName, ByRef strContent)
сДоКреатеФиле = Ложь
Тусклый стрПат
strPath = Left(strFileName, InstrRev(strFileName, "", -1, 1))
Rem ## Проверьте правильность пути и имени файла.
Если нет (CreateDir (strPath)) Тогда выход из функции
'Если нет(CheckFileName(strFileName)) Тогда выход из функции
'response.Write(strFileName)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Дим fso, f
Установите fso = CreateObject("Scripting.FileSystemObject")
Установите f = fso.OpenTextFile(strFileName, ForWriting, True)
е. Напишите strContent
е.Закрыть
Установить fso = ничего
Установить f = ничего
сДоКреатеФиле = Истина
Конечная функция
Рем ############################################## ##############
Рем ############################################## ##############
Rem ## Преобразование кодировки двоичная => строка
Частная функция sDoAppendFile(strFileName, ByRef strContent)
sDoAppendFile = Ложь
Тусклый стрПат
strPath = Left(strFileName, InstrRev(strFileName, "", -1, 1))
Rem ## Проверьте правильность пути и имени файла.
Если нет (CreateDir (strPath)) Тогда выход из функции
'Если нет(CheckFileName(strFileName)) Тогда выход из функции
'response.Write(strFileName)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Дим fso, f
Установите fso = CreateObject("Scripting.FileSystemObject")
Установите f = fso.OpenTextFile(strFileName, ForAppending, True)
е. Напишите strContent
е.Закрыть
Установить fso = ничего
Установить f = ничего
sDoAppendFile = Истина
Конечная функция
Рем ############################################## ##############
Rem ## Программа для создания каталога. Если существует несколько уровней каталогов, создайте их один за другим.
Рем ############################################## ##############
Частная функция CreateDir(ByVal strLocalPath)
Dim i, strPath, objFolder, tmpPath, tmptPath
Dim arrPathList, intLevel
'При ошибке возобновить далее
strPath = Заменить(strLocalPath, "", "/")
Установите objFolder = server.CreateObject("Scripting.FileSystemObject")
arrPathList = Split(strPath, "/")
intLevel = UBound(arrPathList)
Для I = 0 Для intLevel
Если я = 0 Тогда
tmptPath = arrPathList(0) & "/"
Еще
tmptPath = tmptPath & arrPathList(I) & "/"
Конец, если
tmpPath = Влево(tmptPath, Len(tmptPath) - 1)
Если не objFolder.FolderExists(tmpPath), то objFolder.CreateFolder tmpPath
Следующий
Установить objFolder = Ничего
Если Номер ошибки <> 0 Тогда
СоздатьДир = Ложь
Ошиб.Очистить
Еще
СоздатьДир = Истина
Конец, если
Конечная функция
Рем ############################################## ##############
Rem ## преобразование длинных целых чисел
Рем ############################################## ##############
Частная функция toNum(s, по умолчанию)
Если IsNumeric(s) и s <> "" тогда
toNum = CLng(s)
Еще
toNum = по умолчанию
Конец, если
Конечная функция
Рем ############################################## ##############
Конечный класс
Рем ############################################## ########################################################################
%>