Я работаю на местном портале, и погода на веб -сайте должна обновляться каждый день. Со временем я чувствовал себя довольно неприятным, поэтому я написал время.
Вот содержание вора:
| Filename tianqi.asp Напишите Niaooked QQ4086111199 www.knowsky.com ＜% Если час (сейчас) = 9 и минута (сейчас) ＜ 30 тогда getCategories () конец, если Функция getCategories () при ошибке резюме следующим Dim oxmlhttp 'как объект Dim Ocategories 'как объект Dim BodyText Dim POS, POS1 Set oxmlhttp = createObject (microsoft.xmlhttp) '--- Установите xmlhttp Call и Issue Send (без Parm как категория '--- включено в URL oxmlhttp.open get, http: //weather.china.com.cn/travel_gntq.php? CityId = 56196 & CityName = Mianyang, false 'Это место изменяется на ваш собственный адрес oxmlhttp.send '--- Загрузите ответ в остров данных категорий BodyText = oxmlhttp.responsebody BodyText = byTestobstr (BodyText, GB2312) Pos = instr (bodytext, ＜ тело) pos1 = instr (bodytext, ＜/body ＞) BodyText = Mid (BodyText, POS, POS1) BodyText = Split (BodyText, ＜ Таблица) Pos = instr (bodytext (4), ＜ tr) pos1 = instr (bodytext (4), ＜/tr>) Тело = среднее (bodytext (4), pos, len (bodytext (4))-pos) тело = расколоть (тело, ＜/таблица ＞) body1 = split (заменить (заменить (заменить (корпус (0), ＜br>,), ＜/td>,), ＜/tr>,), погода) для i = 1 до ubund (body1) Body3 = Split (Body1 (i), ＜ TD) погода = погода и документ следующий погода = заменить (погода, 1 $, ＜ Font Color =#ffffffff ＞【 сегодня 】＜/font ＞) погода = заменить (погода, 2 $, ＜ Font Color =#ffffff ＞【 завтра 】＜/font ＞) погода = заменить (погода, 3 $, ＜ Font Color =#ffffffff ＞【 день за днем 】＜/font ＞) Установить fs = createObject (scripting.filesystemobject) Установите f = fs.createTextFile (request.servervariables (appl_physical_path) & tq.js, true) F.Write (Document.Write ('Mianyang Weather прогноз:'); & vbcrlf & reply (погода, ＜br>,))) F.Close Установить f = ничего Установить fs = ничего Ответ. Прогноз погоды Mianyang: и погода Установить oxmlhttp = ничего Если err.number ＜＞ 0 тогда Был ответ на ошибку. Перепись, Описание Ошибка: & ERR.Description & ＜br> Источник ошибки и ошибка. response.end () конец, если Конечная функция Функция Bytestobstr (тело, CSET) Dim objstream Установить objstream = server.createObject (adodb.stream) objstream.type = 1 objstream.mode = 3 objstream.open objstream.write Тело objstream.position = 0 objstream.type = 2 objstream.charset = cset Bytestobstr = objstream.readtext objstream.close установить objstream = ничего Конечная функция Публичная функция htmlencode (fstring) Если нет isnull (fstring), то тогда FSTRING = Заменить (FSTRING, ＞, & gt;) FSTRING = Заменить (FSTRING, ＜, & lt;) FSTRING = Заменить (fstring, Chr (32),) '& nbsp; FSTRING = Заменить (fstring, Chr (9),) '& nbsp; fstring = reply (fstring, chr (34), & quot;) fstring = reply (fstring, chr (39), ') 'Сингл -цитата фильтрация fstring = заменить (fstring, chr (13),) FSTRING = Заменить (FSTRING, CHR (10) и CHR (10), ＜/P> P>) FSTRING = Заменить (FSTRING, CHR (10), ＜BR＞) Htmlencode = fstring Конец, если Конечная функция %＞ |