Série de entrada e domínio intermediário do componente Asp

Autor：Eve Cole Data da Última Atualização：2009-06-20 17:20:11

Eu escrevi sete tutoriais primários,

uma das séries de entrada intermediária e domínio dos componentes Asp

. Definitivamente, há algumas coisas básicas que precisam ser escritas. Aos poucos, complementarei

o conteúdo dos tutoriais intermediários:

Isso também pode ser o que todo mundo é. mais preocupados com: como: operação de banco de dados e empacotamento. Uso de objetos internos do Asp. Passarei muito tempo explicando essas partes. Esta parte exige que você seja mais proficiente no uso do ADO para operar o banco de dados e esteja familiarizado com os cinco principais objetos do ASP.

Vejamos algumas das informações que circulam online:
Como todos sabemos, o ASP possui cinco objetos internos: Resposta, Solicitação, Servidor, Sessão e Aplicativo. Na verdade, esses cinco objetos internos são os cinco componentes DLL ActiveX inicializados pelo console do IIS. cinco componentes para uso em ASP, é claro, também podemos referenciar diretamente esses componentes em nossa DLL ActiveX para implementar nossa programação, o que significa que podemos alcançar a função de acessar objetos integrados do ASP referenciando esses componentes em aplicativos VB.

Contanto que você instale um servidor WEB com PWS4 ou IIS4 ou superior, você terá uma biblioteca de objetos chamada "Microsoft Active Server Pages Object". Podemos fazer referência a esta biblioteca de objetos no aplicativo ActiveX DLL do VB. obtivemos um objeto (classe): ScriptingContext, que também é o objeto central de todo o nosso artigo. O relacionamento dentro da biblioteca de objetos é o seguinte:

Membro da classe da biblioteca de objetos

ASPTypeLibrary ScriptingContext Aplicativo

Solicitação

Resposta

Sessão

Servidor

Através do diagrama de relacionamento acima, podemos entender facilmente a classe ScriptingContent.

Vamos dar uma olhada em um exemplo específico:

abra o vb6 e crie um novo projeto Activex Dll. Altere o nome do projeto para fCom e o nome da classe para fZ1
Referência à biblioteca de objetos "Microsoft Active Server Pages Object".
Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

'Este evento é acionado quando o componente é destruído
Sub OnEndPage público()
myResponse.Write "O componente ActiveX DLL foi destruído!"
'Destrua o objeto
Definir minhaResposta = Nada
Definir myRequest = Nada
Definir meuServidor = Nada
Definir myApplication = Nada
Definir minhaSessão = Nada
End Sub

'Definir um método de componente próprio
Sub público HelloWorld()
myResponse.Write "Isso foi escrito usando objetos integrados asp"
Finalizar sub

Teste o visual interdev6.0 aberto e gere um arquivo asp

código do programa
<%@Idioma=VBScript%>
<HTML>
<CORPO>
<%
definir obj=servidor.CreateObject("fCom.fZ1")
chame obj.HelloWorld()
%>
</BODY>
</HTML>

Configure o diretório virtual e execute este arquivo asp no IE. Os resultados são os seguintes:
O componente ActiveX DLL foi criado! Este componente ActiveX DLL escrito com objetos integrados asp foi destruído.

Entrada intermediária e série de domínio do componente Asp

. Parte 2 Vamos primeiro examinar o objeto Application Anteriormente, o objeto Application era frequentemente usado para contadores. e bancos de dados. Para a string de conexão, tomamos o contador como exemplo:
Vejamos primeiro o arquivo global.asa. Isso é relativamente simples.

código do programa
<linguagem de script =vbscript runat=servidor>
subApplication_onstart
Aplicação("Contador")=0
final sub
</script>

Em seguida,

abra o vb6 e crie um novo projeto Activex Dll. O nome do projeto é alterado para fCom e o nome da classe é alterado para fZ2
Referência à biblioteca de objetos "Microsoft Active Server Pages Object".
Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

