Seri entri dan penguasaan perantara komponen Asp

Penulis：Eve Cole Waktu Pembaruan：2009-06-20 17:20:11

Saya telah menulis tujuh tutorial utama,

salah satu rangkaian entri perantara dan penguasaan komponen Asp

. Pasti ada beberapa hal dasar yang perlu ditulis secara perlahan. Saya akan perlahan-lahan melengkapi

konten tutorial perantara:

Ini mungkin juga yang dilakukan semua orang yang paling diperhatikan tentang: seperti: Pengoperasian database dan pengemasan. Penggunaan objek bawaan Asp. Saya akan menghabiskan waktu lama untuk menjelaskan bagian ini. Bagian ini mengharuskan Anda untuk lebih mahir menggunakan ADO untuk mengoperasikan database dan memahami lima objek utama ASP.

Mari kita lihat beberapa informasi yang beredar secara online:
Seperti kita ketahui bersama, ASP memiliki lima objek bawaan: Respons, Permintaan, Server, Sesi, dan Aplikasi. Faktanya, kelima objek bawaan ini adalah lima komponen ActiveX DLL yang diinisialisasi oleh konsol IIS lima komponen untuk digunakan dalam ASP, Tentu saja, kita juga dapat langsung mereferensikan komponen-komponen ini di ActiveX DLL kita untuk mengimplementasikan pemrograman kita, yang berarti kita dapat mencapai fungsi mengakses objek bawaan ASP dengan mereferensikan komponen-komponen ini dalam aplikasi VB.

Selama Anda menginstal server WEB dengan PWS4 atau IIS4 atau lebih tinggi, Anda akan memiliki perpustakaan objek bernama "Objek Halaman Server Aktif Microsoft". Kita dapat mereferensikan perpustakaan objek ini di aplikasi ActiveX DLL VB. Dengan mereferensikan perpustakaan objek ini, Kami punya memperoleh objek (kelas): ScriptingContext, yang juga merupakan objek inti dari keseluruhan artikel kami. Hubungan dalam perpustakaan objek adalah sebagai berikut:

Anggota kelas perpustakaan objek

ASPTypeLibrary ScriptingContext

Permintaan

Aplikasi

Response

Sesi

Server

Melalui diagram hubungan di atas, kita dapat dengan mudah memahami kelas ScriptingContent.

Mari kita lihat contoh spesifik:

buka vb6 dan buat proyek Activex Dll baru. Ubah nama proyek menjadi fCom dan nama kelas menjadi fZ1
Referensi ke pustaka objek "Objek Halaman Server Aktif Microsoft".
Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

'Kejadian ini dipicu ketika komponen dimusnahkan
Sub Publik DiEndPage()
myResponse.Write "Komponen DLL ActiveX telah dimusnahkan!"
'Hancurkan benda itu
Setel myResponse = Tidak Ada
Setel Permintaan Saya = Tidak Ada
Setel Server Saya = Tidak Ada
Setel Aplikasi Saya = Tidak Ada
Setel sesi saya = Tidak Ada
End Sub

'Tentukan metode komponen kita sendiri
Sub Publik HelloWorld()
myResponse.Write "Ini ditulis menggunakan objek bawaan asp"
Akhiri Sub

Uji buka visual interdev6.0 dan buat file asp

kode program
<%@ Bahasa=VBScript %>
<HTML>
<TUBUH>
<%
atur obj=server.CreateObject("fCom.fZ1")
panggil obj.HelloWorld()
%>
</BODI>
</HTML>

Konfigurasikan direktori virtual dan jalankan file asp ini di IE. Hasilnya adalah sebagai berikut:
Komponen DLL ActiveX telah dibuat! Komponen DLL ActiveX yang ditulis dengan objek bawaan asp telah dihancurkan!

Seri entri dan penguasaan komponen Asp Bagian 2

Pertama-tama mari kita lihat objek Aplikasi dan database. Untuk string koneksi, kami mengambil counter sebagai contoh:
Mari kita lihat file global.asa terlebih dahulu. Ini relatif sederhana.

kode program
<bahasa skrip =vbscript runat=server>
subAplikasi_dimulai
Aplikasi("Penghitung")=0
sub akhir
</skrip>

Kemudian

