Рекомендуется: календарная программа, сделанная ASP Чистая календарная программа, созданная ASP, может быть украшена сама по себе, и здесь доступен только самый простой стиль CSS. Полем Полем Стиль корпус {размер шрифта: 12px; Полевая: 20px 0 0 20px; Подкладка: 0} tr, td {text-align: center;} /style % '=============================================================================== ================================================================================= ================================================================================= =================================================================================
Шаблон класса
Private M_FILENAME, M_ROOT, M_UNKNOWNS, M_LASTERROR, M_HALTORERR
Приватный m_valuelist, m_blocklist
Private M_Regexp
Private sub class_initialize
Установить m_valuelist = createObject (scripting.dictionary)
Установить m_blocklist = createObject (scripting.dictionary)
Установить m_regexp = new Regexp
m_regexp.ignorecase = true
m_regexp.global = true
M_FILENAME =
m_root =.
m_unknowns = удалить
m_lasterror =
m_haltonerr = true
Конец суб
Приватный sub class_terminate
Установить m_regexp = ничего
Установить m_blockmatches = ничего
Установить m_valuematches = ничего
Конец суб
Общественная собственность Get ClassName ()
ClassName = шаблон
Конец собственности
Общественная недвижимость GET версия ()
Версия = 1.0
Конец собственности
Загрузочный файл частной функции (чартип Byval)
DIM FILENAME, FSO, HNDFILE
Filename = m_root
Если право (имя файла, 1) <>/ и right (имя файла, 1) <>/ then filename = имя файла и///
Filename = server.mappath (filename & m_filename)
SET StreamObject = server.createObject (adodb.stream)
StreamObject.Type = 1
StreamObject.Mode = 3
StreamObject.Open
StreamObject.position = 0
StreamObject.LoadFromfile Filename
StreamObject.position = 0
StreamObject.Type = 2
StreamObject.Charset = chartType
Loadfile = streamobject.readtext ()
Если LoadFile = тогда ShowerRor (0x11 <br> не удалось загрузить файл и m_filename &!)
Конечная функция
Частный суб душ (Byval MSG)
m_lasterror = msg
Response.write <span style = font-size: 12px; цвет: Red> ID ошибка: & msg & </span>
Если m_haltonerr, то response.end
Конец суб
Public sub set_root (значение byval)
m_root = значение
Конец суб
Публичная функция get_root ()
get_root = m_root
Конечная функция
Общественная недвижимость пусть корни (стоимость Byval)
set_root (значение)
Конец собственности
Общественная недвижимость получить root ()
Root = m_root
Конец собственности
Public sub set_file (Byval Handling, Byval Filename, Byval Chartype)
M_FILENAME = имя файла
m_blocklist.Add Ручка, LoadFile (Chartype)
Конец суб
Публичная функция get_file ()
get_file = m_filename
Конечная функция
Public sub set_unknowns (byval неизвестны)
m_unknowns = неизвестные
Конец суб
Публичная функция get_unknowns ()
get_unknowns = m_unknowns
Конечная функция
Общественная собственность дайте неизвестным (Byval неизвестно)
m_unknowns = неизвестно
Конец собственности
Общественная собственность получает неизвестные ()
Неизвестные = m_unknowns
Конец собственности
Public sub set_block (byval parent, byval blocktag, byval name)
DIM MATCHES
M_Regexp.pattern = <!-/s+begin & blocktag & /s+-->(m/s/s.y*))< !--/S+end & Blocktag &/s+->
Если не m_blocklist.exists (parent), то душ (0x12 <br> Неопределенный блок -тег и родитель!)
SET MATCHES = M_REGEXP.EXECUTE (m_blocklist.item (parent))
Для каждого матча в матчах
m_blocklist.add blocktag, match.submatches (0)
m_blocklist.item (parent) = replace (m_blocklist.item (parent), match.value, {& name &})
Следующий
установить совпадения = ничего
Конец суб
Public sub set_var (имя Byval, Byval Value, Byval Append)
Dim Val
Если isnull (значение), то val = else val = value
Если m_valuelist.exists (имя) тогда
Если добавить, то m_valuelist.item (name) = m_valuelist.item (name) и val _
Else m_valuelist.item (name) = val
Еще
m_valuelist.add name, значение
Конец, если
Конец суб
Public sub unset_var (имя Byval)
Если m_valuelist.exists (имя), то m_valuelist.remove (имя)
Конец суб
Chect Function EncementValue (Byval Blocktag)
Dim Keys, я
Exancevalue = m_blocklist.item (blocktag)
Keys = m_valuelist.keys
Для i = 0 до m_valuelist.count-1
Exancevalue = replace (exantevalue, {& keys (i) &}, m_valuelist.item (keys (i))))))
Следующий
Конечная функция
Общественный суб -парион (имя Byval, Byval Blocktag, Byval Append)
Если не m_blocklist.exists (blocktag), то душ (0x12 <br> Неопределенный блок -тег & Parent &!)
Если m_valuelist.exists (имя) тогда
Если добавить, то m_valuelist.item (name) = m_valuelist.item (name) & exancevalue (blocktag) _
Else m_valuelist.item (name) = exancevalue (blocktag)
Еще
m_valuelist.add name, exancevalue (blocktag)
Конец, если
Конец суб
Частная функция окончание (контент Byval)
Выберите Case m_unknowns
Case Keep Finish = Content
Случай удалить
m_regexp.pattern =/{[^/t/r/n}]+/}
finish = m_regexp.replace (content,)
Случайный комментарий
m_regexp.pattern =/{([^/t/r/n}]+)/}
Finish = M_Regexp.Replace (Content, <!-переменная шаблона $ 1 не определен->)
Case Else Finish = Content
Конец выбора
Конечная функция
Общественный субворт (название Byval)
Если не m_valuelist.exists (имя), то душ (0x13 <br> не смог бы найти тег и имя &!)
Response.write (finish (m_valuelist.item (name)))))
Конец суб
Конечный класс
Поделиться: использование объектов запроса ASP ASP в основном имеет пять встроенных объектов: сервер, запрос, ответ, приложение и сеанс. Теперь давайте объясним их, приведя примеры. Во -первых, наиболее часто используемый объект ответа. Пример 1 Использование ответа на выходные документы HTML на веб -страницах вы можете ввести вышеуказанное поколение в редакторе передней части или в письменных досках, блокнотах и других авторам.