código do programa
Opção Explícita
'Declaração de objeto
Dim myResponse como resposta
Escurecer myRequest como solicitação
Dim myApplication como aplicativo
Dim myServer como servidor
Dim mySession como sessão
'Este evento será acionado quando o componente for criado
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Executa instanciação do objeto
Definir myResponse = myScriptingContent.Response
Definir myRequest = myScriptingContent.Request
Definir meuServidor = meuScriptingContent.Server
Definir myApplication = myScriptingContent.Application
Definir minhaSessão = myScriptingContent.Session
Finalizar sub
'Este evento é acionado quando o componente é destruído
Sub OnEndPage público()
'Destrua o objeto
Definir minhaResposta = Nada
Definir myRequest = Nada
Definir meuServidor = Nada
Definir myApplication = Nada
Definir minhaSessão = Nada
Finalizar sub
'Você pode ver que o método de escrita é o mesmo depois de mover o que foi escrito em asp para vb.
Sub ShowCounter público()
Dim intcounter enquanto
meuApplication.Lock
intcounter = minhaAplicação("contador")
intcounter = intcounter + 1
minhaAplicação("contador") = intcontador
meuApplication.UnLock
myResponse.Write CStr(intcounter)
Finalizar sub

Teste

o visual interdev6.0 aberto e gere um arquivo asp

código do programa
<%@Idioma=VBScript%>
<HTML>
<CORPO>
<%
objeto escuro
definir obj=servidor.CreateObject("fCom.fZ2")
obj.ShowCounter()
%>
</BODY>
</HTML>

Depois de configurar o diretório virtual, você precisa colocar o arquivo global.asa no diretório raiz, executar este arquivo asp no IE, atualizar a página e você verá um número alterado.
É isso para o uso do aplicativo.

Comparado com

o nível de entrada intermediário do componente Asp e a série de domínio três,

Session, é muito mais simples

abrir vb6 e criar um novo projeto Activex Dll. Altere o nome do projeto para fCom e o nome da classe para fZ3
Referência à biblioteca de objetos "Microsoft Active Server Pages Object".
Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

'Este evento é acionado quando o componente é destruído
Sub OnEndPage público()
'Destrua o objeto
Definir minhaResposta = Nada
Definir myRequest = Nada
Definir meuServidor = Nada
Definir myApplication = Nada
Definir minhaSessão = Nada
Finalizar sub
'Você pode ver que o método de escrita é o mesmo depois de mover o que foi escrito em asp para vb.
'Obtém todas as variáveis e valores da sessão
Sub ShowSession pública()
'Você pode definir um tempo limite de 20 minutos
minhaSessão.Timeout = 20
Escurecer meu item
'Obter todas as sessões
Para cada myitem em mySession.Contents
myResponse.Write meuitem & ": " & mySession.Contents(meuitem)
minhaResposta.Write "<br>"
Próximo
Finalizar sub

Teste

o visual aberto interdev6.0, gere um arquivo asp para configurar o diretório virtual, execute este arquivo asp no IE, você pode ver

o nome: tornado
idade: 26
Especialidade:

Isso é tudo para o uso do componente Session. Outros usos de Session são semelhantes.

Entrada intermediária do componente Asp e série de domínio quatro,

aprendemos a Solicitar
Para ver como obter o conteúdo enviado pela página no componente

, abra o vb6 e crie um novo projeto Activex Dll. O nome do projeto foi alterado para fCom e o nome da classe foi alterado para fZ4
Referência à biblioteca de objetos "Microsoft Active Server Pages Object".
Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

'Você pode ver que o método de escrita é o mesmo depois de mover o que foi escrito em asp para vb.
Sub ShowRequest público()
Escurecer meu item
'Postagem
Para cada myitem em myRequest.Form
myResponse.Write meuitem & ": " & myRequest.Form(meuitem)
minhaResposta.Write "<br>"
Próximo
'Obter método
Para cada myitem em myRequest.QueryString
myResponse.Write meuitem & ": " & myRequest.QueryString(meuitem)
minhaResposta.Write "<br>"
Próximo
'Mensagem única
myResponse.Write "Uma das mensagens é " & ": " & myRequest("username")
minhaResposta.Write "<br>"
Finalizar sub

Teste

o visual aberto interdev6.0 e gere um

código de programa

de arquivo fz41.asp

<%@Idioma=VBScript%>
<HTML>
<CORPO>
<form action="fz4_result.asp" método="post">
<INPUT id=text1 nome=nome de usuário>
<INPUT id=text2 nome=idade>
<INPUT id=submit1 type=submit value=Submit name=submit>
</form>
</BODY>
</HTML>

Você também precisa gerar um

código de programa

de arquivo fz4_result.asp enviado

<%@Idioma=VBScript%>
<HTML>
<CORPO>
<%
objeto escuro
definir obj=servidor.CreateObject("fCom.fZ4")
chamar obj.ShowRequest
%>
</BODY>
</HTML>

Além disso, também precisamos dar uma olhada no método de envio, por isso precisamos de um

