Часто есть такие требования , требование, чтобы динамика включает в себя файл подлежит <!
Файл должен существовать и будет предварительно скомпилирован (независимо от того, предшествовали ли условия)
Часто есть такие требования, включая различные файлы в соответствии с различными требованиями
Если настройки каждого человека различны, это необходимо для динамического включения файлов.
Код заключается в следующем:
| Функция включает (имя файла) Dim Re, Content, FSO, F, Aspstart, Aspend Установить fso = createObject (scripting.filesystemobject) Установить f = fso.opentextfile (server.mappath (имя файла)) Контент = F.Readall F.Close Установите F = ничего Установить FSO = ничего Установите RE = новая режима re.pattern =^/s*= Append = 1 aspstart = instr (aspend, content, <%)+2 Делайте, пока Aspstart> Aspend+1 Response.write mid (контент, Aspend, Aspstart-Aspend-2) aspend = instr (aspstart, content,%/>)+2 Execute (re.replace (Mid (Content, Aspstart, Aspend-ASPStart-2), response.write)) aspstart = instr (aspend, content, <%)+2 петля Response.write mid (контент, append) установить re = ничего Конечная функция |
Пример использования:
Включить (youinc.asp) |