Рекомендуется: используйте ASP для автоматического анализа адреса изображения на веб -странице Теперь редактор HTML, основанный на веб -страницах, используется все более и более широко в новостной системе и статье. Веб -страница может сохранить свой оригинальный стиль, как только он придерживается, и на этой странице также можно сохранить изображения. Однако во время использования, если изображение на наклеенном странице удалено, оно будет
ASP - это технология, запущенная Microsoft для замены интерфейса Universal Gateway. Его полное имя - Active Server Pages. Это среда, работающая на стороне веб-сервера. Сам ASP содержит двигатели VBScript и JavaScript, позволяя встроить сценарии непосредственно в HTML. Теперь я поделюсь с вами несколькими советами о том, как мы используем ASP.
1. Новости колонка
У большинства веб -страниц есть новостные бары, чтобы показать тему недавних новостей. Нажмите на эту тему, чтобы просмотреть подробные отчеты. Если вы пишете их один за другим на веб -странице каждый день, это будет слишком трудно создавать ссылки по очереди. Как сделать его автоматически обновлять на основе файла?
1. Подготовка:
1) Создать папку и назвать ее новости, предполагая, что она хранится в D:/ ASP/ Directory;
2) Напишите подробный содержимое каждой новости в файл, а форма именования этого файла: x (newStime) .htm. Где X является темой этих новостей, а NewStime-это время, когда новости выпущены (написано в порядке годичного дня). Почему ты так пишешь? Вы узнаете после прочтения идей алгоритма и исходных программ ниже.
2. Идея алгоритма: для файлов в папке новостей сортируют от больших до маленьких в соответствии с временем пресс -релиза в их именах файлов (то есть содержимое в скобках). Таким образом, последние новости занимают первое место на вершине. До тех пор, пока в соответствующей позиции веб -страницы отображаются несколько лучших имен файлов в папке новостей, последние новости можно отобразить в столбце новостей, как описано в 1.
3. Source Block (написано в VBScript)
| Ниже приведено цитируемое содержание: <% Dim FS, F, F1, FC, Filenum DIM COUNT Dim I, J, T1, T2 DIM -файл (100) Dim MyStr (100) Стандарт даты в файле count = 0 Установить fs = createObject (scripting.filesystemobject) Установите f = fs.getFolder (d:/asp/news) Установить fc = f.files Для каждого F1 в FC count = count 1 'Считайте количество файлов file (count) = fs.getbasename (f1) 'базовое имя файла тега mypos = instr (1, file (count), () ') позиция в имени базы файла 'Строка даты в имени базы файла mystr (count) = mid (file (count), mypos 1, len (file (count)) - (mypos 1)) следующий для i = 1, чтобы считать для j = 1 до графа-i Если mystr (j) <mystr (j 1), тогда t1 = файл (j) file (j) = file (j 1 Файл (j 1) = T1 t2 = mystr (j) mystr (j) = mystr (j 1) mystr (j 1) = t2 конец, если следующий следующий J = 1 Если Count <10, то в колонке новостей показано 10 новостей Temcount = count еще Temcount = 10 конец, если делать, пока j <= temcount%> <a href = file: /// D:/asp/news/<%= file (j)%> .htm target = new_window> <%= file (j)%> </a> <% J = J 1 петля %> |
4. Обновлено содержание столбцов новостей:
Пока вы разрабатываете хорошие привычки письма, сделайте название новостей, следуя требованиям 1, а затем сохраните письменные файлы в папку новостей, последние 10 новостей будут автоматически отображаться.
2. Доска объявлений
В дополнение к колонке новостей, наиболее часто используемой - это доска объявлений, которая в основном используется для отображения некоторых важных уведомлений. Конечно, эти уведомления должны часто менять. Вы позволите пользователям перейти в исходную программу, чтобы изменить каждый раз, когда они меняют контент объявления? Конечно, нет. Мы должны предоставить пользователю интерфейс обслуживания, чтобы до тех пор, пока пользователь входит в уведомление, контент уведомлений, естественно, будет отображаться в плате объявлений на веб -странице.
1. Ключ к решению этой проблемы заключается в гибком применении объектов файловых объектов и объектов Textstream. В реальных приложениях вам не нужно создавать объект TextStream самостоятельно, потому что до тех пор, пока вы открываете файл с объектом FileSystemObject, система автоматически создаст объект TextStream. То есть, как только будет вызван метод OpenTextFile или CreateTextFile, объект TextStream будет передан обратно.
2. Существует три соответствующих файла: update.asp, angenmance.asp, обслуживание text.txt и сохранение их в каталоге d:/asp/service.
3. Основные функции и исходные блоки трех файлов:
1) Update.asp
Основная функция состоит в том, чтобы позволить пользователю ввести объявление для отображения, убедиться, пустым ли входной контент. Если он не пуст, он будет представлен в программу Anject.asp для обработки.
| Ниже приведено цитируемое содержание: <html> <голова> <meta http-equiv = content-type content = text/html; charset = gb2312> <meta name = Generator Content = Microsoft FrontPage 4.0> <meta name = progid content = frontpage.editor.document> <Title> Обновление содержимого доски объявлений </title> </head> <тело> <script language = vbscript> Функция datacheck () Dim Msg, Errflag errflag = true Если len (trim (seange.t1.value)) = 0 then фокуста (0) errflag = false MSG = Пожалуйста, введите содержание объявления, которое будет отправлено конец, если if (errflag = false) затем MSGBOX MSG, 64, о нет! Выходная функция конец, если datacheck = errflag Поддерживать. Submit конечная функция SubeCusto (x) document.maintain.eloments (x) .focus () Конец суб </script> ① <form method = post action = anevication.asp name = searnive> <p> <input type = text name = t1 size = 84> <input type = сбросить значение = rewrite name = b2> <input type = value = value = name = b1 onclick = datacheck ()> </p> <hr color =#ff99ff size = 1> </form> </body> </html> |
Раздел Action = Anvicame.asp в заявлении ① указывает, что программа, которая будет запущена после подачи формы, является объявлением.
2) объявление
Файл технического обслуживания .txt читается и записывает объект FileSysteMobject и объект TextScream, так что содержимое 5 лучших строк этого файла является объявлением, которое будет отображаться в доске объявлений.
| Ниже приведено цитируемое содержание: <% тусклый стр str = request.form (t1) Dim S (5) const forreding = 1, forwriting = 2 Dim fso, Myfile Установить fso = server.createObject (scripting.filesystemobject) Установите myfile = fso.opentextfile (поддерживайте text.txt, forreding) 'Открыть файл в режиме чтения Для i = 1 до 5 'доска объявлений отображает 5 объявлений в общей сложности s (i) = myfile.readline'recement содержимое файла следующий myfile.close Установите myfile = fso.opentextfile (поддерживайте text.txt, forwriting, true) 'Открыть файл в режиме написания myfile.writeline str для i = 1 до 4 myfile.writeline s (i) 'Напишите данные обратно в файл следующий myfile.close %> |
3) Поддерживать Text.txt
Этот файл начинается пустым, и после ввода объявления из интерфейса, отображаемого в Update .asp, содержимое этого файла записывается автоматически.
4. Добавьте следующий код в сегмент кода, где место объявления должно отобразить объявление об обновлении в файле домашней страницы (обычно default.asp), чтобы отобразить обновленное объявление.
| Ниже приведено цитируемое содержание: <marquee scrolllamount = 2 scrolldelay = 50 направление = up width = 223 высота = 133 id = a onmouseover = a.stop () onmouseout = a.start ()> 'Прокрутите вверх и вниз по доске объявлений. <% Dim S (20) Dim fso, Myfile Установить fso = createObject (scripting.filesystemobject) Установите myfile = fso.opentextfile (d:/asp/revane/seat text.txt, 1, true) для i = 1-5 Readlinetextfile = myfile.readline s (i) = readlinetextfile response.write ★ & s (i) response.write <br> следующий %> </marquee> |
Два выше, два совета могут решить много таких проблем, учится на одном примере. Энтузиасты веб -дизайна могут также попробовать.
Поделиться: самое глубокое понимание сеанса и куки Давайте поговорим о дебатах сессии на сессии, но должно быть более 90 человек, которые могут понять сессию. Но позвольте мне сказать вам, не думайте, что вы старые ~ Некоторые люди согласны с сеансом, в то время как другие не согласны. Но что именно я должен сказать по этому вопросу? Почему бы не слушать