código de programa

de arquivo fz42.asp

<%@Idioma=VBScript%>
<HTML>
<CORPO>
<form action="fz4_result.asp?username='"& nome de usuário &"'& idade='"& idade &"'" método="get" id=form1 nome=form1>
<INPUT id=text1 nome=nome de usuário>
<INPUT id=text2 nome=idade>
<INPUT id=submit1 type=submit value=Submit name=submit>
</form>
</BODY>
</HTML>

Configure o diretório virtual e execute o arquivo fc41.asp no IE. Após inserir o conteúdo, clique no botão e você verá

o nome de usuário: Tornado.
idade: 26
Enviar: Enviar
Uma das mensagens é: Tornado

Vamos executar o arquivo fc42.asp no IE. Após inserir o conteúdo, clique no botão e você verá

o nome de usuário: Tornado.
idade: 26
Enviar: Enviar
Uma das mensagens é: Tornado

e a barra de endereço fica
http://yang/xml/fz4_result.asp?username=%C1%FA%BE%ED%B7%E7&age=26&%CC%E1%BD%BB=Enviar

Continuação

Série intermediária de entrada e domínio do componente Asp Parte 5

Vamos dar uma olhada no objeto Response. Na verdade, usamos o método Write deste objeto em tutoriais anteriores.

Aqui usamos o objeto Response para definir cookies.

Abra o vb6 e crie um novo projeto Activex Dll. Altere o nome do projeto para fCom e o nome da classe para fZ5
Referência à biblioteca de objetos "Microsoft Active Server Pages Object".
Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

'Este evento será acionado quando o componente for criado
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Executa instanciação do objeto
Definir myResponse = myScriptingContent.Response
Definir myRequest = myScriptingContent.Request
Definir meuServidor = meuScriptingContent.Server
Definir myApplication = myScriptingContent.Application
Definir minhaSessão = myScriptingContent.Session
End Sub

'Definir cookies da página e obtê-los do componente
Sub público GetCookie()
Escurecer meu item
'Todas as informações
Para cada myitem em myRequest.Cookies
myResponse.Write meuitem & ": " & myRequest.Cookies.Item(meuitem)
minhaResposta.Write "<br>"
Próximo
'Mensagem única
myResponse.Write "onde o nome de usuário é " & ": " & myRequest.Cookies("nomedeusuário")
minhaResposta.Write "<br>"
myResponse.Write "onde está a idade do usuário" & ": " & myRequest.Cookies("idade")
minhaResposta.Write "<br>"
End Sub

'Defina cookies no componente e coloque-os na página
Subconjunto públicoCookie()
myResponse.Cookies("com_username") = "Tornado"
minhaResponse.Cookies("com_age") = 26
minhaResposta.Expires = #13/09/2004#
Finalizar sub

Compile-o em um arquivo DLL e o sistema irá registrá-lo automaticamente.
Caso contrário, registre Regsvr32 manualmente f:testfcom.dll

para testar

o visual interdev6.0 aberto, gere um arquivo fz5.asp

e configure o diretório virtual, execute o arquivo fc5.asp no IE, você pode ver

o tornado
26
idade: 26
nome de usuário: tornado
com_idade: 26
com_username: Tornado onde o nome do usuário é: Tornado onde a idade do usuário é: 26

Continuação Intermediária

Introdução e Domínio dos Componentes Asp Série No. 6

Como um objeto embutido do Asp, finalmente aprendemos sobre o objeto Servidor

. objeto usa mais codificação HTML e redirecionamento e transmissão de páginas da web.

Abra o vb6 e crie um novo projeto Activex Dll. O nome do projeto foi alterado para fCom e o nome da classe foi alterado para fZ6
Referência à biblioteca de objetos "Microsoft Active Server Pages Object".
Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

Public Sub ShowHtml (ByVal strHtml como string)
minhaResponse.Write meuServidor.HTMLEncode(strHtml)
End Sub

Public Sub ShowUrl(ByVal strUrl As String)
minhaResponse.Write meuServer.URLEncode(strUrl)
End Sub

Público Sub ExecuteUrl()
meuServer.Transfer "fz5.asp"
Finalizar sub

Compile-o em um arquivo DLL e o sistema irá registrá-lo automaticamente.

Caso contrário, registre manualmente Regsvr32 f:testfcom.dll

para testar

interdev6.0

visual aberto, gere um arquivo fz6.asp

e configure o diretório virtual Execute o arquivo fc6.asp no IE para vê-lo