buka vb6 dan buat proyek Activex Dll baru. Nama proyek diubah menjadi fCom dan nama kelas diubah menjadi fZ2
Referensi ke pustaka objek "Objek Halaman Server Aktif Microsoft".
Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

kode program
Opsi Eksplisit
'Deklarasi objek
Redupkan myResponse Sebagai Respons
Redupkan Permintaan Saya Sebagai Permintaan
Redupkan Aplikasi Saya Sebagai Aplikasi
Redupkan myServer Sebagai Server
Redupkan mySession Sebagai Sesi
'Kejadian ini akan dipicu ketika komponen dibuat
Sub Publik OnStartPage (myScriptingContent Sebagai ScriptingContext)
'Jalankan instantiasi objek
Setel myResponse = myScriptingContent.Response
Setel permintaan saya = myScriptingContent.Permintaan
Setel server saya = myScriptingContent.Server
Setel Aplikasi Saya = Konten Saya.Aplikasi
Setel mySession = myScriptingContent.Session
Akhiri Sub
'Kejadian ini dipicu ketika komponen dimusnahkan
Sub Publik DiEndPage()
'Hancurkan benda itu
Setel myResponse = Tidak Ada
Setel Permintaan Saya = Tidak Ada
Setel Server Saya = Tidak Ada
Setel Aplikasi Saya = Tidak Ada
Setel sesi saya = Tidak Ada
Akhiri Sub
'Anda dapat melihat bahwa cara penulisannya sama setelah memindahkan apa yang tertulis di asp ke vb.
Sub Publik ShowCounter()
Redupkan intcounter Selama
Aplikasi saya.Kunci
intcounter = Aplikasi saya("penghitung")
penghitung int = penghitung int + 1
myApplication("penghitung") = intcounter
Aplikasi saya.Buka Kunci
myResponse.Tulis CStr(intcounter)
Akhiri Sub

Uji

buka visual interdev6.0 dan buat file asp

kode program
<%@ Bahasa=VBScript %>
<HTML>
<TUBUH>
<%
objek redup
atur obj=server.CreateObject("fCom.fZ2")
obj.ShowCounter()
%>
</BODI>
</HTML>

Setelah mengkonfigurasi direktori virtual, Anda perlu meletakkan file global.asa di direktori root, jalankan file asp ini di IE, segarkan halaman, dan Anda akan melihat nomor yang berubah.
Itu saja untuk penggunaan Aplikasi.

Dibandingkan dengan

komponen Asp tingkat masuk menengah dan seri penguasaan ketiga,

Sesi, ini jauh lebih sederhana

. Buka vb6 dan buat proyek Activex Dll baru. Ubah nama proyek menjadi fCom dan nama kelas menjadi fZ3
Referensi ke pustaka objek "Objek Halaman Server Aktif Microsoft".
Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

'Kejadian ini dipicu ketika komponen dimusnahkan
Sub Publik DiEndPage()
'Hancurkan benda itu
Setel myResponse = Tidak Ada
Setel Permintaan Saya = Tidak Ada
Setel Server Saya = Tidak Ada
Setel Aplikasi Saya = Tidak Ada
Setel sesi saya = Tidak Ada
Akhiri Sub
'Anda dapat melihat bahwa cara penulisannya sama setelah memindahkan apa yang tertulis di asp ke vb.
'Dapatkan semua variabel dan nilai sesi
Sesi Pertunjukan Sub Publik()
'Anda dapat mengatur batas waktu 20 menit
sesi saya.Waktu habis = 20
Redupkan item saya
'Dapatkan semua sesi
Untuk Setiap item saya di sesi saya.Isi
myResponse.Write myitem & ": " & mySession.Contents(myitem)
myResponse.Tulis "<br>"
Berikutnya
Akhiri Sub

Uji

buka visual interdev6.0, buat file asp untuk mengkonfigurasi direktori virtual, jalankan file asp ini di IE, Anda dapat melihat

nama: tornado
usia: 26
Keistimewaan :

Sekian untuk penggunaan komponen Session. Kegunaan Sesi lainnya serupa.

Komponen asp entry perantara dan penguasaan seri empat,

kita belajar Request
Untuk melihat cara mendapatkan konten yang dikirimkan oleh halaman di komponen

, buka vb6 dan buat proyek Activex Dll baru. Nama proyek diubah menjadi fCom dan nama kelas diubah menjadi fZ4
Referensi ke pustaka objek "Objek Halaman Server Aktif Microsoft".
Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

