Recomendado: algunos códigos ASP que valen la pena recopilar Algunos códigos ASP que valen la pena recopilar algunos códigos ASP que vale la pena recopilar 1. OnContextMenu = Window.event.returnValue = False bloqueará completamente el botón derecho de la tabla del mouse Tabla Border OnContextMenu = return (False) Tdno/Table se puede usar para la Tabla 2. Body OnSelectStart = return False Cancelar False Cancelar FALSE
Para poder usarlos correctamente, deben colocarse en una aplicación virtual en el servidor y el archivo Global.asa proporcionado debe colocarse en el directorio raíz de la aplicación. La forma más fácil es poner el archivo global.asa en el directorio raíz del sitio web predeterminado (por defecto, c:/inetPub/wwwroot).
Cambiar el nombre de cualquier archivo Global.asa existente es una buena manera de restaurar el archivo más adelante.
1. Muestre el contenido de la colección de aplicaciones
El objeto ASPCounter es un miembro de la colección StaticObjects (definida por el elemento <S Object>), pero el resto (instificado por el servidor.CreateObject) son miembros de la colección de contenido.
Puede ver los valores colocados en estas colecciones utilizando la página web de Ejemplo Global.asa, que se ha visto antes:
El siguiente es el contenido citado: ＜!- Declarar instancia del componente Aspcounter con alcance a nivel de aplicación //-＞ ＜ ID de objeto = ASPCounter Runat = Server Scope = Applicatoin Progid = mswc.counters ＞ ＜/objeto ＞ ... ... ＜ Language de script = VBScript runat = servidor ＞ Sub Application_onStart () 'Cree una instancia de una conexión ADO con el alcance de nivel de aplicación Establecer aplicación (AdoConnection) = Server.CreateObject (ADODB.Connection) Dim VarArray (3) 'Crear una matriz de variantes y llénelo vararray (0) = esto es un vararray (1) = matriz de variantes vararray (2) = almacenado en el vararray (3) = objeto de aplicación Aplicación (Variant_Array) = VarArray 'almacéntelo en la aplicación THD Aplicación (start_time) = cstr (ahora) 'Almacene la fecha/hora como una cadena Aplicación (visit_count) = 0 'Establecer la variable de contador a cero Final ... ... ＜/script ＞ |
(1) Código de recopilación de contenido de transverso
Para atravesar la colección de contenidos, A para cada ... Se puede usar la siguiente estructura. Cada elemento en el conjunto puede ser una variable de tipo de variante simple, una matriz de variante o una referencia a un objeto. Debido a que se requiere un procesamiento diferente para cada tipo de valor, cada tipo debe verificarse para determinar su tipo.
Este trabajo se puede hacer utilizando la función Vartype en VBScript. Aquí se utilizan funciones de isobject e isArray: en su lugar:
El siguiente es el contenido citado: Para cada objitem en la aplicación. If isObject (Application.Contents (objitem)) entonces Respuesta. Referencia de objeto de escritura: '& objitem &' Elseif isArray (Application.Contents (objitem)) entonces Response.Rray de escritura: '& Objitem &' Los contenidos son: Vararray = application.contents (objitem) 'Nota: lo siguiente solo funciona con una matriz unidimensional Para intloop = 0 a Ubound (VarArray) Response.write índice (& intloop &) = & _ Vararray (intloop) y Próximo Demás Response.Write Variable: '& Objitem &' = _ & Application.contents (objitem) y Final si Próximo |
Tenga en cuenta cómo el programa recupera la matriz del objeto de aplicación. Asignarlo a una variable local, utilizando la siguiente declaración:
vararray = application.contents (objitem)
Use la función UBound para averiguar el tamaño de la matriz (número de elementos), y este valor se puede usar como la condición de terminación del recorrido:
Para intloop = 0 Ubound (VarArray)
Este ejemplo es una matriz unidimensional y solo mostrará el contenido de dicha matriz. El código se puede editar según sea necesario para manejar matrices multidimensionales, por ejemplo:
El siguiente es el contenido citado: Para intloop = 0 a Ubound (VarArray) IntnumberOfDimensions = Ubound (VarArray, 1) Para intdimension = 0 a intnumberofdimensions Response.write índice (& intloop &) = _ & VarArray (intloop, intdimension) Próximo Respuesta. Escribe Próximo |
(2) Código para atravesar la colección StaticObjects
La colección StaticObjects contiene todas las referencias de objetos declaradas utilizando elementos <panes> en Global.asa. Debido a que cada entrada es una variable de objeto, puede usar un código más simple para atravesar esta matriz. ENCONTRARÁN EL Nombre del objeto (definición original en el atributo de identificación):
El siguiente es el contenido citado: Para cada objitem en la aplicación. StaticObjects If isObject (Application.StaticObjects (objitem)) entonces Response.Write ＜ Object ＞ Elemento: id = '& objitem &' Final si Próximo |
Compartir: sintaxis común de 11 bases de datos en programación ASP Este artículo presenta principalmente la sintaxis común para las conexiones ASP a 11 bases de datos. Para obtener más detalles, consulte el siguiente: 1. Método de conexión de DSN de acceso a la base de datos de acceso: lo siguiente es el contenido referenciado: set Adocon = server.CreateObject (ADODB.Connection) Adoconn.OpEdenRiver = {Microsoft Access Driver (*. Mdb)}; Dbq = _ servidor.mappath
2 páginas en el total de la página 12 Página siguiente