C1 %FA%BE%ED%B7%E7&age=26

Você pode usar o IE para visualizar o arquivo de origem para visualizar a codificação HTML.

Esta é a introdução temporária dos objetos integrados do ASP e continuaremos a estudá-los mais tarde.

Você também pode fazer inferências a partir de um exemplo e aprender propriedades e métodos que não foram introduzidos.

A entrada intermediária do componente Asp e a série de domínio sete

iniciam as operações do banco de dados.

Embalagem de componentes comuns

1. Encapsule as informações de conexão do banco de dados.

1> Retorne diretamente a string de conexão do banco de dados, como

o código do programa

no componente

Fonte de dados de função pública() como variante
fonte de dados = "driver={servidor sql};servidor=yang;uid=sa;pwd=; banco de dados=northwind"
Função final

asp chamando

o código do programa
definir obj=server.CreateObject("webdb.getinfo")

As deficiências de

oconn=obj.datasource()

são óbvias. No arquivo asp, response.write oconn pode exibir diretamente a string de conexão do banco de dados, o que não tem o efeito esperado.

2> Retornar

o código do programa

do objeto adodb.connection

Função pública GetConn() como ADODB.Connection
Definir conexão = Novo ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persistir informações de segurança=Falso;ID do usuário=sa;senha=;Catálogo inicial=Northwind;Fonte de dados=yang"
conexão aberta
Definir GetConn = conexão
Função final

Asp chamando

o código do programa
Escurecer Consulta de Dados
Definir DataQuery=Server.CreateObject("WebDbtest.GetInfomation")
definir rs=server.createobject("adodb.recordset")
sql="selecionar * dos funcionários"
Rs.open sql,DataQuery.getconn,1,3
resposta.Escreva Rs("Sobrenome")
Response.write DataQuery.getconn.ConnectionString
set Rs=nothing

parece bom, mas Response.write DataQuery.getconn.ConnectionString ainda exibirá a string de conexão do banco de dados.

2. Para encapsular componentes em um conjunto de registros, você pode ler o que escrevi há algum tempo : http://blog.csdn.net/online/archive/2003/12/11/7764.aspx
O ruim desse código é que a conexão do banco de dados é julgada na página. Depois que a conexão é bem-sucedida, os dados são acessados. Pessoalmente, acho que a melhor maneira é

encapsulá-los em um conjunto de registros e conectá-los ao banco de dados. Método do componente Após a conclusão da operação, feche-o a

tempo e tente gerar o código HTML no componente para encapsular tudo. Tal como o seguinte método

em vez de encapsulamento parcial.

A série de entrada e domínio intermediário do componente Asp nº 8

tem estado bastante ocupada durante este período Haha, hoje daremos uma olhada em um exemplo completo de encapsulamento e paginação de dados

Open vb6 e criaremos um novo projeto Activex Dll. O nome do projeto foi alterado para fCom e o nome da classe foi alterado para fZ8
Referência a "Microsoft Active Server Pages Object", biblioteca de objetos "Microsoft Activex Data Object 2.7 Library".

Crie dois eventos de componente: OnStartPage e OnEndPage
Crie uma referência à classe ScriptingContent no evento OnStartPage.
Instancie a classe ScriptingContent.

O código é o seguinte:

código do programa
Opção Explícita
'**********************************************
'Autor: Tornado
'Função: Componente simples personalizável e totalmente encapsulado
'Hora: 01/01/2005
'**********************************************

'Declaração de objeto
Dim MyResponse como resposta
Dim MyRequest como solicitação
Dim myApplication como aplicativo
Dim myServer como servidor
Dim mySession As Session

'Variáveis privadas
mPageSize privado enquanto
MstrSql privado como string
'Este evento será acionado quando o componente for criado
Public Sub OnStartPage (myScriptingContent As ScriptingContext)
'Executa instanciação do objeto
Definir MyResponse = myScriptingContent.Response
Definir MyRequest = myScriptingContent.Request
Definir meuServidor = meuScriptingContent.Server
Definir myApplication = myScriptingContent.Application
Definir minhaSessão = myScriptingContent.Session
End Sub

'Este evento é acionado quando o componente é destruído
Sub OnEndPage público()
'Destrua o objeto
Definir MyResponse = Nada
Definir MyRequest = Nada
Definir meuServidor = Nada
Definir myApplication = Nada
Definir minhaSessão = Nada
End Sub