' Terlihat cara penulisannya sama setelah memindahkan apa yang tertulis di asp ke vb.
Permintaan Pertunjukan Sub Publik()
Redupkan item saya
'Posting jalan
Untuk Setiap item saya di myRequest.Form
myResponse.Tulis item saya & ": " & Permintaan Saya.Form(item saya)
myResponse.Tulis "<br>"
Berikutnya
'Dapatkan metode
Untuk Setiap item saya di myRequest.QueryString
myResponse.Write myitem & ": " & myRequest.QueryString(myitem)
myResponse.Tulis "<br>"
Berikutnya
'Pesan tunggal
myResponse.Write "Salah satu pesannya adalah " & ": " & myRequest("nama pengguna")
myResponse.Tulis "<br>"
Akhiri Sub

Uji

buka visual interdev6.0 dan buat

kode program

file fz41.asp

<%@ Bahasa=VBScript %>
<HTML>
<TUBUH>
<formulir tindakan="fz4_result.asp" metode="posting">
<INPUT id=teks1 nama=nama pengguna>
<INPUT id=teks2 nama=umur>
<INPUT id=kirim1 type=kirim nilai=Kirim nama=kirim>
</bentuk>
</BODI>
</HTML>

Anda juga perlu membuat

kode program

file fz4_result.asp yang dikirimkan

<%@ Bahasa=VBScript %>
<HTML>
<TUBUH>
<%
objek redup
atur obj=server.CreateObject("fCom.fZ4")
panggil obj.ShowRequest
%>
</BODI>
</HTML>

Selain itu kita juga perlu memperhatikan cara pengirimannya sehingga diperlukan

kode program

file fz42.asp

<%@ Bahasa=VBScript %>
<HTML>
<TUBUH>
<form action="fz4_result.asp?username='"& nama pengguna &"'& age='"& umur &"'" method="get" id=form1 name=form1>
<INPUT id=teks1 nama=nama pengguna>
<INPUT id=teks2 nama=umur>
<INPUT id=kirim1 type=kirim nilai=Kirim nama=kirim>
</bentuk>
</BODI>
</HTML>

Konfigurasikan direktori virtual dan jalankan file fc41.asp di IE. Setelah memasukkan konten, klik tombol dan Anda akan melihat

nama pengguna: Tornado
usia: 26
Kirim: Kirim
Salah satu pesannya adalah: Tornado.

Mari kita jalankan file fc42.asp di IE. Setelah memasukkan konten, klik tombol dan Anda dapat melihat

nama pengguna: Tornado.
usia: 26
Kirim: Kirim
Salah satu pesannya adalah: Tornado

dan bilah alamat menjadi
http://yang/xml/fz4_result.asp?username=%C1%FA%BE%ED%B7%E7&age=26&%CC%E1%BD%BB=Kirim

Bersambung

komponen Asp seri entri perantara dan penguasaan Bagian 5

Mari kita lihat objek Response. Faktanya, kita telah menggunakan metode Write pada objek ini di tutorial sebelumnya.

Di sini kita menggunakan objek Response untuk mengatur cookie.

Buka vb6 dan buat proyek Activex Dll baru. Ubah nama proyek menjadi fCom dan nama kelas menjadi fZ5
Referensi ke pustaka objek "Objek Halaman Server Aktif Microsoft".
Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

'Acara ini akan dipicu ketika komponen dibuat
Sub Publik OnStartPage (myScriptingContent Sebagai ScriptingContext)
'Jalankan instantiasi objek
Setel myResponse = myScriptingContent.Response
Setel permintaan saya = myScriptingContent.Permintaan
Setel server saya = myScriptingContent.Server
Setel Aplikasi Saya = Konten Saya.Aplikasi
Setel mySession = myScriptingContent.Session
End Sub

'Atur cookie dari halaman dan dapatkan dari komponen
Sub Publik GetCookie()
Redupkan item saya
'Semua informasi
Untuk Setiap item saya di myRequest.Cookies
myResponse.Write myitem & ": " & myRequest.Cookies.Item(myitem)
myResponse.Tulis "<br>"
Berikutnya
'Pesan tunggal
myResponse.Write "dengan nama pengguna " & ": " & myRequest.Cookies("nama pengguna")
myResponse.Tulis "<br>"
myResponse.Write "di mana usia pengguna adalah" & ": " & myRequest.Cookies("usia")
myResponse.Tulis "<br>"
Akhiri Sub

