Друзья, которым нужен простейший класс шаблона класса операций шаблона 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=ничего
Конец субтитра
'===========================================
'Атрибут класса
'===========================================
'Информация о версии
Публичная собственность Получить версию
Version="Сумасшедшая~лягушка! Класс операции шаблона! Версия V1.0;"
Конечная собственность
'Получаем адрес и имя шаблона
Открытое свойство Let Temp (значения ByVal)
StrTemp=Значения
Конечная собственность
'Получаем имя сгенерированного файла
Открытое свойство Let HtmlName (значения ByVal)
StrHtmlName=Значения
Конечная собственность
'Получить теги
Открытое свойство Let Label (значения ByVal)
StrLabel=Значения
Конечная собственность
'Получаем значение, которое заменяет метку
Открытое свойство Let LValues (значения ByVal)
StrLValues=Значения
Конечная собственность
'===========================================
'Метод класса
'===========================================
'Проверяем настройки шаблона и существуют ли они
Проверка частной функции()
Если СтрТемп="" Тогда
Check="<span>Ошибка: не задано место хранения файла шаблона!</span>"
Еще
Если FSO.FileExists(StrTemp)=false Тогда
Check="<span>Ошибка: указанный шаблон не существует!</span>"
Еще
Проверить=истина
Конец, если
Конец, если
Конечная функция
'Читать страницу шаблона
Публичная подпрограмма ReadTemp()
Если Check()<>true Тогда
Ответ.Проверка записи()
Ответ.Конец()
Еще
Установите GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Close
Установить GetData=ничего
Конец, если
Конец субтитра
'Заменить содержимое
Открытая функция Rep()
Если StrLabel="" Тогда
Response.Write "<span>Ошибка: не установлен заменяемый тег!</span>"
Ответ.Конец()
Конец, если
Если StrLValues="" Тогда
Response.Write "<span>Ошибка: данные для тега замены не установлены!</span>"
Ответ.Конец()
Конец, если
FileData = Заменить (FileData, StrLabel, StrLValues)
Конечная функция
'Выход
Публичное субэхо()
Response.Write FileData
Конец субтитра
'Создать статическую страницу
Публичная подпрограмма GetHtml()
Если StrHtmlName="" Тогда
Response.Write "<span>Ошибка: не заданы место хранения и имя сгенерированного 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>
</голова>
<тело>
<таблица>
<тр>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<тр>
<тд> </тд>
<тд> </тд>
<тд> </тд>
</tr>
<тр>
<тд> </тд>
<тд> </тд>
<тд> </тд>
</tr>
</таблица>
</тело>
</html>