'Mostrar tabela
Função pública ShowTable()
Dim conn como novo ADODB.Connection
Dim rs como novo ADODB.Recordset
Dim i como inteiro
Dim j como inteiro
Dim intPage como inteiro
Dim intPageCount como inteiro
Dim strScriptName como string
Dim intPos como inteiro
Dim intFieldCount como inteiro

'Pegue o caminho
strScriptName = MyRequest.ServerVariables("Nome_Script")
intPos = InStrRev(strScriptName, "/")
Se intPos <> 0 Então
strScriptName = Mid(strScriptName, intPos + 1)
Terminar se
If IsEmpty(MyRequest("página")) Então
intPágina = 1
Outro
intPage = CInt(MyRequest("página"))
Terminar se
Em caso de erro, vá para errar
conn.Open "Provider=SQLOLEDB.1;Persistir informações de segurança=Falso;ID do usuário=sa;Catálogo inicial=Northwind;Fonte de dados=localhost"
rs.Open mstrSql, conn, adOpenStatic, adLockReadOnly
'Obtém o número de registros
intFieldCount = rs.Fields.Count
'Tabela de saída
MyResponse.Write "< borda da tabela = 1 células espaçamento = 0 cellpadding = 2>"
Se não rs.EOF então
rs.PageSize = mPageSize
rs.AbsolutePage = intPage
'Pegue o número da página
intPageCount = rs.PageCount
'Lidar com paginação
Se intPage < 1 Então intPage = 1
Se intPage > intPageCount Então intPage = intPageCount
'Cabeçalho de saída
MinhaResponse.Write "<tr>"
Para i = 0 Para intFieldCount - 1
MyResponse.Write "<th>" & rs(i).Nome & "</th>"
Próximo
MinhaResposta.Write "</tr>"
'Conteúdo de saída
Para i = 1 para mPageSize
Se rs.EOF Então
Sair para
Terminar se
MinhaResponse.Write "<tr>"
Para j = 0 Para intFieldCount - 1
MyResponse.Write "<td>" & rs.Fields(j).Value & "</td>"
Próximo
MinhaResposta.Write "</tr>"
rs.MoveNext
Próximo
'Paginação de saída
MinhaResponse.Write "<tr>"
Se intPage <> 1 Então
MyResponse.Write "<a href=" & strScriptName & "?page=1>[Primeira página]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage - 1 & " >[Página anterior]</a>"
Terminar se

Se intPage <> intPageCount Então
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage + 1 & ">[próxima página]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPageCount & ">[última página]</a>"
Terminar se

MyResponse.Write "Página:<FONT COLOR='Red'>" & intPage & "/ " & intPageCount & "</FONT>"
MinhaResposta.Write "</tr>"
Terminar se

MyResponse.Write "</table>"

'Liberar recursos
Se não rs não é nada então
Se rs.State = 1 Então
rs.Fechar
Terminar se
Setrs=Nada
Terminar se
Se não conn não é nada, então
Se conn.State = 1 Então
conexão.Fechar
Terminar se
Definir conexão = Nada
Terminar se

Erro

na função de saída

:
MyResponse.Write err.Número e err.Descrição
Se não rs não é nada então
Se rs.State = 1 Então
rs.Fechar
Terminar se
Setrs=Nada
Terminar se
Se não conn não é nada, então
Se conn.State = 1 Então
conexão.Fechar
Terminar se
Definir conexão = Nada
Terminar se
Função final
'Definir atributos
Propriedade pública Obtenha ShowPageSize() como variante
ShowPageSize = mPageSize
End Property

Propriedade pública Let ShowPageSize(ByVal vNewValue As Variant)
mPageSize = vNovoValor
End Property

Propriedade pública Obtenha strSQL() como variante
strSQL=mstrSql
End Property

Propriedade pública Let strSQL(ByVal vNewValue As Variant)
mstrSql = vNovoValor
Fim da propriedade

Compile-o em um arquivo DLL e o sistema irá registrá-lo automaticamente.
Caso contrário, registre manualmente Regsvr32 f:testfcom.dll

para testar

o interdev6.0 visual aberto e gerar um arquivo fz8.asp

código do programa
<%@Idioma=VBScript%>
<HTML>
<CORPO>
<%
objeto escuro
definir obj=servidor.CreateObject("fcom.fz8")
'O número de registros exibidos em cada página
obj.ShowPageSize=10
'Instrução SQL exibida
obj.strSQL = "selecione ID do cliente, nome da empresa, nome do contato, título do contato, endereço dos clientes"
obj.ShowTable()
%>
</BODY>
</HTML>