doface (karya asli)
Ketika berbicara tentang ASP, banyak orang berpikir bahwa itu adalah kumpulan skrip HTML, beberapa kode diapit <% dan %>, dan beberapa skrip JAVASCRIPT, dan kemudian Menambahkan semua jenis komentar dalam format berbeda , sepertinya satu kata: kekacauan. Tidak peduli orang lain bisa memahaminya atau tidak, asalkan bisa mencapai tujuannya sendiri, karena kode ASP juga berupa script, tidak mungkin pelanggan tidak melihat isinya bisnis di DLL Logika, tapi saya masih merasa bahwa kode ASP adalah kode yang paling tidak berharga. Tidak ada yang kembali untuk membelinya. Anda selalu bisa mendapatkan gaya unik yang telah ditulis dengan susah payah oleh orang lain dengan melihat sumbernya kode dari situs web orang lain. Alasan-alasan ini membuat ASP berkembang menjadi kode yang mudah ditulis dan cepat dilupakan. Keterbacaan dan pemeliharaannya juga yang terburuk di antara berbagai bahasa.
Faktanya, kode ASP juga bisa berorientasi objek dan modular seperti bahasa lainnya. Banyak halaman dapat diintegrasikan dan dienkapsulasi ke dalam sebuah kelas, dan metode yang berbeda di kelas tersebut dapat digunakan untuk menampilkan halaman yang berbeda di bawah logika bisnis yang sama dengan Logikanya dienkapsulasi ke dalam kelas dan diimplementasikan menggunakan metode yang berbeda. Setelah banyak bicara, mungkin ide semua orang bingung. Izinkan saya memberi Anda beberapa contoh:
<%
'*******************************************
'* Nama kelas: clsWebWorkFlowLog
'* Fungsi ：Kelas pelacakan log alur kerja
'* Riwayat:
'* Dibuat oleh: doface
'* Tanggal: 24/10/2003 Ver 1.0
'* Perubahan:
'* Tanggal:
'*************** * ***********************
class clsWebWorkFlowLog
'Tentukan properti publik untuk menyimpan objek Koneksi
Koneksi Aktif publik
privateoResponse
'===========
'= nama proses: main
'= Parameter:
'= Fungsi: fungsi panggilan utama
'= melakukan operasi berbeda berdasarkan parameter tindakan berbeda
'= nilai kembalian:
'===========
sub utama()
pilih kasus Permintaan("tindakan")
kasus "daftar"
daftar()
kasus lain
daftar()
akhir pilih
sub akhir
'===========
'= nama proses: daftar
'= Parameter:
'= Fungsi: Menampilkan layar daftar
'= nilai kembalian:
'===========
subdaftar()
atau
set oRs = ActiveConnection.execute("pilih *,(pilih nama dari wf_config di mana id=w.wf_id) sebagai nama wf dari wf_log w di mana step_id=1 dan user_id=" & session("usr")("uid"))
'(pilih * dari wf_log di mana id masuk (pilih max(id),wf_id,tab_id,rec_id dari grup wf_log berdasarkan wf_id,tab_id,rec_id di mana wf_id= dan tab_id=))
%> <p align="left"><img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32"><font color="# FF0000"><b>Item yang harus dilakukan:</b></font></p>
<tengah>
<tabel bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25">
<tr>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Nama Proses</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Pemohon</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Waktu pengajuan</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Waktu penyelesaian</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Status</font></td>
<td bgColor="#808080" height="15"><font color="#FFFFFF">Operasi</font></td>
</tr><%
lakukan selagi tidak oRs.eof
redupkan maxID,Next_id
jika glbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id) maka
%><tr>
<td bgColor="#ffffff" height="19"><%=oRs("wfname")%></a></td>
<td bgColor="#ffffff" height="19"><%=sesi("usr")("nama")%> </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="Detail" WIDTH="16" HEIGHT=" 16"></a> <a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>', benar, salah, salah, salah, benar);"><img src="../images/action/lcchuli.gif" border="0" alt="Pelacakan Proses" WIDTH="16" HEIGHT="16" ></a> </p></td><%
berakhir jika
%></tr><%
atauRs.movenext
lingkaran
%></tabel>
</pusat>
<%
sub akhir
kelas akhir
'*********************************************
'* Akhir kelas
'*********************************************
'*********************************************
'Halaman ASP dimulai
'*******************************************
'Keluaran header HTML standar
glbFunc.writeHEAD
meredupkan oWebWorkFlowLog
atur oWebWorkFlowLog = clsWebWorkFlowLog baru
atur oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnection
oWebWorkFlowLog.main
glbFunc.writeTail()
%>
Lebih banyak metode dapat ditambahkan agar kelas yang satu ini dapat menyelesaikan fungsi beberapa file ASP sebelumnya. Saat mengakses, Anda dapat membedakannya dengan menambahkan parameter (fungsi mana yang ingin Anda akses) setelah .ASP.