Recomendado: programa de calendário feito por ASP Um programa de calendário puro-criado a ASP pode embelezar por si só, e apenas o estilo CSS mais simples está disponível aqui. . . corpo de estilo {font-size: 12px; margem: 20px 0 0 20px; preenchimento: 0} tr, td {text-align: Center;} /estilo % '================================================================================ ==================================================================================== ==================================================================================== ====================================================================================
Modelo de aula
Private m_filename, m_root, m_unknowns, m_lasterror, m_haltoner
M_VALUELIST PRIVADO, M_BLOCKLIST
Private m_regexp
Sub -Class_initialize privado
Set m_valuelist = createObject (script.dictionary)
Set m_blocklist = createObject (script.dictionary)
defina m_regexp = novo regexp
m_regexp.ignorecase = true
m_regexp.global = true
m_filename =
m_root =.
m_unknowns = remover
M_LASTERROR =
m_haltonerr = true
Final sub
Sub -Class_terminado privado
Defina m_regexp = nada
Definir m_blockmatches = nada
Defina m_valuematches = nada
Final sub
Propriedade pública Get ClassName ()
ClassName = Modelo
Propriedade final
Propriedade pública Get versão ()
Versão = 1.0
Propriedade final
Função privada Carregarfile (Byval Chartype)
Dim FileName, FSO, HNDFILE
Nome do arquivo = m_root
Se certo (nome do arquivo, 1) <>/ e direito (nome do arquivo, 1) <>/ então filename = nome do arquivo &///////////////////////////
FileName = Server.mappath (nome do arquivo e 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 ()
Se LoadFile = então SHOWRROR (0x11 <br> Não foi possível carregar o arquivo & m_filename &!)
Função final
Sub -chuveiro privado (BYVAL MSG)
M_LASTERROR = MSG
Response.write <span style = font-size: 12px; cor: vermelho> Id de erro: & msg & </span>
Se m_haltonerr, então resposta.end
Final sub
Public Sub Set_root (valor Byval)
m_root = valor
Final sub
Função pública get_root ()
get_root = m_root
Função final
Propriedade pública Let Root (valor BYVAL)
set_root (valor)
Propriedade final
Propriedade pública Get Root ()
Raiz = m_root
Propriedade final
Public Sub Set_File (Handle Byval, Byval FileName, ByVal Chartype)
m_filename = nome do arquivo
M_BLOCKLIST.Add Handle, LoadFile (Chartype)
Final sub
Função pública get_file ()
get_file = m_filename
Função final
Public Sub Set_unknowns (ByVal Inchongrouchs)
m_unknowns = incógnitas
Final sub
Função pública get_unknowns ()
get_unknowns = m_unknowns
Função final
Propriedade pública Deixe desconhecidos (Byval desconhecido)
m_unknowns = desconhecido
Propriedade final
Propriedade pública Get UnknownS ()
Desconhecido = m_unknowns
Propriedade final
Public Sub Set_block (pai Byval, Byval Blocktag, Nome Byval)
Matches escuros
m_regexp.pattern = <!-/s+Begin & BlockTag & /s+-->(/s/s.s.* **)<!--/s+end & BlockTag &/s+->
Se não m_blocklist.exists (pai), então o chuveiro (0x12 <br> Tag e pai de bloco indefinido &!)
SET MOCHES = m_regexp.execute (m_blocklist.item (pai))
Para cada partida em partidas
m_blocklist.add blocktag, match.submatches (0)
m_blocklist.item (pai) = substituir (m_blocklist.item (pai), match.value, {& name &})
Próximo
Set Matches = nada
Final sub
Public Sub Set_var (Nome Byval, Byval Value, Byval Append)
Dim val
Se isNull (valor) então val = else Val = valor
Se m_valuelist.exists (nome) então
Se anexar então m_valuelist.item (nome) = m_valuelist.item (nome) e val _
Else m_valuelist.item (nome) = val
Outro
m_valuelist.add nome, valor
Final se
Final sub
Public Sub Unset_var (Nome Byval)
Se m_valuelist.exists (nome) então m_valuelist.remove (nome)
Final sub
Função privada InstanceValue (Byval BlockTag)
Chaves escuras, i
InstanceValue = m_blocklist.item (BlockTag)
chaves = m_valuelist.keys
Para i = 0 a m_valuelist.count-1
InstanceValue = Substitua (InstanceValue, {& keys (i) &}, m_valuelist.item (keys (i)))
Próximo
Função final
Public Sub Parse (Nome Byval, Byval Blocktag, Byval Append)
Se não m_blocklist.exists (blocktag), então o chuveiro (0x12 <br> tag de bloco indefinido e pai &!)
Se m_valuelist.exists (nome) então
Se anexar, então m_valuelist.item (nome) = m_valuelist.item (nome) e instanceValue (BlockTag) _
Else m_valuelist.item (nome) = InstanceValue (BlockTag)
Outro
m_valuelist.add Nome, InstanceValue (BlockTag)
Final se
Final sub
Acabamento de função privada (conteúdo BYVAL)
Selecione o caso m_unknowns
Caso mantenha acabamento = conteúdo
Remova de caso
m_regexp.pattern =/{[^/t/r/n}]+/}
acabamento = m_regexp.replace (conteúdo)
Comentário do caso
m_regexp.pattern =/{([^/t/r/n}]+)/}
acabamento = m_regexp.replace (conteúdo, <!-variável de modelo $ 1 indefinido->)
Caso mais acabamento = conteúdo
Final Selecione
Função final
Sub -produto público (Nome Byval)
Se não m_valuelist.exists (nome), então o chuveiro (0x13 <br> não conseguiu encontrar tag & name &!)
Response.Write (finalização (m_valuelist.item (nome)))
Final sub
Classe final
Compartilhar: Uso de objetos de solicitação ASP O ASP possui principalmente cinco objetos internos: servidor, solicitação, resposta, aplicativo e sessão. Agora vamos explicá -los dando exemplos. Primeiro é o objeto de resposta mais usado. Exemplo 1 Usando a resposta para produzir documentos HTML nas páginas da web Você pode inserir a geração acima no editor da página frontal ou em painéis de redação, blocos de notas e outros escritores.