Recomendado: alguns códigos ASP que valem a pena coletar Alguns códigos ASP que valem a pena coletar alguns códigos ASP que vale a pena coletar 1. ONCONTEXTMENU = Window.Event.ReturnValue = Falso bloqueará completamente a borda da tabela do botão do mouse à direita oContextMenu = return (false) TDNO/TABEL
Para poder usar corretamente, eles devem ser colocados em um aplicativo virtual no servidor e o arquivo Global.ASA fornecido deve ser colocado no diretório raiz do aplicativo. A maneira mais fácil é colocar o arquivo global.ASA no diretório raiz do site padrão (por padrão, c:/inetpub/wwwroot).
Renomeie qualquer arquivo global.ASA existente é uma boa maneira de restaurar o arquivo posteriormente.
1. Exiba o conteúdo da coleção de aplicativos
O objeto AspCounter é um membro da coleção StaticObjects (definido pelo elemento <ject>), mas o restante (instificado pelo servidor.CreateObject) são membros da coleta de conteúdo.
Você pode ver os valores colocados nessas coleções usando a página da web global.asa exemplo, que já foi visto antes:
A seguir, o conteúdo citado: ＜!- Declare a instância do componente aspcounter com Escopo no nível do aplicativo //-＞ ＜ ID do objeto = AspCounter Runat = Scope do servidor = Applicatoin Progid = mswc.counters ＞ ＜/objeto ＞ ... ... ＜ Idioma do script = VBScript runat = servidor ＞ Subpplication_onstart () 'Crie uma instância de uma conexão ADO com o escopo no nível do aplicativo Definir aplicativo (adoconnection) = server.createObject (adodb.connection) Dim VarArray (3) 'Crie uma matriz variante e preencha -a vararray (0) = este é um vararray (1) = matriz variante vararray (2) = armazenado no vararray (3) = objeto de aplicação APLICAÇÃO (VARIANT_ARRAY) = VarArray 'Armazene -o no aplicativo THD Aplicativo (start_time) = cstr (agora) 'armazenar a data/hora como uma string Aplicação (visit_count) = 0 'defina o contador variável para zero Final sub ... ... ＜/script ＞ |
(1) Código para atravessar a coleção de conteúdo
Para atravessar a coleção de conteúdo, a cada ... a próxima estrutura pode ser usada. Cada item no conjunto pode ser uma variável de tipo de variante simples, uma matriz variante ou uma referência a um objeto. Como o processamento diferente é necessário para cada tipo de valor, cada tipo deve ser verificado para determinar seu tipo.
Este trabalho pode ser feito usando a função Vartype no VBScript. Aqui, as funções isobject e isarray são usadas:
A seguir, o conteúdo citado: Para cada objitem no aplicativo.Contents Se Isobject (Application.Contents (Objitem)) então Referência de objeto Response.Write: '& Objitem &' Elseif isarray (application.contents (objitem)) então Response.Write Array: '& Objitem &' Conteúdo é: Vararray = Application.Contents (Objitem) 'Nota: o seguinte funciona apenas com uma matriz unidimensional Para Intloop = 0 para Ubound (VarArray) Response.Write Index (& Intloop &) = & _ VarArray (Intloop) & Próximo Outro Variável de resposta.Write: '& objitem &' = _ & Application.Contents (Objitem) & Final se Próximo |
Observe como o programa recupera a matriz do objeto de aplicativo. Atribua -o a uma variável local, usando a seguinte declaração:
vararray = Application.Contents (Objitem)
Use a função ubound para descobrir o tamanho da matriz (número de elementos), e esse valor pode ser usado como a condição de terminação da travessia:
Para Intloop = 0 Ubound (VarArray)
Este exemplo é uma matriz unidimensional e exibirá apenas o conteúdo dessa matriz. O código pode ser editado conforme necessário para lidar com matrizes multidimensionais, por exemplo:
A seguir, o conteúdo citado: Para Intloop = 0 para Ubound (VarArray) Intnumberofdimensions = ubound (vararray, 1) Para intdimension = 0 para intnumberfDimensions Response.Write Index (& Intloop &) = _ & VarArray (Intloop, Intdimension) Próximo Response.Write Próximo |
(2) Código para atravessar a coleção StaticObjects
A coleção StaticObjects contém todas as referências de objeto declaradas usando elementos <ject> em global.asa. Como cada entrada é uma variável de objeto, você pode usar o código mais simples para atravessar essa matriz. Produziremos o nome do objeto (definição original no atributo ID):
A seguir, o conteúdo citado: Para cada objitem no Application.staticObjects Se Isobject (Application.staticObjects (Objitem)) então Response.Write ＜ Objeto ＞ Elemento: Id = '& Objitem &' Final se Próximo |
Compartilhar: Sintaxe comum de 11 bancos de dados na programação ASP Este artigo apresenta principalmente a sintaxe comum para conexões ASP em 11 bancos de dados. Para detalhes, consulte o seguinte: 1. Método de conexão sem acesso ao banco de dados de acesso: a seguir é o conteúdo referenciado: set adocon = server.createObject (adodb.connection) adoconn.opendriver = {Microsoft Access Driver (*. Mdb)}; Dbq = _ Server.mappath
2 páginas no total Página anterior 12 Próxima página