doface (trabajo original)
Cuando se habla de ASP, mucha gente piensa que es una colección de scripts HTML, algunos códigos encerrados en <% y%>, y algunos scripts JAVASCRIPT, y luego agregan todo tipo de comentarios en diferentes formatos. , parece una palabra: caos. No importa si otros pueden entenderlo o no, siempre que pueda lograr su propio propósito, debido a que el código ASP también es un script, es imposible que los clientes no vean el contenido. del negocio en la DLL, pero todavía siento que el código ASP es el código menos valioso. Nadie vuelve a comprarlo. Siempre puede obtener el estilo único de las cosas que otros han trabajado duro para escribir al ver el código fuente. código de sitios web de otras personas. Estas razones han hecho que ASP se convierta en un código fácil de escribir y olvidar rápidamente. La legibilidad y la mantenibilidad también son las peores entre varios lenguajes.
De hecho, el código ASP también puede ser modular y orientado a objetos como otros lenguajes. Muchas páginas se pueden integrar y encapsular en una clase, y se pueden usar diferentes métodos en la clase para mostrar diferentes páginas. bajo la misma lógica de negocios con La lógica se encapsula en una clase y se implementa utilizando diferentes métodos. Dicho todo esto, quizás las ideas de todos estén confundidas. Déjame darte algunos ejemplos:
<%.
'****************************************
'* Nombre de clase: clsWebWorkFlowLog
'* Función ：Clase de seguimiento de registro de flujo de trabajo
'* Historial:
'* Creado por: doface
'* Fecha: 2003/10/24 Ver 1.0
'* Cambios:
'* Fecha:
'*************** * ***********************
clase clsWebWorkFlowLog
'Definir propiedades públicas para almacenar objetos de conexión
conexión activa pública
respuesta privada
'==========================================
'= nombre del proceso: principal
'= Parámetros:
'= Función: función de llamada principal
'= realizar diferentes operaciones basadas en diferentes parámetros de acción
'= valor de retorno:
'==========================================
subprincipal()
seleccione caso Solicitud ("actuar")
caso "lista"
lista()
caso mas
lista()
finalizar seleccionar
sub final
'==========================================
'= nombre del proceso: lista
'= Parámetros:
'= Función: Mostrar pantalla de lista
'= valor de retorno:
'==========================================
sublista()
o
set oRs = ActiveConnection.execute("select *,(seleccione el nombre de wf_config donde id=w.wf_id) como wfname de wf_log w donde step_id=1 y user_id=" & session("usr")("uid"))
'(seleccione * de wf_log donde está la identificación (seleccione max(id),wf_id,tab_id,rec_id del grupo wf_log por wf_id,tab_id,rec_id donde wf_id= y tab_id=))
%> <p align="left"><img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32"><font color="# FF0000"><b>Elementos pendientes:</b></font></p>
<centro>
<table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25">
<tr>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Nombre del proceso</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Solicitante</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Tiempo de aplicación</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Tiempo de finalización</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Estado</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Operación</font></td>
</tr><%
hacer mientras no oRs.eof
Dim maxID,Siguiente_id
si glbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id) entonces
%><tr>
<td bgColor="#ffffff" height="19"><%=oRs("wfname")%></a></td>
<td bgColor="#ffffff" height="19"><%=session("usr")("name")%> </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="Detalles" WIDTH="16" HEIGHT=" 16"></a> <a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>', verdadero,falso,falso,falso,verdadero);"><img src="../images/action/lcchuli.gif" border="0" alt="Seguimiento de procesos" WIDTH="16" HEIGHT="16" ></a></p></td><%
terminar si
%></tr><%
oRs.movenext
bucle
%></table>
</center>
<%
sub final
clase final
'******************************************
'* Fin de clase
'******************************************
'******************************************
'Se inicia la página ASP
'******************************************
'Encabezado HTML estándar de salida
glbFunc.writeHEAD
atenuado oWebWorkFlowLog
establecer oWebWorkFlowLog = nuevo clsWebWorkFlowLog
establecer oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnection
oWebWorkFlowLog.main
glbFunc.writeTail()
%>
Se pueden agregar más métodos para que esta clase pueda completar las funciones de múltiples archivos ASP anteriores. Al acceder, puede distinguirlo agregando parámetros (a qué función desea acceder) después de .ASP.