#1
|
|||
|
|||
Asp ile Sms Gönderme
Asp ile 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.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 = Kod: İçeriğini görmek için kayıtlı kullanıcı olmanız gerekli. 'hedef url ekren_baglan.PostData =cepno=&no 'datalar ekren_baglan.RequestMethod = POST 'Get olabilir. ekren_baglan.AddExtraHeader (Referer: Kod: ) '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 %>
__________________
SevGi SuYu HASret Aşk TarLaSıyIm DöKüLMekTeN uSanMIş Göz DamLasIyIM ParaM ParCa oLmuŞ KaLp YaRasIyIm AMA eN öNemLiSi SeNi aSLa UnuTmaYaCak Bir BaŞBELASIYIM[Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL] |