'Tetapkan cookie di komponen dan masukkan ke dalam halaman
Sub SetCookie() Publik
myResponse.Cookies("com_username") = "Tornado"
myResponse.Cookies("com_age") = 26
myResponse.Kedaluwarsa = #13/9/2004#
Akhiri Sub

Kompilasi menjadi file Dll dan sistem akan secara otomatis mendaftarkannya.
Jika tidak, daftarkan Regsvr32 secara manual f:testfcom.dll

untuk menguji

buka visual interdev6.0, buat file fz5.asp

dan konfigurasikan direktori virtual, jalankan file fc5.asp di IE, Anda dapat melihat

tornado
26
usia: 26
nama pengguna: tornado
com_usia: 26
com_username: Tornado dimana nama penggunanya: Tornado dimana umur penggunanya: 26

Lanjutan

Pengenalan Menengah dan Penguasaan Komponen Asp Seri No. 6

Sebagai objek bawaan Asp, akhirnya kita belajar tentang objek Server

Server objek menggunakan lebih banyak pengkodean Html. Pengkodean URL dan pengalihan serta transmisi halaman web.

Buka vb6 dan buat proyek Activex Dll baru. Nama proyek diubah menjadi fCom dan nama kelas diubah menjadi fZ6
Referensi ke pustaka objek "Objek Halaman Server Aktif Microsoft".
Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

Publik Sub ShowHtml(ByVal strHtml Sebagai String)
myResponse.Tulis myServer.HTMLEncode(strHtml)
Akhiri Sub

Publik Sub ShowUrl(ByVal strUrl Sebagai String)
myResponse.Tulis myServer.URLEncode(strUrl)
Akhiri Sub

Publik Sub ExecuteUrl()
server saya.Transfer "fz5.asp"
Akhiri Sub

Kompilasi menjadi file Dll dan sistem akan secara otomatis mendaftarkannya.

Jika tidak, daftarkan Regsvr32 f:testfcom.dll secara manual

untuk menguji

visual

interdev6.0

yang terbuka, buat file fz6.asp

dan konfigurasikan direktori virtual. Jalankan file fc6.asp di IE untuk melihatnya

C1 %FA%BE%ED%B7%E7&age=26

Anda dapat menggunakan IE untuk melihat file sumber guna melihat pengkodean HTML.

Ini adalah pengenalan sementara objek bawaan ASP, dan kami akan terus mempelajarinya nanti.

Anda juga dapat menarik kesimpulan dari satu contoh dan mempelajari properti serta metode yang belum diperkenalkan.

Entri perantara komponen Asp dan seri penguasaan tujuh

memulai operasi basis data.

Kemasan komponen umum

1. Meringkas informasi koneksi database.

1> Langsung mengembalikan string koneksi database, seperti

kode program

di komponen

Sumber data Fungsi Publik() Sebagai Varian
sumber data = "driver={sql server};server=yang;uid=sa;pwd=; database=northwind"
Fungsi Akhir

asp memanggil

kode program
setel obj=server.CreateObject("webdb.getinfo")

Kekurangan

oconn=obj.datasource()

terlihat jelas. Dalam file asp, respon.write oonn secara langsung dapat menampilkan string koneksi database, yang tidak memberikan efek yang diharapkan.

2> Kembalikan

kode program

objek adodb.connection

Fungsi Publik GetConn() Sebagai ADODB.Connection
Setel samb = Koneksi ADODB baru
conn.ConnectionString = "Penyedia=SQLOLEDB.1;Info Keamanan Tetap=Salah;ID Pengguna=sa;kata sandi=;Katalog Awal=Northwind;Sumber Data=yang"
samb.Buka
Setel GetConn = samb
Fungsi Akhir

Kode program

panggilan Asp

Redupkan DataQuery
Setel DataQuery=Server.CreateObject("WebDbtest.GetInfomation")
set rs=server.createobject("adodb.recordset")
sql="pilih * dari karyawan"
Rs.open sql,DataQuery.getconn,1,3
respon.Tulis Rs("Nama Belakang")
Respons.tulis DataQuery.getconn.ConnectionString
set Rs=nothing

