Recomendado: Programa de calendario realizado por ASP Un programa de calendario creado por ASP puro puede embellecer por sí mismo, y solo el estilo CSS más simple está disponible aquí. . . Cuerpo de estilo {font-size: 12px; margen: 20px 0 0 20px; Padre: 0} TR, TD {Text-Align: Center;} /Style % '======================================================================================================================== ================================================================================================================================ ================================================================================================================================ ================================================================================================================================
Plantilla de clase
Privado m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr
Privado m_valuelista, m_blocklist
Privado m_regexp
Sub class_initialize privado
Establecer m_valuelist = createObject (scripting.dictionary)
Establecer m_blocklist = createObject (scripting.dictionary)
Establecer m_regexp = new Regexp
m_regexp.ignorecase = true
m_regexp.global = verdadero
m_filename =
m_root =.
m_unknowns = eliminar
m_lasterror =
m_haltonerr = verdadero
Final
Sub class_merminate privado
Establecer m_regexp = nada
Establecer m_blockmatches = nada
Establecer m_valuematches = nada
Final
Propiedad pública Get ClassName ()
Classname = plantilla
Propiedad final
Propiedad pública Get Version ()
Versión = 1.0
Propiedad final
Función de carga privada (Byval Chartype)
Dim File Name, FSO, Hndfile
Nombre de archivo = m_root
Si correcto (nombre de archivo, 1) <>/ y derecho (nombre de archivo, 1) <>/ luego FileName = FileName &//
FileName = server.mappath (nombre de archivo y m_filename)
Establecer 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 ()
Si loadFile = entonces ducha (0x11 <br> no se pudo cargar el archivo & m_filename &!)
Función final
Sub ducha privado (Byval MSG)
m_lasterror = msg
Response.write <span style = font-size: 12px; color: rojo> ID de error: & msg & </span>
Si m_haltonerr, entonces respuesta.
Final
Public sub set_root (valor de byval)
m_root = valor
Final
Función pública get_root ()
get_root = m_root
Función final
Propiedad pública Deje raíz (valor de ByVal)
set_root (valor)
Propiedad final
Propiedad pública Get Root ()
Raíz = m_root
Propiedad final
Public Sub set_file (Mango de Byval, Nombre de archivo ByVal, Byval Chartype)
m_filename = nombre de archivo
M_BLOCKLIST.Add Handle, LoadFile (Chartype)
Final
Función pública get_file ()
get_file = m_filename
Función final
Public Sub set_unknowns (Byval Fnows)
m_unknowns = incógnitas
Final
Función pública get_unknowns ()
get_unknowns = m_unknowns
Función final
Propiedad pública Let Desconocidos (Byval Desconocido)
m_unknowns = desconocido
Propiedad final
Propiedad pública Get Fnows ()
Incógnitas = m_unknowns
Propiedad final
Public sub set_block (Padre Byval, Byval Blocktag, Nombre de Byval)
Partidos de Dim
m_regexp.pattern = <!-/s+begin & blocktag & /s+ -->(bar/S/s.font>*)<!-/s+end & blocktag &/s+->>
Si no es m_blocklist.exists (padre), entonces ducha (0x12 <br> etiqueta de bloque indefinida y padre &!)
Establecer coincidencias = m_regexp.execute (m_blocklist.item (parent))
Para cada partido en partidos
m_blocklist.add blocktag, match.submatches (0)
m_blocklist.item (parent) = reemplazar (m_blocklist.item (parent), match.value, {& name &})
Próximo
Establecer coincidencias = nada
Final
Public sub set_var (nombre de Byval, valor de byval, byval adjunto)
Valiente
If isNull (valor) entonces val = else val = value
Si m_valuelist.exists (nombre) entonces
Si se agrega, entonces m_valuelist.item (nombre) = m_valuelist.item (nombre) y val _
Más m_valuelist.item (nombre) = val
Demás
m_valuelist.Add Nombre, valor
Final si
Final
Sub público unset_var (nombre de Byval)
Si m_valuelist.exists (nombre) entonces m_valuelist.remove (nombre)
Final
Instance de función privada (Byval Blocktag)
Dim teclas, yo
InstanceValue = m_blocklist.item (blocktag)
claves = m_valuelist. keys
Para i = 0 a M_Valuelist.Count-1
InstanceValue = reemplazar (instanceValue, {& keys (i) &}, m_valuelist.item (teclas (i)))
Próximo
Función final
Público Sub Parse (Nombre del Byval, Byval Blocktag, Byval Adición)
Si no es m_blocklist.exists (blocktag), entonces ducha (0x12 <br> etiqueta de bloque indefinida y padre &!)
Si m_valuelist.exists (nombre) entonces
Si se agrega, entonces m_valuelist.item (name) = m_valuelist.item (nombre) e instanciaValue (blocktag) _
Else M_Valuelist.Item (name) = instanceValue (blocktag)
Demás
m_valuelist.Add Nombre, InstanceValue (blocktag)
Final si
Final
Final de la función privada (contenido de Byval)
Seleccionar el caso m_unknowns
Caso Keep Finish = Contenido
Caso de eliminación
m_regexp.pattern =/{[^/t/r/n}]+/}
final = m_regexp.replace (contenido)
Comentario de casos
m_regexp.pattern =/{([^/t/r/n}]+)/}
final = m_regexp.replace (contenido, <!-Variable de plantilla $ 1 Undefined->)
Caso más final = contenido
Final seleccionar
Función final
Sub salida pública (nombre de ByVal)
Si no es m_valuelist.exists (nombre), entonces ducha (0x13 <br> no pudo encontrar etiqueta y nombre y!)
Response.write (final (M_Valuelist.Item (nombre)))
Final
Clase final
Compartir: Uso de objetos de solicitud ASP ASP tiene principalmente cinco objetos incorporados: servidor, solicitud, respuesta, aplicación y sesión. Ahora expliquemos dando ejemplos. Primero es el objeto de respuesta más utilizado. Ejemplo 1 Usando la respuesta a los documentos HTML de salida en las páginas web Puede ingresar la generación anterior en FrontPage Editor, o en tableros de escritura, blocs y otros escritores.