Рекомендуется: краткий анализ советов по поиску ASP AJAX, аналогичный Google Основные файлы: функция реализации index.html, текстовое поле, входное содержимое и реализацию функции запроса на запрос resmong.asp, пусть содержимое, введенное в текстовое поле, запрашиваться в базе данных, а затем вернуть его в функцию подключения базы данных клиента, реализовать и реализовать и реализовать и реализовать и реализовать и реализовать
Есть много новостных систем, которые генерируют HTML, но все они используют шаблоны. Эта функция сохраняет код HTML, сгенерированный страницей ASP в файл HTML, поэтому нет необходимости изменять исходную страницу, и она может быть легко
Завершите новостную систему, которая генерирует HTML. ^_^
Поскольку код короткий, я здесь не буду комментировать
<%
«Когда целевая страница содержит файл, то есть страница #include, есть проблема с этой программой.
Примечание: этот файл должен быть размещен в том же каталоге, что и файл, на который указал имя файла
| Ниже приведено цитируемое содержание: Dim hughchiu_rtcode Function get_exe_code (имя файла) Dim Execode Dim tmp_str Dim Re, Re1, Content, FSO, F, Aspstart, Aspend Dim MS, m execode = Установить fso = createObject (scripting.filesystemobject) Установить f = fso.opentextfile (server.mappath (имя файла)) Контент = F.Readall F.Close Установите F = ничего Установить FSO = ничего SET RE = новая режима re.ignorecase = true re.global = true re.pattern = <%@[^%]%> Content = re.replace (Content,) re.global = false re.pattern = <!-s*#включает*файлы*= s*([^]) s*-> делать Установите MS = re.Execute (Content) Если Ms.count <> 0, то Установите M = MS (0) tmp_str = get_exe_code (m.submatches (0)) content = re.replace (content, tmp_str) еще Выход DO конец, если петля Установить M = ничего Установить MS = ничего re.pattern =^s*= Append = 1 aspstart = instr (aspend, content, <%) 2 Установите RE1 = новая режима re1.ignorecase = true re1.global = false re1.pattern = response.write (.) Делай, пока aspstart> aspend 1 execude = execude & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && replace (reply (mid (content, append, aspstart-aspend-2) ,,), vbcrlf, & vbcrlf &) && vbcrlf aspend = instr (aspstart, content,%>) 2 tmp_str = mid (content, aspstart, aspend-aspstart-2) делать Установить MS = re1.execute (tmp_str) Если Ms.count <> 0, то Установите M = MS (0) tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) еще Выход DO конец, если петля Установить M = ничего Установить MS = ничего execude = execude & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &) aspstart = instr (aspend, content, <%) 2 петля Установить RE1 = ничего установить re = ничего execude = execrode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && reply (reply (mid (content, aspend) ,,), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <%& execode &%> Конечная функция функция asp2html (имя файла) Dim Code Code = replace (replace (replace (get_exe_code (имя файла), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %>,) 'response.write (код) выполнить (код) 'response.write (hughchiu_rtcode) asp2html = hughchiu_rtcode конечная функция %> |
Пример использования:
| Ниже приведено цитируемое содержание: F.WriteLine (asp2html (youpage.asp)) F.Close Установить f = ничего Установить FSO = ничего |
Поделиться: воспринимайте силу ASP через сценарии стартапов Как и большинство языковых сценариев, лучший способ выучить ASP - это попробовать ASP самостоятельно и установить PWS или IIS с помощью вашей собственной системы. Вы можете проверить компоненты ASP и функции на своем собственном сервере во время обучения. Чтобы облегчить обучение, мы собрали некоторые траха