Asp ile Sms Gönderme Mantığı - Geniş Kapsamlı Doküman ve Makale Sitesi

Merhabalar,

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 = http://localhost/gonder.asp 'hedef url
ekren_baglan.PostData =cepno=&no 'datalar
ekren_baglan.RequestMethod = POST 'Get olabilir.
ekren_baglan.AddExtraHeader (Referer: http://localhost/sms.html) 'referer sayfası
ekren_baglan.UserAgent = Mozilla Compatible (MS IE 6.01 WinXP)
strResult = ekren_baglan.getsurl
if instr(strResult,okey_gitti)>0 then
Response.write(sms gitmiştir.)
else
Response.write(Sms gitmemiştir.)
end if
set ekren_baglan=Nothing
%>

Aslında bu kodu bulmanız biraz zordur. Çünkü kolay kolay kimse yayınlamak istemez.

Bu sistem daha önce 3eclub.com web portalında kullanıldı.
Ve hiçbir sorun yaşanmadı. 20 Milyon sms gönderildi bu kod ile...

Kod tamam ama sunucu nerede derseniz...

Biraz iş zorlaşıyor kodu buldunuz ama server bulmanız lazım...

Bunuda artık sizlere bırakıyorum belki sonraki makalelerimde sms server adresleri de verebilirim.

Ama hem araştırın hem de yeni sunucular bulun

Örnek ise (1rstwap.com,a1.net,vizzavi.gr,boltblue.com,sms.ac,aycell.com.tr,aria.com.tr,turkcell.com.tr,telsim.com.tr)

Bu arada bence türk gsm şirketlerinden uzak durun ve boşuna uğraşmayın...

Kolay gelsin.

Kod ile problem veya soru için yazabilirsiniz.

ekren (at) 3eclub.com

Yazar & Kaynak: btturk.net

Kullanıcı Yorumları

İlgili Dökümanlar