doface (оригинальная работа)
Говоря об ASP, многие думают, что это набор HTML-скриптов, некоторых кодов, заключенных в <% и %>, и некоторых JAVASCRIPT-скриптов. Такой код, а затем добавление всевозможных комментариев в разных форматах. , это похоже на одно слово: хаос. Не имеет значения, понимают ли это другие или нет, пока он может достичь своей цели, поскольку код ASP также является сценарием, клиенты не могут не видеть контент. Он часто включается в часть. бизнеса в DLL, но я все еще считаю, что код ASP является наименее ценным кодом. Никто не вернется, чтобы купить его. Вы всегда можете получить уникальный стиль, над написанием которого усердно работали другие, просмотрев исходный код. код с чужих сайтов. Эти причины привели к тому, что ASP превратился в код, который легко написать и быстро забыть. Читабельность и удобство обслуживания также являются худшими среди различных языков.
Фактически, код ASP также может быть объектно-ориентированным и модульным, как и другие языки. Многие страницы могут быть интегрированы и инкапсулированы в класс, а для отображения разных страниц можно использовать разные методы. в рамках одной и той же бизнес-логики с Логика инкапсулируется в класс и реализуется с использованием разных методов. Сказав так много, возможно, идеи у всех путаются. Позвольте мне привести несколько примеров:
<%.
'***************************************
'* Имя класса: clsWebWorkFlowLog
'* Функция : Класс отслеживания журнала рабочего процесса
'* История:
'* Создатель: doface
'* Дата: 24.10.2003, версия 1.0
'* Изменения:
'* Дата:
'*************** * ***********************
class clsWebWorkFlowLog
'Определение общедоступных свойств для хранения объектов Connection
общедоступное ActiveConnection
PrivateoResponse
'======================================
'= имя процесса: основной
'= Параметры:
'= Функция: основная вызывающая функция
'= выполнять разные операции на основе разных параметров действия
'= возвращаемое значение:
'======================================
подглавный()
выберите случай Request("act")
случай «список»
список()
еще случай
список()
конец выбора
конец субтитра
'======================================
'= имя процесса: список
'= Параметры:
'= Функция: отображение экрана списка
'= возвращаемое значение:
'======================================
подсписок()
или
set oRs = ActiveConnection.execute("select *,(выберите имя из wf_config, где id=w.wf_id) как имя wf из wf_log w, где step_id=1 и user_id=" & session("usr")("uid"))
'(выберите * из wf_log, где идентификатор (выберите max(id),wf_id,tab_id,rec_id из группы wf_log по wf_id,tab_id,rec_id, где wf_id= и tab_id=))
%> <p align="left"><img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32"><font color="# FF0000"><b>Планы дел:</b></font></p>
<center>
<table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25">
<тр>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Имя процесса</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Заявитель</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Время подачи заявки</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Время завершения</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Статус</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Эксплуатация</font></td>
</tr><%
делай, пока не oRs.eof
тусклый maxID,Next_id
если glbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id) тогда
%><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="Подробнее" WIDTH="16" HEIGHT=" 16"></a> <a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>', правда, ложь, ложь, ложь, правда);"><img src="../images/action/lcchuli.gif" border="0" alt="Отслеживание процесса" WIDTH="16" HEIGHT="16" ></a> </p></td><%
конец, если
%></tr><%
oRs.movenext
петля
%></таблица>
</center>
<%
конец субтитра
конечный класс
'******************************************
'* Конец урока
'******************************************
'******************************************
'Страница ASP начинается
'***************************************
'Вывод стандартного HTML-заголовка
glbFunc.writeHEAD
dim oWebWorkFlowLog
set oWebWorkFlowLog = новый clsWebWorkFlowLog
set oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnection
oWebWorkFlowLog.main
glbFunc.writeTail()
%>
Можно добавить больше методов, чтобы этот класс мог выполнять функции нескольких предыдущих файлов ASP. При доступе вы можете отличить его, добавив параметры (к какой функции вы хотите получить доступ) после .ASP.