terlihat bagus, tetapi Response.write DataQuery.getconn.ConnectionString akan tetap menampilkan string koneksi database.

2. Untuk merangkum komponen ke dalam kumpulan data, Anda dapat membaca apa yang saya tulis beberapa waktu lalu : http://blog.csdn.net/online/archive/2003/12/11/7764.aspx
Hal buruk tentang kode ini adalah bahwa koneksi database dinilai berdasarkan halaman. Setelah koneksi berhasil, data diakses. Secara pribadi, menurut saya cara terbaik adalah

merangkumnya ke dalam kumpulan catatan dan menyambung ke database di metode komponen. Setelah operasi selesai, Tutup tepat

waktu dan coba buat kode HTML di komponen untuk merangkum semuanya. Seperti metode berikut,

bukan enkapsulasi parsial.

Seri entri dan penguasaan perantara komponen Asp No. 8

telah cukup sibuk selama periode ini Haha, hari ini kita akan melihat contoh enkapsulasi data dan paging lengkap.

Buka vb6 dan buat proyek Activex Dll baru. Nama proyek diubah menjadi fCom dan nama kelas diubah menjadi fZ8
Referensi ke "Objek Halaman Server Aktif Microsoft", pustaka objek "Perpustakaan Objek Data Microsoft Activex 2.7".

Buat dua peristiwa komponen: OnStartPage dan OnEndPage
Buat referensi ke kelas ScriptingContent di acara OnStartPage.
Buat instance ScriptingContent kelas.

Kodenya adalah sebagai berikut:

kode program
Opsi Eksplisit
'*******************************************************
'Penulis: Tornado
'Fungsi: Komponen sederhana yang dapat disesuaikan dan dienkapsulasi sepenuhnya
'Waktu: 01-01-2005
'*******************************************************

'Deklarasi objek
Redupkan MyResponse Sebagai Respons
Redupkan Permintaan Saya Sebagai Permintaan
Redupkan Aplikasi Saya Sebagai Aplikasi
Redupkan myServer Sebagai Server
Redupkan mySession Sebagai Sesi

'Variabel pribadi
mPageSize Pribadi Selama
mstrSql Pribadi Sebagai String
'Kejadian ini akan dipicu ketika komponen dibuat
Sub Publik OnStartPage (myScriptingContent Sebagai ScriptingContext)
'Jalankan instantiasi objek
Setel MyResponse = myScriptingContent.Response
Setel Permintaan Saya = myScriptingContent.Permintaan
Setel server saya = myScriptingContent.Server
Setel Aplikasi Saya = KontenSayaScripting.Aplikasi
Setel mySession = myScriptingContent.Session
End Sub

'Kejadian ini dipicu ketika komponen dimusnahkan
Sub Publik DiEndPage()
'Hancurkan benda itu
Setel MyResponse = Tidak Ada
Setel Permintaan Saya = Tidak Ada
Setel Server Saya = Tidak Ada
Setel Aplikasi Saya = Tidak Ada
Setel sesi saya = Tidak Ada
Akhir Sub

'Tampilkan Tabel
Fungsi Publik ShowTable()
Redupkan koneksi Sebagai ADODB.Connection Baru
Redupkan rs Sebagai ADODB.Recordset Baru
Redupkan saya Sebagai Integer
Redupkan j Sebagai Integer
Redupkan intPage Sebagai Integer
Redupkan intPageCount Sebagai Integer
Redupkan strScriptName Sebagai String
Redupkan intPos Sebagai Integer
Redupkan intFieldCount Sebagai Integer

