doface (trabalho original)
Ao falar sobre ASP, muitas pessoas pensam que é uma coleção de scripts HTML, alguns códigos entre <% e%> e alguns scripts JAVASCRIPT. Esse código e, em seguida, adiciona todos os tipos de comentários em diferentes formatos. , parece uma palavra: caos. Não importa se outros podem entendê-lo ou não, desde que ele atinja seu próprio propósito, porque o código ASP também é um script, é impossível para os clientes não verem o conteúdo. Muitas vezes está incluído em uma parte. do negócio na DLL, mas ainda sinto que o código ASP é o código menos valioso. Ninguém volta para comprá-lo. Você sempre pode obter o estilo único de coisas que outros trabalharam duro para escrever, visualizando o código-fonte. código de sites de outras pessoas. Esses motivos fizeram com que o ASP se desenvolvesse em um código fácil de escrever e esquecido rapidamente. A legibilidade e a manutenção também são as piores entre as várias linguagens.
Na verdade, o código ASP também pode ser orientado a objetos e modular como outras linguagens. Muitas páginas podem ser integradas e encapsuladas em uma classe, e diferentes métodos na classe podem ser usados para exibir páginas diferentes. sob a mesma lógica de negócios com A lógica é encapsulada em uma classe e implementada usando métodos diferentes. Dito isto, talvez as ideias de todos estejam confusas
.
'****************************************
'* Nome da classe: clsWebWorkFlowLog
'* Função :Classe de rastreamento de log de fluxo de trabalho
'* Histórico:
'* Criado por: doface
'* Data: 2003/10/24 Ver 1.0
'* Mudanças:
'* Data:
'*************** * ***********************
class clsWebWorkFlowLog
'Define propriedades públicas para armazenar objetos Connection
ActiveConnection pública
resposta privada
'=======================================
'= nome do processo: principal
'= Parâmetros:
'= Função: função de chamada principal
'= executa diferentes operações com base em diferentes parâmetros de ação
'= valor de retorno:
'=======================================
subprincipal()
selecione o caso Solicitação("agir")
caso "lista"
lista()
caso outro
lista()
final selecionar
final sub
'=======================================
'= nome do processo: lista
'= Parâmetros:
'= Função: Exibir tela da lista
'= valor de retorno:
'=======================================
sublista()
ou
set oRs = ActiveConnection.execute("select *,(selecione o nome de wf_config onde id=w.wf_id) como wfname de wf_log w onde step_id=1 e user_id=" & session("usr")("uid"))
'(selecione * de wf_log onde id em (selecione max(id),wf_id,tab_id,rec_id do grupo wf_log por wf_id,tab_id,rec_id onde wf_id= e tab_id=))
%> <p align="left"><img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32"><font color="# FF0000"><b>Itens de tarefas:</b></font></p>
<center>
<table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25">
<tr>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Nome do processo</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Requerente</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Tempo de aplicação</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Tempo de conclusão</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Status</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Operação</font></td>
</tr><%
faça enquanto não oRs.eof
dim maxID,Próximo_id
se glbFunc.getMaxID(oRs("id").valor,ActiveConnection,maxID,Next_id) então
%><tr>
<td bgColor="#ffffff" height="19"><%=oRs("wfname")%></a></td>
<td bgColor="#ffffff" height="19"><%=session("usr")("nome")%> </td>
<td bgColor="#ffffff" height="19"><%=oRs("exetime")%> </td>
<td bgColor="#ffffff" height="19"> </td>
<td bgColor="#ffffff" height="19"><%=glbFunc.getCurZT(oRs("id").value,ActiveConnection)%></td>
<td bgColor="#ffffff" height="19"><p align="left"><a href="../PubExeTab/PubExeTab.asp?act=view&tab_id=<%=oRs("tab_id")% >&id=<%=oRs("rec_id")%>"><img src="../images/action/view.gif" border="0" alt="Detalhes" WIDTH="16" HEIGHT=" 16"></a> <a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>', verdadeiro,falso,falso,falso,verdadeiro);"><img src="../images/action/lcchuli.gif" border="0" alt="Rastreamento de processo" WIDTH="16" HEIGHT="16" </a></p></td><%
terminar se
%></tr><%
ouRs.movenext
laço
%></table>
</center>
<%
final sub
aula final
'******************************************
'* Fim da aula
'******************************************
'******************************************
'Página ASP inicia
'*************************************
'Cabeçalho HTML padrão de saída
glbFunc.writeHEAD
dim oWebWorkFlowLog
definir oWebWorkFlowLog = novo clsWebWorkFlowLog
definir oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnection
oWebWorkFlowLog.main
glbFunc.writeTail()
%>
Mais métodos podem ser adicionados para que esta classe possa completar as funções de vários arquivos ASP anteriores. Ao acessar, você pode distingui-lo adicionando parâmetros (qual função deseja acessar) após .ASP.