<%
'''''''''''''''Сломанный меч Комментарии'''''''''''''''''''''''
''''strText — это содержимое раздела, который нужно вырезать''''''''''''
''''strStarTag — это отправная точка вырезаемого контента''''''''''
''''strEndTag – это конец обрезаемого контента''''''''''
''''Возвращаемое значение GetText — это вырезанное содержимое''''''''''''''
'''''''''''''''Конец комментария''''''''''''''''''''
Функция GetText(strText, strStartTag, strEndTag)
дим intStart
intStart = instr(strText, strStartTag)
если intStart, то
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
еще
Получитьтекст=
конец, если
Конечная функция
%>
<%
'''''''''Сломанный меч Комментарии''''''''''
'''''''''Следующие функции можно игнорировать'''''''''
''''''''Просто используйте функцию ввода getHTTPPage'''''''
''''''''путь - это адрес веб-страницы, которую нужно прочитать''''''''
''''''''getHTTPPage возвращает прочитанное содержимое веб-страницы''
'''''''' Здесь следует отметить, что код читаемой веб-страницы равен gb2312.
''Для gb2312 используйте gb2312. Если это UTF-8, измените его на UTF-8''''.
''''''''Конец комментария''''''''''
Функция getHTTPage(Путь)
т = GetBody (Путь)
getHTTPPage=BytesToBstr(t,gb2312)
Конечная функция
Функция GetBody(url)
при ошибке продолжить дальше
Установить получение = CreateObject(Microsoft.XMLHTTP)
С поиском
.Открыть get, URL, False, ,
.Отправлять
GetBody = .ResponseBody
Конец с
Установить получение = Ничего
Конечная функция
Функция BytesToBstr(body,Cset)
тусклый объектный поток
установить objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
%>