Visual Basic ile basit bir ASP componenti yapalım

Visual Basic ile basit bir ASP componenti yapalım

Visual Basic ile response nesnesini kullanan basit bir componenti beraberce yapmaya çalışalım. Aşağıdaki maddeleri teker teker uygulayın.

ÖRNEK

1-Yeni bir Active-X DLL projesi açın.
'-- Eğer aşağıdaki ASP kütüphanesi seçeneğini bulamadıysanız; IIS, PWS veya Visual InterDev ile beraber yüklendiğini söylemeliyim.
2-Proje içerisindeyken, References menüsünden Microsoft Active Server Pages kütüphanesini aktif hale getirin.
3-Proje kolay bir isim verin. (geveze)
4-Sınıf yani class ismi verin. (papagan)
5-Visual Basic kod penceresine aşağıdaki kodları yazın ve compile edin.
6-Windows/System altındaki Regsvr32.exe kullanılarak DLL sisteme register edilir.

Regsvr32 geveze.dll

<'--proje ismi geveze, class adı papagan verdikten sonra kod penceresinde aşağıdaki kodları yazın.>

Private ASPresponse As response
Public Sub onstartpage(sc As ScriptingContext)
Set ASPresponse = sc.response()
end Sub

Public Sub merhaba()
ASPresponse.write "Merhaba ASPARSIVI ASP Okuluna Hoş Geldiniz..."
end Sub

Public Sub gulegule()
ASPresponse.write "Güle, Güle Tekrar Görüşmek Üzere"
end Sub

<'--Haydi şimdi yaptığımız bu componenti ASP sayfamızda kullanalım.

<'--ornekcomponent.asp>
<%
set konus=server.createobject("geveze.papagan")
'-- Ekrana "Merhaba ASPARSIVI ASP Okuluna Hoş Geldiniz..." yazar.
konus.merhaba
response.write "<br>"
'-- Ekrana "Güle, Güle Tekrar Görüşmek Üzere" yazar.
konus.gulegule
%>