Vi alguns amigos dizendo que o capítulo anterior era desnecessário, e é verdade, quando penso nisso, originalmente não pretendia falar sobre esses princípios básicos, mas não houve restrição na escrita, então simplesmente passei para o básico. conhecimento. A partir desta seção, vou apresentar algumas das três principais classes gerais em ASP. Elas são executadas na arquitetura de três camadas que projetei. Elas são uma extensão da sintaxe ASP e podem melhorar a eficiência do processamento de muitos detalhes. . Eles podem ser considerados uma espécie de estrutura.
Esta seção apresenta a classe de tratamento de erros. O nome da classe é Con_Error. Ele é inicializado no início da página de código. O nome da instância é e.add usa o objeto instanciado desta classe de erro para operar.
Introdução ao método:
e.Add(ByVal vErrorMessage) registra um erro e define e.Error = true Quando um erro é encontrado quando o programa verifica a validade do nome de usuário, etc., este método é chamado e uma mensagem de erro é registrada.
Por exemplo, se o usuário tiver uma senha incorreta ao efetuar login, chame e.add (sua conta ou senha está incorreta. Neste momento, um erro é registrado no objeto de erro e, e o atributo do objeto de erro e. Erro = verdadeiro. Nas operações subsequentes, você pode usar esta propriedade do objeto de erro para fazer um julgamento.
Por exemplo:
Quando ocorre um erro, uma pequena janela aparecerá para avisar o erro e retornar à página anterior.
se e.Erro então
e.Alert_Back Faça login novamente! 'A função Alert_Back será introduzida mais tarde.
terminar se
e.Alert_Back(ByVal vMessage) usa Javascript para abrir uma caixa de prompt de erro e exibe uma lista de todos os erros atuais. O vMessage em Alert_Back(vMessage) é exibido na última linha para alertar o usuário sobre as etapas a serem executadas após ver isso. mensagem de erro. E volte para a página anterior. Poste o código deste método para que todos possam entendê-lo melhor:
Sub Alerta_Back público (ByVal vMessage)
strJSMessage = JSMessage & vMessage 'JSMessage é usado para armazenar a lista de erros no objeto e, e cada erro é separado por /n.
%>
<linguagem de script=javascript>
<!--//
alert(<%=strJSMessage %>); 'Abre uma caixa de erro.
history.back(); 'Voltar para a página anterior
//-->
</script>
<%
response.end 'Observe que a saída deve ser interrompida aqui para evitar erros enquanto o programa continua em execução.
Finalizar sub
O método e.Alert_Back estende vários métodos com efeitos semelhantes, que são apresentados abaixo.
e.Alert(ByVal vMessage) apenas exibe uma caixa de prompt de erro, não retorna à página anterior e não interrompe a execução do programa.
e.Alert_Close(ByVal vMessage) exibe uma caixa de prompt de erro. Quando o usuário clica em OK, feche a janela atual.
e.OK_Go(ByVal vMessage,ByVal vURL) exibe uma caixa de prompt de mensagem. Quando o usuário clica em OK, ele vai para a página vURL.
e.Go(ByVal vURL) Ir diretamente para a página vURL
Todos deveriam estar familiarizados com as funções dos métodos acima, mas na verdade eles não estão limitados ao tratamento de erros.
e.Clear limpa as informações de erro registradas no objeto de erro, e.Error = false
Como o objeto e é um objeto global, ele pode ser chamado em muitos processos. Quando você só precisa contar erros em um determinado módulo, pode chamar esse método no início para limpar os erros em e.
A seguir estão os pacotes para Response.Write, apenas pela conveniência e rapidez de uso.
e.Debug (ByVal vMessage) gera informações de depuração Quando o programa for concluído, haverá muitos erros na saída de informações de depuração usando Response.write. informações de depuração de saída. Quando o programa for concluído, você só precisa pesquisar e.Debug para encontrar a localização de todas as informações de erro de depuração.
ew(ByVal vMessage) gera informações. É apenas um wrapper simples de Response.write. Não se sabe o quanto é mais conveniente inserir ew no programa do que inserir Response.write, e é sempre fácil cometer erros. .
e.BR gera um caractere de nova linha, que é equivalente a resposta.Write <BR />
Os quatro seguintes são pacotes para Response.End. São apenas vários métodos com as mesmas funções definidas de acordo com os hábitos operacionais:
e.Pausa == Resposta.End
eP==Resposta.Fim
e.Parar == Resposta.End
e.End == Resposta.End
Existe também um atributo e.Message, que gera uma lista de todos os erros no objeto e.
Consulte o código para obter detalhes específicos de implementação.
Copie o código do código da seguinte forma:
ClassCon_Error
Erro Privado
mensagem privada
strJSMessage privado
Subclasse privada_initialize()
blnErro = falso
strMensagem =
Finalizar sub
Subclasse Privada_Terminate()
Finalizar sub
' ================================================ =================================
' Propriedade
' ================================================ =================================
'Mensagem:
Propriedade pública Let Message (valor ByVal)
strMensagem = valor
Fim da propriedade
Propriedade pública obter mensagem()
Mensagem = strMensagem
Fim da propriedade
'Número do erro
Propriedade pública GetError()
Erro = blnError
Fim da propriedade
'JSMessage: mostra na caixa de mensagem
Propriedade privada GetJSMessage()
strJSMessage = Substituir(strMessage, <br>, /n)
strJSMessage = Substituir(strJSMessage, vbCrLf,)
JSMessage = strJSMessage
Fim da propriedade
' ================================================ =================================
'Método
' ================================================ =================================
'Adicionar: adiciona uma mensagem de erro
Subadição pública (ByVal vMessage)
blnErro = verdadeiro
strMessage = strMessage & vMessage & <br>
Finalizar sub
Sublimpeza pública
blnErro = falso
strMensagem =
Finalizar sub
'Alerta
Sub alerta público (ByVal vMessage)
strJSMessage = JSMessage & vMessage
%>
<linguagem de script=javascript>
<!--//
alerta(<%=strJSMessage %>);
//-->
</script>
<%
Finalizar sub
' Alert_Back : alerta e volta
Sub Alerta_Back público (ByVal vMessage)
strJSMessage = JSMessage & vMessage
%>
<linguagem de script=javascript>
<!--//
alerta(<%=strJSMessage %>);
história.back();
//-->
</script>
<%
resposta.fim
Finalizar sub
'Alert_Close: alerta e fecha
Sub Alerta_Close público (ByVal vMessage)
strJSMessage = JSMessage & vMessage
%>
<linguagem de script=javascript>
<!--//
alerta(<%=strJSMessage %>);
janela.opener = null;
janela.close();
//-->
</script>
<%
resposta.fim
Finalizar sub
'************************************************
'Debug: response.write, use-o para excluir a mensagem de depuração facilmente, basta pesquisar e.Debug nos arquivos
'************************************************
Sub público OK_Go(ByVal vMessage,ByVal vURL)
strJSMessage = JSMessage & vMessage
%>
<linguagem de script=javascript>
<!--//
alerta(<%=strJSMessage %>);
localização.href = '<%=vURL %>';
//-->
</script>
<%
resposta.fim
Finalizar sub
Sub Go público (ByVal vURL)
resposta.Redirect vURL
resposta.fim
Finalizar sub
'************************************************
'Debug: response.write, use-o para excluir a mensagem de depuração facilmente, basta pesquisar e.Debug nos arquivos
'************************************************
Subdepuração pública (ByVal vMessage)
resposta.Write vMessage
resposta.flush
Finalizar sub
'****** W: escrever
Sub público W (ByVal vMessage)
resposta.Write vMessage
Finalizar sub
'****** BR: escreva <br>
Sub-br público
resposta.Escrever <BR />
Finalizar sub
'************************************************
'Pausa: resposta.end, marque as informações de depuração claramente
'************************************************
Subpausa pública
resposta.fim
Finalizar sub
Sub P público
resposta.fim
Finalizar sub
Sub público [Parar]
resposta.fim
Finalizar sub
Sub público [fim]
resposta.fim
Finalizar sub
Fim da aula