Друзья, которым нужен простейший класс шаблона класса операций шаблона ASP Crazy, могут обратиться к нему. Имя файла: Awa_temp.Class.asp
Скопируйте код кода следующим образом:
<%
'Сумасшедшая лягушка! Класс операции с шаблоном!
«Автор Crazy~frog QQ:379969387 Добро пожаловать для общения!
'Версия V1.0;
КлассAwaTemp
Публичное аа
Частный FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===========================================
'Constructor_Initialize компонент FSO
'===========================================
Частный подкласс_Initialize()
Установите FSO=Server.CreateObject(Scripting.FileSystemObject)
Конец субтитра
'===========================================
'Destructor_Destroy компонент FSO
'===========================================
Частный подкласс_terminate()
Установить FSO=ничего
Конец субтитра
'===========================================
'Атрибут класса
'===========================================
'Информация о версии
Публичная собственность Получить версию
Версия = Сумасшедшая ~ лягушка! Версия шаблона V1.0;
Конечная собственность
'Получаем адрес и имя шаблона
Открытое свойство Let Temp (значения ByVal)
StrTemp=Значения
Конечная собственность
'Получаем имя сгенерированного файла
Открытое свойство Let HtmlName (значения ByVal)
StrHtmlName=Значения
Конечная собственность
'Получить теги
Открытое свойство Let Label (значения ByVal)
StrLabel=Значения
Конечная собственность
'Получаем значение, которое заменяет метку
Открытое свойство Let LValues (значения ByVal)
StrLValues=Значения
Конечная собственность
'==========================================
'Метод класса
'===========================================
'Проверьте настройки шаблона и существуют ли они
Проверка частной функции()
Если СтрТемп= Тогда
Check=<span style='color:red;'>Ошибка: не задано место хранения файла шаблона! </span>
Еще
Если FSO.FileExists(StrTemp)=false Тогда
Check=<span style='color:red;'>Ошибка: указанный шаблон не существует! </span>
Еще
Проверить=истина
Конец, если
Конец, если
Конечная функция
'Читать страницу шаблона
Публичная подпрограмма ReadTemp()
Если Check()<>true Тогда
Ответ.Проверка записи()
Ответ.Конец()
Еще
Установите GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Close
Установить GetData=ничего
Конец, если
Конец субтитра
'Заменить содержимое
Открытая функция Rep()
Если StrLabel= Тогда
Response.Write <span style='color:red;'>Ошибка: не установлен заменяемый тег! </span>
Ответ.Конец()
Конец, если
Если StrLValues= Тогда
Response.Write <span style='color:red;'>Ошибка: данные для тега замены не заданы! </span>
Ответ.Конец()
Конец, если
FileData = Заменить (FileData, StrLabel, StrLValues)
Конечная функция
'Выход
Публичное субэхо()
Response.Write FileData
Конец субтитра
'Создать статическую страницу
Публичная подпрограмма GetHtml()
Если StrHtmlName= Тогда
Response.Write <span style='color:red;'>Ошибка: не заданы место хранения и имя созданного HTML-файла! </span>
Ответ.Конец()
Конец, если
Установите htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
'Запись содержимого веб-страницы
htmlwrite.WriteLine FileData
htmlwrite.Close
sethtmlwrite=Ничего
Конец субтитра
Конечный класс
%>
Примеры использования:
index.asp
Скопируйте код кода следующим образом:
<!--#include file=Awa_temp.Class.asp-->
<%
Установить awa=Новая AwaTemp
С ава
.Temp=temp.tpl
.ReadTemp
.Label={tl1}
.LValues=Больно
.Представитель
.Эхо
'.HtmlName=aa/index.html
'.GetHtml
Конец с
Set awa=ничего
%>
трафарет
темп.tpl:
Скопируйте код кода следующим образом:
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<голова>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<title>Документ без названия</title>
</голова>
<тело>
<ширина таблицы=200 граница=1>
<тр>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<тр>
<тд> </тд>
<тд> </тд>
<тд> </тд>
</tr>
<тр>
<тд> </тд>
<тд> </тд>
<тд> </тд>
</tr>
</таблица>
</тело>
</html>