Описание параметра
'Шаблон, используемый именем демона [../demo/*.html]
'savename сохранить местоположение и имя [../demo/*.html]
'strflag Флаг, который будет заменен [$aaa$,$bbb$]
'strcontent Замена содержимого каждого тега [aaa$bbb]
'============================================== = ===========================
Дополнительная страница создания (demonname, savename, strflag, strcontent)
Дим fso,htmlwrite
Тусклый StrOut
'//Создаем объект файловой системы Set fso=Server.CreateObject(Scripting.FileSystemObject)
'//Открываем файл шаблона веб-страницы и читаем содержимое шаблона
Установите htmlwrite=fso.OpenTextFile(Server.MapPath(demonname))
strOut=htmlwrite.ReadAll
htmlwrite.close
'============================================== = ===========================
strflag=split(strflag,,)
для i = 0 до ubound(strflag)
strcont=split(strcontent,$)
strOut=Replace(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
следующий
'// Заменяем теги в шаблоне реальным контентом
'============================================== = ===========================
'//Создаем статическую страницу, которая будет сгенерирована
Установите htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//Записываем содержимое веб-страницы
htmlwrite.WriteLine strOut
htmlwrite.close
Ответ.Написать
'// Освобождаем объект файловой системы
sethtmlwrite=Ничего
установить fso=Ничего
конец субтитра
-------------------------------------------------- -------------------------------------------------- ---------------------------------------
Пример использования:
'Заменить тег
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'Заменяем значение, соответствующее метке
Hostname=Request.ServerVariables(SERVER_NAME)'Получить текущее доменное имя
set rs=conn.execute(выберите webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner из [WebConfig])
commentstr=Имя хоста&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
RS.закрыть
установить rs=ничего
'Вызов подпрограммы
вызов makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)