Güncel bir kod örnegi olan sms gönderme

**EXiR** · 04-04-2008, 02:12 AM

Güncel bir kod örnegi olan sms gönderme betiği;

Asp ile ilgilenen arkadaşlar bilirler asp

componetlerden oluşmaktadır.

Yani her uygulama için genellikle özel componentler çağrılır.

Örnegin basit bir email gönderiminde bile componet cağırımı yapılır.(CDONTS.NewMail

Persits.MailSender

ASPEMAIL

JMAIL vb...)

Sms göndermekte aynı şekilde yani iki tür componentle gerçekleşmektedir.

Asp bilenler zaten bunların hangi component olduğunu bilirler.

Bunlar genellikle windows sunucularında yüklüdür.
Kod:
(
SOFTWING.AspTear
MSXML2.ServerXMLHTTP
MSXML2.ServerXMLHTTP.3.0
MSXML2.ServerXMLHTTP
AspNNTP.Conn
AspHTTP.Conn
xmlHTTP.Conn
)

Bu componetlerden hepsi olmasa bile bir çogu her sunucuda yüklüdür.

Birde özel componentler vardır.
Bunlar
Kod:
(
ASPSMS.Booster
Xmlsms.Foolt
Aspsms
)

gibi maliyetli özel componentler vardır.

Bunları satın aldıgınızda kodları ile beraber verildiği için değinmeme gerek yok

Gelelim bizim componentlere

componetler arasında işlemi hızlı yapan ve sunucuda işlemciyi az kullananlar genellikle sunuculara yüklenir.

* component = com. 'kısaltalım degilmi

Sms göndermenin mantığı genelde elimizdeki dataları hedef servera göndererek serverdan cevap almaktır genel olarak.

Pratikte ise örnek kod ===>

- Sms göndermek için öncelike gerekli com.'te baglantı yapılır.
- Daha sonra hedef url yazılır.
- bilgiler url ile birleştirilir.
- bir kaç tanımlama yapılır.
- Referer sayfası belirlenir.
- ve karşı sayfadan cevap alınırak yönlendirme yapılır.
Kod:
<%
no=request.querystring(no)
Set ekren_baglan = Server.CreateObject(AspNNTP.Conn)
ekren_baglan.Url =CODEhttp://localhost/gonder.asp] 'hedef url
ekren_baglan.PostData =cepno=&no 'datalar
ekren_baglan.RequestMethod = POST 'Get olabilir.
ekren_baglan.AddExtraHeader CODEhttp://localhost/sms.html
ekren_baglan.UserAgent = Mozilla Compatible (MS IE 6.01 WinXP)
strResult = ekren_baglan.getsurl
if instr(strResult

oaaa_gitti)>0 then
Response.write(sms gitmiştir.)
else
Response.write(Sms gitmemiştir.)
end if
set ekren_baglan=Nothing
%>

Alıntıdır

04-04-2008, 02:12 AM	#1 (permalink)
EXiR Administrator	Güncel bir kod örnegi olan sms gönderme Güncel bir kod örnegi olan sms gönderme betiği; Asp ile ilgilenen arkadaşlar bilirler asp componetlerden oluşmaktadır. Yani her uygulama için genellikle özel componentler çağrılır. Örnegin basit bir email gönderiminde bile componet cağırımı yapılır.(CDONTS.NewMail Persits.MailSenderASPEMAILJMAIL vb...) Sms göndermekte aynı şekilde yani iki tür componentle gerçekleşmektedir. Asp bilenler zaten bunların hangi component olduğunu bilirler. Bunlar genellikle windows sunucularında yüklüdür. Kod: ( SOFTWING.AspTear MSXML2.ServerXMLHTTP MSXML2.ServerXMLHTTP.3.0 MSXML2.ServerXMLHTTP AspNNTP.Conn AspHTTP.Conn xmlHTTP.Conn ) Bu componetlerden hepsi olmasa bile bir çogu her sunucuda yüklüdür. Birde özel componentler vardır. Bunlar Kod: ( ASPSMS.Booster Xmlsms.Foolt Aspsms ) gibi maliyetli özel componentler vardır. Bunları satın aldıgınızda kodları ile beraber verildiği için değinmeme gerek yok Gelelim bizim componentlere componetler arasında işlemi hızlı yapan ve sunucuda işlemciyi az kullananlar genellikle sunuculara yüklenir. * component = com. 'kısaltalım degilmi Sms göndermenin mantığı genelde elimizdeki dataları hedef servera göndererek serverdan cevap almaktır genel olarak. Pratikte ise örnek kod ===> - Sms göndermek için öncelike gerekli com.'te baglantı yapılır. - Daha sonra hedef url yazılır. - bilgiler url ile birleştirilir. - bir kaç tanımlama yapılır. - Referer sayfası belirlenir. - ve karşı sayfadan cevap alınırak yönlendirme yapılır. Kod: <% no=request.querystring(no) Set ekren_baglan = Server.CreateObject(AspNNTP.Conn) ekren_baglan.Url =CODEhttp://localhost/gonder.asp] 'hedef url ekren_baglan.PostData =cepno=&no 'datalar ekren_baglan.RequestMethod = POST 'Get olabilir. ekren_baglan.AddExtraHeader CODEhttp://localhost/sms.html ekren_baglan.UserAgent = Mozilla Compatible (MS IE 6.01 WinXP) strResult = ekren_baglan.getsurl if instr(strResultoaaa_gitti)>0 then Response.write(sms gitmiştir.) else Response.write(Sms gitmemiştir.) end if set ekren_baglan=Nothing %> Alıntıdır

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Çiçek Gönderme.	EXiR	İmza, Gif, Anime Gif ve Avatar Dükkanı	5	06-28-2008 08:05 PM
Güzel bir menu örnegi	YArgIsIZinFAZ	ASP, Perl, Php, Html	0	02-08-2008 09:08 PM
Kayan yazi örnegi	YArgIsIZinFAZ	ASP, Perl, Php, Html	0	02-08-2008 08:42 PM
Milletvekillerine Gönderme	Tanrının_Kırbacı	Karikatürler	1	11-13-2007 11:54 PM
Türk usulü ingilizce yazisma örnegi ve cevabi	TavsanicE	Tanışalım-Kaynaşalım/Geyik Bölümü	4	07-01-2007 07:42 PM

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)