Рекомендуется: как использовать ASP для удаления трех самых высоких результатов и трех самых низких баллов Вопрос: Как использовать ASP для удаления трех самых высоких результатов и трех самых низких баллов? Решение: 1. Сортируйте весь массив и удалите три максимальных значения и три минимальных значения на обоих концах (предложено другим сетизеном!) 2. Выберите три самых больших числа и три наименьших числа, и
Все знают, что HTML -статические веб -страницы с большей вероятностью будут индексировать поисковые системы. веб -страниц? Я думаю, что все тоже это знают.
Для этого я решил изменить предыдущие методы построения веб -сайтов и веб -дизайна.
Метод замены метки: это определение, которое я лично понимаю.
Метод замены тега состоит в том, чтобы поместить установленные теги в разработанную веб -шаблон, а затем заменить их вещами, которые вам нужно отобразить. нравиться
Файл шаблона 1
Мы сохраняем этот шаблон в таблице баз данных Temptable
<html>
<голова>
<title> {$ sitename} </title>
</head>
<тело>
{$ Arc_list $}
</body>
<html>
В приведенном выше шаблоне я поместил два тега {$ siteName} имя веб -сайта и список статей $ arc_list}, а затем посмотрите на следующий код
<%
Dim RS, Sitename, Arc_list, FSO, MyFile, FilePath, HTML
SiteName = моя первая динамически сгенерированная HTML -страница
Filepath = server.mappath (/html/index.html)
Установить rs = server.createObject (adodb.recordset)
Rs.Openselect [Temp] из Temptable, Conn, 1,1
html = rs (temp) 'прочитать шаблон веб -страницы
Rs.close
html = replace (html, {$ sitename}, siteename) 'reply {$ sitename} тег с помощью пользовательского SiteName
html = html & replace (html, {$ arc_list $}, get_arclist ()) 'заменить тег {$ arc_list $} с помощью функции get_arclist ()
Установить RS = ничего
Conn.close
установить conn = ничего
Установить fso = createObject (*** ing.filesystemobject) 'Создать объект файловой системы
Установить myfile = fso.createTextFile (filePath, true) 'Создать файл
Myfile.writeline (html) 'write htm -код для файла
Myfile.close 'Close File
Установить myfile = ничего 'выпустить объект файла
Установить FSO = ничего 'выпустить объект системного файла
response.write <*** language = 'java ***'> window.alert ('генерация файлов была успешной'); </***>
response.end ()
Функция get_arclist ()
Dim Str, Str1
str1 =
str = <ul> {list} </ul>
Rs.Openselect Title, URL от Arc
Хотя не рупий
str1 = str1 & <li> <a href = & rs (url) &> & rs (title) & </a> </li>
Rs.movenext
Венд
Rs.close
str = reply (str, {list}, str1)
get_arclist = str
%>
Конечная функция
Вышеуказанный метод очень прост? Полем Полем Ха -ха, теперь работает в строительной компании
Поделиться: используйте ASP, чтобы реализовать функцию перевода статьи в Интернете Иногда я хочу предоставить многоязычную поддержку для наших веб-страниц. Полем lan.htm