'Dapatkan jalannya
strScriptName = Permintaan Saya.ServerVariables("Nama_Script")
intPos = InStrRev(strNamaScript, "/")
Jika intPos <> 0 Lalu
strScriptName = Tengah(strScriptName, intPos + 1)
Akhiri Jika
Jika IsEmpty(Permintaan Saya("halaman")) Lalu
halaman ke dalam = 1
Kalau tidak
intPage = CInt(Permintaan Saya("halaman"))
Akhiri Jika
Pada Kesalahan GoTo err
samb.Buka "Penyedia=SQLOLEDB.1;Info Keamanan Tetap=Salah;ID Pengguna=sa;Katalog Awal=Northwind;Sumber Data=localhost"
rs.Buka mstrSql, samb, adOpenStatic, adLockReadOnly
'Dapatkan jumlah catatan
intFieldCount = rs.Fields.Count
'Tabel keluaran
MyResponse.Write "<batas tabel=1 spasi sel=0 bantalan sel=2>"
Jika Bukan rs.EOF Lalu
rs.PageSize = mPageSize
rs.AbsolutePage = intPage
'Dapatkan nomor halamannya
intPageCount = rs.PageCount
'Menangani paging
Jika intPage < 1 Maka intPage = 1
Jika intPage > intPageCount Maka intPage = intPageCount
'Tajuk keluaran
Respon Saya.Tulis "<tr>"
Untuk i = 0 Ke intFieldCount - 1
MyResponse.Tulis "<th>" & rs(i).Nama & "</th>"
Berikutnya
Respon Saya.Tulis "</tr>"
'Konten keluaran
Untuk i = 1 Ke mPageSize
Jika rs.EOF Lalu
Keluar Untuk
Akhiri Jika
Respon Saya.Tulis "<tr>"
Untuk j = 0 Ke intFieldCount - 1
MyResponse.Tulis "<td>" & rs.Fields(j).Nilai & "</td>"
Berikutnya
Respon Saya.Tulis "</tr>"
rs.MoveNext
Berikutnya
'Paging keluaran
Respon Saya.Tulis "<tr>"
Jika intPage <> 1 Lalu
MyResponse.Write "<a href=" & strScriptName & "?page=1>[Halaman pertama]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage - 1 & " >[Halaman Sebelumnya]</a>"
Akhiri Jika

Jika intPage <> intPageCount Lalu
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage + 1 & ">[halaman berikutnya]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPageCount & ">[halaman terakhir]</a>"
Akhiri Jika

MyResponse.Write "Halaman:<FONT COLOR='Merah'>" & intPage & "/ " & intPageCount & "</FONT>"
Respon Saya.Tulis "</tr>"
Akhiri Jika

MyResponse.Tulis "</table>"

‘Lepaskan sumber daya
Jika Tidak rs Bukan Apa-apa, Maka
Jika rs.State = 1 Maka
rs.Tutup
Akhiri Jika
Setr=Tidak ada
Akhiri Jika
Jika Tidak terhubung Tidak Ada Apa-apanya
Jika samb.State = 1 Maka
samb.Tutup
Akhiri Jika
Setel samb = Tidak ada
Akhiri Jika
Fungsi Keluar

salah:
MyResponse.Tulis err.Nomor & err.Deskripsi
Jika Tidak rs Bukan Apa-apa, Maka
Jika rs.State = 1 Maka
rs.Tutup
Akhiri Jika
Setr=Tidak ada
Akhiri Jika
Jika Tidak terhubung Tidak Ada Apa-apanya
Jika samb.State = 1 Maka
samb.Tutup
Akhiri Jika
Setel samb = Tidak ada
Akhiri Jika
Fungsi Akhir
'Tentukan atribut
Properti Publik Dapatkan ShowPageSize() Sebagai Varian
TampilkanUkuranPage = mPageUkuran
Properti Akhir

Properti Publik Biarkan ShowPageSize(ByVal vNewValue Sebagai Varian)
mPageSize = vNilai Baru
Properti Akhir

Properti Publik Dapatkan strSQL() Sebagai Varian
strSQL = mstrSql
Properti Akhir

Properti Publik Biarkan strSQL(ByVal vNewValue Sebagai Varian)
mstrSql = vNilai Baru
Properti Akhir

Kompilasi menjadi file Dll dan sistem akan secara otomatis mendaftarkannya.
Jika tidak, daftarkan Regsvr32 f:testfcom.dll secara manual

untuk menguji

visual interdev6.0 terbuka dan buat file fz8.asp

kode program
<%@ Bahasa=VBScript %>
<HTML>
<TUBUH>
<%
objek redup
atur obj=server.CreateObject("fcom.fz8")
'Jumlah catatan yang ditampilkan pada setiap halaman
obj.TampilkanUkuranPage=10
'Pernyataan sql yang ditampilkan
obj.strSQL="pilih id pelanggan, nama perusahaan, nama kontak, judul kontak, alamat dari pelanggan"
obj.ShowTable()
%>
</BODI>
</HTML>