Ayberk Atasay ASP, CSS, Internet konular� �zerine payla��mlar

Yenilikler

Sat, 06 Mar 2010 10:50:35 GMT

Payla��mlar�m� takip eden ve/ya yeni bulmu� herkese merhabalar. Uzun s�redir i�lerimin yo�unlu�u nedeniyle hi� bir yaz� ekleyemiyordum. Hatta son �� bu�uk ayd�r toplamda 10 g�n (oda net de�il) evde olmu�umdur. Bu s�re i�inde teknoloji d�nyas�nda bir s�r� yenilik ve geli�meler oldu. Bende en az�ndan f�rsat bulmu�ken biraz bunlardan bahsetmek istiyorum.[bol]

Windows 7 resmen yay�nland�
Vista'n�n ya�am�� oldu�u ba�ar�s�zl�ktan sonra, Microsoft'un �zerine titredi�i her �eyi tek tek ele ald�� i�letim sistemi Windows 7 yay�nland� ve bana y�llar sonra XP'den vazge�meme ve orjinal �r�n kullanman�n keyfine vard�rd�.

Avatar: Film d�nyas�nda yeni bir pencere
Avatar filmi 3 boyutlu, �zel teknikleriyle �ekilmi� g�r�nt�leri ile film d�nyas�nda yeni bir bak�� getirdi. Bence olduk�a ba�ar�l� bir film oldu�unu da s�ylemeden ge�emeyece�im.

Apple iPad tan�t�ld�
Apple'�n iPhone'un b�y�k hali olan iPad herkese tan�t�ld�. Bence iPhone'da yakalad�� ba�ar�y� iPad ile yakalamas� zor.

Blog �d�lleri 2010
2008'de ba�lat�lan blog tutan herkesin kat�labildi�i blog �d�lleri yar��mas� bu seneki takvimi belirlendi.
Ba�vurular: 10-31 Mart
Ba�vurular�n de�erlendirilmesi: 31 Mart-9 Nisan
Oylama S�reci: 10 Nisan-30 Nisan
Juri De�erlendirmesi: 2-6 May�s
�d�l T�reni: 8 May�s

Yahoo! 15 Ya��nda
2 Mart 2010 g�n� Yahoo! i�in farkl� bir g�nd�. ��nk� Yahoo! 15. ya� g�n�n� kutluyordu. Yahoo! a��ld��nda Google'�n bile daha kurulmam�� oldu�unu da hat�rlatmak isterim.

JavaScript G�ster / Gizle Fonksiyonu

Mon, 23 Nov 2009 10:51:51 GMT

[ajaxicon]Ge�en g�n benden ufak bir konuda yard�m isteyen arkada��m�n sorusuyla, benimde sizlere payla�mam, ihtiyac� olanlar�n i�ine yarayabilece�ini d��nd��m bir kod oldu. Bu kod ile HTML s�n�f�nda otomatik olarak de�i�iklik yaparak, i�eri�in gizlenmesini / g�sterilmesini sa�layabilirsiniz.[bol]

JavaScript Kodu:

function GosterGizle(element) {

var element = document.getElementById(element);

if(element.style.display == "none") {
element.style.display = "block";
}

else {
element.style.display = "none";
}}

Burada kodlar�m�z e�er ilgili eleman�m�z�n (id'ye g�re se�iliyor) [mcode]display[/mcode] se�ene�i [mcode]none[/mcode] yani g�sterme ise fonksiyonumuzun g�sterme k�sm�n� �al��t�r, e�er g�steriliyorsa gizle k�sm�n� �al��t�r�yoruz. (Kodu sunan ki�i Silverday)

HTML Kodu (�lk gelen hali g�sterilen):

G�ster/Gizle

��eri�imiz

Burada ilk ba�ta ilgili katman�m�z g�r�nt�lenecek, linke t�kland��nda gizlenecek.

HTML Kodu (�lk gelen hali gizlenen):

G�ster/Gizle

Burada ilk ba�ta ilgili katman�m�z gizli olacak, linke t�kland��nda g�r�nt�lenecek.

JavaScript ile HTML S�n�f� De�i�tirme

Thu, 22 Oct 2009 11:33:13 GMT

[ajaxicon]Bug�n bir site projesi �zerinde �al��rken akl�ma gelen ve bu proje �zerinde ziyaret�ilerin de i�ini kolayla�t�rabilecek bir �zelli�i JavaScript ile yapabilece�imi d��n�p uygulad�m, hemen ard�ndan buraya da �rnek kodlar� koyuyorum.[bol]

�u an bir site projesi �zerinde �al��t��mdan bahsetmi�tim. Burada daha �nce payla�t��m CSS Saydaml�k Efekti konusunda oldu�u gibi bir �zellik kullan�yorum. Fakat bir farkla; isteyen kullan�c� bu �zelli�i tamamen kullanacak (tam saydaml�k), isteyen yar�m (%50 saydaml�k), isteyen de hi� kullanmayacak (saydaml�k yok).

Bunuda JavaScript ile basit�e ger�ekle�tirmemi sa�layan ufak kod a�a��da. Tabi bu verdi�im kod her zaman ki gibi temel hali. Geli�tirmek veya ek �zellikler uygulamak size kalm��.

Kullan�m�:
[mcode]S�n�f De�i�tirme[/mcode]

C# mailkay�t, newsletter olu�turma

Tue, 13 Oct 2009 20:20:25 GMT

[csharpicon]�imdi bir onceki konumuzda bahsettik toplu mail g�nderme olay�n� . �imdi gene ayn� database ye veri yazan yani mail yazan bir bir site yapal�m. zaten onlara toplu mail g�ndermeyi biliyoruz.
[bol]

ben �ok basit ve temel yap�da anlataca��m. geli�tirmek veya dizayn etmek size kalm��. �nce gene accesste yaratt��m�z veritaban�m�zda email tablosunu kullanal�m

unutanlar i�in: (Resim1)

bo� bir pencere yaratal�m ve toolboxtan gereken bir accessdatasource bir textbox, bir de button ekleyel�m.

(Resim2)

s�r�kledik b�rakt�k. ekrandaki goruntumuz olu�tu.

accessdatasourcemisin sa� �st�ndeki kulak��a t�klayal�mve database konumumuzu se�elim.

(Resim3)

se�ip next dedik. mail'i se�tik , yan�ndaki advanced d��mesine bast�k.

(Resim4)

generate insert delete update kutucugunu i�aretledik. sonu�ta insert metodu uygulayaca��z.

(Resim5)

ok e bas�p next diyoruz. connectionu test edebilirsiniz. ok dedik ��kt�k.

accessdatasourcemizi se�tik sa�da prosperties den insert querryi se�tik. yan�nda 3 noktal� kutucu�a bast�k ve insert �zellikleri ��kt�.

orda mail i se�ip yan�nada Textbox1.text yazmaya �al��may�n. �unku sa�daki a��l�r men�den control � se�ece�iz. alt�ndaki kutucuktan da mail s�tununa neredeki veriyi yazaca��m�z� se�mek i�in , textbox1.text i se�ece�iz. sol taraftaki k��k pncerede otomatik olarak mail s�tununun verisinin nereden gelece�ini belirlemi� olduk. ok dedik ��kt�k.

(Resim6)

buttonumuza �ift t�kl�yoruz. ve buttona bas�ld��nda ne yapaca��m�z� yazmaya ba�l�yoruz. evet sadece bir sat�r.

AccessDataSource1.Insert()

(Resim7)

program�m�z bitti. �al��t�r�nca g�rece�iz ki textbox un i�indeki veri databasemize yaz�lm��!

C#.net mail g�nderimi, toplu mail

Mon, 12 Oct 2009 22:02:44 GMT

[csharpicon]Bir veritaban�m�z oldu�unu varsayal�m ve burada pek �ok insan�n maili oldu�unu d��nelim. 100'lerce ki�i. Bu ki�ileri ister siz kaydedin, ister sitenize koyaca��n�z newsletter tarz� bir�eyle al�n, bu ki�ilerin hepsine tek bir t�klamayla mail g�nderebilirsiniz. ��te y�ntemi.[bol]

�nce bir veritaban� a��yoruz. Anlat�m� kolay olsun diye MS Access a��yoruz.
MS Access>yeni>bo� veritaban�> tasar�m g�r�n�m�nde tablo olu�tur dedik. Kar��m�za tablomuz ��kt�. "mail" yaz�p t�r�n� metin se�iyoruz. Alttaki options'lardan 50 karakterden fazlas�n�na ihtiyac�m�z yok. 50 iyi. Bo� mail kay�tlar�n�n kayd�n� engellemek i�in "bo� de�er"i hay�r diyebilirisniz. ben demedim. (Resim.1)

Mail adresini primary key yap�p kaydedip ��k�yoruz. Tablomuza da herhangi bir isim verelim. Ben maillist diyece�im

.net studio da bir C# ile web uygulamas� se�tim.

new> website> asp.net website

bir tablo ekliyoruz (Resim.2)

default aspx in design k�sm�na geliyoruz s�r�kle b�rak metoduyla bir gridview, textboxlar bir access datasource s�r�kl�yoruz. ve b�rak�yoruz.

(Resim.3)

gridwievimizin sa� �st kutucu�undan accessdatasource 1 i se�iyoruz.

sonra access datasourcemizin sa� �st k��esindeki kutucu�a bas�yoruz. databasemizin konumunu se�iyoruz (projemizin i�ine koyarsak kolay buluruz) sonra select sorgusundan mail i se�ip devam diyoruz. i�te databasemiz ve gridviewimiz doldu.

yaratt��m�z buttona �ift t�kl�yoruz ve otomatikman bir fonksiyon yarat�yor. fonksiyonun i�ine a�a��dakileri yap��t�r�yoruz

bu arada gridwievimize ben gwmail ad�n� verdim.
textboxlar ise txtkonu ve txtmetin.

MailMessage message = new MailMessage();
message.From = new MailAddress("emailadresiniz@mailadresiniz.com");
// for d�ng�s� gridviewin sat�r say�s� kadar d�n�yor
for (int i = 0; i < Gwmail.Rows.Count; i++)
{
//gwmail Gw inin i 'inci sat�r�n�n 0. eleman� mail adresi oluyor
message.To.Add(Gwmail.Rows.Cells[0].Text);
message.Subject = txtkonu.Text;
message.Body = txtmetin.Text;

System.Net.NetworkCredential mailauthentication = new System.Net.NetworkCredential("mailadresnizi@mailadresi.com", "mail �ifreniz");
SmtpClient client = new SmtpClient("smtp.live.com",587);
client.EnableSsl = true;
client.UseDefaultCredentials = false;
client.Credentials = mailauthentication;
client.Send(message);
}

b�ylece tek metini g�nderebiliyouz.
tabi message.attach() fonksiyonunu da ekleyerek attachmentli dosya g�nderebiliyoruz.
in�allah iyi anlatabilmi�imdir ilk yaz�m . msnden beni eklemek isteyenler sorusu olanlar kaygerya@hotmail.com eklemeden once davet mesaj�na untaka yazarsan�z sizi kabuul ederim. sorular�n�z� belki hemen cevaplayamam ama g�zel fikirler sunarsan�z yapar, siteye koyar�m.

ha bir de web.config dosyas�n�n i�ine

iladresi.com">

�ok yak�nda

Fri, 09 Oct 2009 14:51:59 GMT
[csharpicon] "Tembel adam yarat�c� olur " ilkesiyle ba�lad��m C# yaz�l�m diline dair bildi�im / �zerinde �al��t��m her�eyi �ok sevgili arkad�a�m ayberkin kurmu� oldu�u bu site de bundan sonra C#.net hakk�nda yaz�larda yazaca��m/payla�aca��m. t�m kendisini benim gibi tembel sayan "oturup 50 tane sayfa yapamam 1 tane yapar�m hepsinin ya�aca�� i�i yapar" zihniyetinde veya herg�n "web sayfas� m� revize edece�im." Bi�eyler yapay�m o kendisini revize etsin" diyen arkada�lar takipten ayr�lmas�n.

ASP Eposta G�nderimi: CDOSYS

Thu, 08 Oct 2009 10:04:09 GMT
[aspicon]D�nk� payla��m�mda ASP ile nas�l sunucu bilgisini elde edece�imizi yazm��t�m. Bug�nde ayn� konuyu kullanarak nas�l e-posta g�nderece�imizi anlataca��m. �lk anlataca��m e-posta bile�eni: CDOSYS.[bol]

CDOSYS Nedir?
CDOSYS, Microsoft'un CDONTs bile�eninin kullan�m�n� Windows 2000, Windows XP ve Windows 2003 s�r�mleri ile birlikte sonland�rmas�n�n ard�nda kullan�lmaya ba�layan bir bile�endir. E�er hala CDONTs bile�enini kullanan bir e-posta formunuz varsa kodlar�n�z� a�a��daki �ekilde g�ncellemeniz gerekecektir.

D�z metin olarak e-posta g�nderimi:

<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KEND� E-POSTA ADRES�N�Z"
ePostaForm.To="G�nderilecek adres"
ePostaForm.Bcc="G�nderilecek adres 2" /*Bu se�enek opsiyoneldir.*/
ePostaForm.Cc="G�nderilecek adres 3" /*Bu se�enek opsiyoneldir.*/
ePostaForm.TextBody="Buraya gidecek mesaj"
ePostaForm.Send
set ePostaForm=nothing
%>

HTML olarak e-posta g�nderimi:

<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KEND� E-POSTA ADRES�N�Z"
ePostaForm.To="G�nderilecek adres"
ePostaForm.HTMLBody="Buraya gidecek mesaj"
ePostaForm.Send
set ePostaForm=nothing
%>

Dosya ekleyerek e-posta g�nderimi:

<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KEND� E-POSTA ADRES�N�Z"
ePostaForm.To="G�nderilecek adres"
ePostaForm.HTMLBody="Buraya gidecek mesaj"
ePostaForm.AddAttachment "c:FotograflarFotografim.jpg"
ePostaForm.Send
set ePostaForm=nothing
%>

Uzak sunucu kullanarak e-posta g�nderimi:

<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KEND� E-POSTA ADRES�N�Z"
ePostaForm.To="G�nderilecek adres"
ePostaForm.HTMLBody="Buraya gidecek mesaj"
ePostaForm.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
ePostaForm.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.sunucu.com" /*Sunucu veya IP adresi*/
ePostaForm.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 /*Sunucu G�nderim Port numaras� (TTnet Bunu T�rkiye i�in 587 olarak de�i�tirdi.*/
ePostaForm.Configuration.Fields.Update
ePostaForm.Send
set ePostaForm=nothing
%>

PHP ile RegEx Kullanarak G�ncel Deprem Bilgileri

Wed, 07 Oct 2009 15:09:02 GMT
[phpicon]Bu yaz�da PHP ve RegEx kullanarak Bo�azi�i �niversitesi Kandilli Rasathanesi sayfas�ndan g�ncel deprem bilgilerini nas�l alabilece�inizi g�stericem. Bu yaz� bu tarzda vermi� oldu�um 3. �rnek olacak ve �imdilik bu konu ile ilgili ba�ka �rnek yapmay� d��nm�yorum.[bol]

setlocale(LC_ALL, 'tr_TR', 'tr', 'turkish');
if(function_exists("date_default_timezone_set")) {
date_default_timezone_set('Europe/Istanbul');
}
function son_depremler($sayi=5) {
$contents=file_get_contents("http://www.koeri.boun.edu.tr/scripts/lst9.asp");
$pattern='/(d{4}).(d{2}).(d{2})s(d{2}):(d{2}):(d{2})s+(d{2}.d{4})s+(d{2}.d{4})s+(d+.d)s+([d.-s]+)(.+)/';
preg_match_all($pattern,$contents,$out);
unset($out[0]);
$depremler=array();
for($i=0; $i<$sayi; $i++) {
$depremler[]=array('timestamp' => mktime($out[4][$i],$out[5][$i],$out[6][$i],$out[2][$i],$out[3][$i],$out[1][$i]), 'enlem' => $out[7][$i], 'boylam' => $out[8][$i], 'derinlik' => $out[9][$i], 'buyukluk' => trim(str_replace("-.-","",$out[10][$i])), 'yer' => trim($out[11][$i]));
}
unset($out);
return $depremler;
}

setlocale ve date_default_timezone_set se�eneklerini daha �nce tarihle ilgili yaz�mda tarih i�lemleri yapaca��n�z her sayfada kullanman�z gerekti�ini s�ylemi�tim. son_depremler fonksiyonu varsay�lan de�er olarak 5 tan�ml� yani e�er siz bir de�er girmezseniz son 5 depremin bilgilerini geri d�nd�recektir. A�a��da �rnek olarak gelen veriyi nas�l ekrana bast�rabilece�inizi g�steren bir kod veriyorum.

foreach(son_depremler(3) as $deprem) {
echo strftime("%d %B %Y, %A %H:%M:%S", $deprem[timestamp]);
echo "

";
echo "Enlem: ".$deprem[enlem];
echo "

";
echo "Boylam: ".$deprem[boylam];
echo "

";
echo "Derinlik: ".$deprem[derinlik];
echo "

";
echo "B�y�kl�k: ".$deprem[buyukluk];
echo "

";
echo "Yer: ".$deprem[yer];
echo "

";
}

Kodlar sistemden dolay� d�zg�n �ekilde g�r�lemiyor. Buraya t�klayarak orjinal haline ula�abilirsiniz.

ASP Sunucu Bilgisini Elde Etme

Wed, 07 Oct 2009 12:30:54 GMT
[aspicon]Sitemizi ASP destekli bir sunucuda bar�nd�rd��m�z� d��nelim. Bu sunucuda projemizi olu�tururken veya geli�tirirken y�kl� olan bile�enleri g�rmek veya sunucu ile ilgili baz� bilgileri kullanmak durumunda olabiliriz. Bu y�zden burada verece�im haz�r kod ile rahatl�kla sunucu hakk�nda bir�ok bilgiye ula�abiliriz.[bol]

Bu size verece�im kodu y�llar �nce internette bulup, T�rk�ele�tirmi�tim. Fakat ilk haz�rlayan arkada��m�z�n maalesef ad�n� bilmedi�im ya da nereden buldu�umu hat�rlayamad��m i�in kendisinin ad�n� yazam�yorum.

sunucu_bilgisi.asp

Sunucu Bilgisi

<%
Dim emailList(4), uploadList(4), otherList(2), wLCID(124), inCount, rLang
emailList(0) = Array( "ASP Mail","SMTPsvg.Mailer","N","E-posta" )
emailList(1) = Array( "CDO NTS","CDONTS.NewMail","N","E-posta" )
emailList(2) = Array( "CDOSYS","CDO.Message","N","E-posta" )
emailList(3) = Array( "Dimac JMail","JMail.Message","N","E-posta" )
emailList(4) = Array( "Persits ASPEmail","Persits.MailSender","N","E-posta" )
uploadList(0) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload","N","Dosya Y�kleme" )
uploadList(1) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload","N","Dosya Y�kleme" )
uploadList(2) = Array( "Dundas Upload","Dundas.Upload.2","N","Dosya Y�kleme" )
uploadList(3) = Array( "Persits File Upload","Persits.Upload.1","N","Dosya Y�kleme" )
uploadList(4) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp","N","Dosya Y�kleme" )
otherList(0) = Array( "ActiveX Data Object","ADODB.Connection","Y" ,"Veritaban� uygulamalar� i�in gerekli")
otherList(1) = Array( "File System Object","Scripting.FileSystemObject","Y", "Dosya y�kleme uygulamalar� i�in gerekli" )
otherList(2) = Array( "Microsoft XML Engine","Microsoft.XMLDOM","N","XML uygulamalar� i�in gerekli" )
wLCID(0) = Array( 1078,"Afrikaans","af" )
wLCID(1) = Array( 1052,"Albanian","sq" )
wLCID(2) = Array( 1025,"Arabic(Saudi Arabia)","ar-sa" )
wLCID(3) = Array( 2049,"Arabic(Iraq)","ar-iq" )
wLCID(4) = Array( 3073,"Arabic(Egypt)","ar-eg" )
wLCID(5) = Array( 4097,"Arabic(Libya)","ar-ly" )
wLCID(6) = Array( 5121,"Arabic(Algeria)","ar-dz" )
wLCID(7) = Array( 6145,"Arabic(Morocco)","ar-ma" )
wLCID(8) = Array( 7169,"Arabic(Tunisia)","ar-tn" )
wLCID(9) = Array( 8193,"Arabic(Oman)","ar-om" )
wLCID(10) = Array( 9217,"Arabic(Yemen)","ar-ye" )
wLCID(11) = Array( 10241,"Arabic(Syria)","ar-sy" )
wLCID(12) = Array( 11265,"Arabic(Jordan)","ar-jo" )
wLCID(13) = Array( 12289,"Arabic(Lebanon)","ar-lb" )
wLCID(14) = Array( 13313,"Arabic(Kuwait)","ar-kw" )
wLCID(15) = Array( 14337,"Arabic(U.A.E.)","ar-ae" )
wLCID(16) = Array( 15361,"Arabic(Bahrain)","ar-bh" )
wLCID(17) = Array( 16385,"Arabic(Qatar)","ar-qa" )
wLCID(18) = Array( 1069,"Basque","eu" )
wLCID(19) = Array( 1026,"Bulgarian","bg" )
wLCID(20) = Array( 1059,"Belarusian","be" )
wLCID(21) = Array( 1027,"Catalan","ca" )
wLCID(22) = Array( 1028,"Chinese(Taiwan)","zh-tw" )
wLCID(23) = Array( 2052,"Chinese(PRC)","zh-cn" )
wLCID(24) = Array( 3076,"Chinese(Hong Kong)","zh-hk" )
wLCID(25) = Array( 4100,"Chinese(Singapore)","zh-sg" )
wLCID(26) = Array( 1050,"Croatian","hr" )
wLCID(27) = Array( 1029,"Czech","cs" )
wLCID(28) = Array( 1030,"Danish","da" )
wLCID(29) = Array( 1043,"Dutch(Standard)","n" )
wLCID(30) = Array( 2067, "Dutch(Belgian)","nl-be" )
wLCID(31) = Array( 9,"English","en" )
wLCID(32) = Array( 1033,"English(United States)","en-us" )
wLCID(33) = Array( 2057,"English(British)","en-gb" )
wLCID(34) = Array( 3081,"English(Australian)","en-au" )
wLCID(35) = Array( 4105,"English(Canadian)","en-ca" )
wLCID(36) = Array( 5129,"English(New Zealand)","en-nz" )
wLCID(37) = Array( 6153,"English(Ireland)","en-ie" )
wLCID(38) = Array( 7177,"English(South Africa)","en-za" )
wLCID(39) = Array( 8201,"English(Jamaica)","en-jm" )
wLCID(40) = Array( 9225,"English(Caribbean)","en" )
wLCID(41) = Array( 10249,"English(Belize)","en-bz" )
wLCID(42) = Array( 11273,"English(Trinidad)","en-tt" )
wLCID(43) = Array( 1061,"Estonian","et" )
wLCID(44) = Array( 1080,"Faeroese","fo" )
wLCID(45) = Array( 1065,"Farsi","fa" )
wLCID(46) = Array( 1035,"Finnish","fi" )
wLCID(47) = Array( 1036,"French(Standard)","fr" )
wLCID(48) = Array( 2060,"French(Belgian)","fr-be" )
wLCID(49) = Array( 3084,"French(Canadian)","fr-ca" )
wLCID(50) = Array( 4108,"French(Swiss)","fr-ch" )
wLCID(51) = Array( 5132,"French(Luxembourg)","fr-lu" )
wLCID(52) = Array( 1071,"FYRO Macedonian","mk" )
wLCID(53) = Array( 1084,"Gaelic(Scots)","gd" )
wLCID(54) = Array( 2108,"Gaelic(Irish)","gd-ie" )
wLCID(55) = Array( 1031,"German(Standard)","de" )
wLCID(56) = Array( 2055,"German(Swiss)","de-ch" )
wLCID(57) = Array( 3079,"German(Austrian)","de-at" )
wLCID(58) = Array( 4103,"German(Luxembourg)","de-lu" )
wLCID(59) = Array( 5127,"German(Liechtenstein)","de-li" )
wLCID(60) = Array( 1032,"Greek ","e" )
wLCID(61) = Array( 1037,"Hebrew","he" )
wLCID(62) = Array( 1081,"Hindi","hi" )
wLCID(63) = Array( 1038,"Hungarian","hu" )
wLCID(64) = Array( 1039,"Icelandic","is" )
wLCID(65) = Array( 1057,"Indonesian","in" )
wLCID(66) = Array( 1040,"Italian(Standard)","it" )
wLCID(67) = Array( 2064,"Italian(Swiss)","it-ch" )
wLCID(68) = Array( 1041,"Japanese","ja" )
wLCID(69) = Array( 1042,"Korean","ko" )
wLCID(70) = Array( 2066,"Korean(Johab)","ko" )
wLCID(71) = Array( 1062,"Latvian","lv" )
wLCID(72) = Array( 1063,"Lithuanian","lt" )
wLCID(73) = Array( 1086,"Malaysian","ms" )
wLCID(74) = Array( 1082,"Maltese","mt" )
wLCID(75) = Array( 1044,"Norwegian(Bokmal)","no" )
wLCID(76) = Array( 2068,"Norwegian(Nynorsk)","no" )
wLCID(77) = Array( 1045,"Polish","p" )
wLCID(78) = Array( 1046,"Portuguese(Brazil)","pt-br" )
wLCID(79) = Array( 2070,"Portuguese(Portugal)","pt" )
wLCID(80) = Array( 1047,"Rhaeto-Romanic","rm" )
wLCID(81) = Array( 1048,"Romanian","ro" )
wLCID(82) = Array( 2072,"Romanian(Moldavia)","ro-mo" )
wLCID(83) = Array( 1049,"Russian","ru" )
wLCID(84) = Array( 2073,"Russian(Moldavia)","ru-mo" )
wLCID(85) = Array( 1083,"Sami(Lappish)","sz" )
wLCID(86) = Array( 3098,"Serbian(Cyrillic)","sr" )
wLCID(87) = Array( 2074,"Serbian(Latin)","sr" )
wLCID(88) = Array( 1051,"Slovak","sk" )
wLCID(89) = Array( 1060,"Slovenian","s" )
wLCID(90) = Array( 1070,"Sorbian","sb" )
wLCID(91) = Array( 1034,"Spanish(Spain - Traditional Sort)","es" )
wLCID(92) = Array( 2058,"Spanish(Mexican)","es-mx" )
wLCID(93) = Array( 3082,"Spanish(Spain - Modern Sort)","es" )
wLCID(94) = Array( 4106,"Spanish(Guatemala)","es-gt" )
wLCID(95) = Array( 5130,"Spanish(Costa Rica)","es-cr" )
wLCID(96) = Array( 6154,"Spanish(Panama)","es-pa" )
wLCID(97) = Array( 7178,"Spanish(Dominican Republic)","es-do" )
wLCID(98) = Array( 8202,"Spanish(Venezuela)","es-ve" )
wLCID(99) = Array( 9226,"Spanish(Colombia)","es-co" )
wLCID(100) = Array( 10250,"Spanish(Peru)","es-pe" )
wLCID(101) = Array( 11274,"Spanish(Argentina)","es-ar" )
wLCID(102) = Array( 12298,"Spanish(Ecuador)","es-ec" )
wLCID(103) = Array( 13322,"Spanish(Chile)","es-c" )
wLCID(104) = Array( 14346,"Spanish(Uruguay)","es-uy" )
wLCID(105) = Array( 15370,"Spanish(Paraguay)","es-py" )
wLCID(106) = Array( 16394,"Spanish(Bolivia)","es-bo" )
wLCID(107) = Array( 17418,"Spanish(El Salvador)","es-sv" )
wLCID(108) = Array( 18442,"Spanish(Honduras)","es-hn" )
wLCID(109) = Array( 19466,"Spanish(Nicaragua)","es-ni" )
wLCID(110) = Array( 20490,"Spanish(Puerto Rico)","es-pr" )
wLCID(111) = Array( 1072,"Sutu","sx" )
wLCID(112) = Array( 1053,"Swedish","sv" )
wLCID(113) = Array( 2077,"Swedish(Finland)","sv-fi" )
wLCID(114) = Array( 1054,"Thai","th" )
wLCID(115) = Array( 1073,"Tsonga","ts" )
wLCID(116) = Array( 1074,"Tswana","tn" )
wLCID(117) = Array( 1055,"Turkish","tr" )
wLCID(118) = Array( 1058,"Ukrainian","uk" )
wLCID(119) = Array( 1056,"Urdu","ur" )
wLCID(120) = Array( 1075,"Venda","ve" )
wLCID(121) = Array( 1066,"Vietnamese","vi" )
wLCID(122) = Array( 1076,"Xhosa","xh" )
wLCID(123) = Array( 1085,"Yiddish","ji" )
wLCID(124) = Array( 1077,"Zulu","zu" )
Function checkObject( comIdentity )
On Error Resume Next
checkObject = False
Err = 0
Set xTestObj = Server.CreateObject( comIdentity )
If Err = 0 Then checkObject = True
Set xTestObj = Nothing
Err = 0
End Function
Public Function CheckCOM(byVal comList, byRef inCount)
Dim strTxt
strTxt = ""
inCount = 0
For Idx = LBound( comList ) To UBound( comList )
Provider = Idx
If checkObject( comList(Idx)(1) ) Then
strTxt = strTxt & vbTab & "" & comList(Idx)(0) & "" & VbCrlf
strTxt = strTxt & "Y�kl� ( " & comList(Idx)(3) & " )" & VbCrlf
inCount = inCount + 1
Else
strTxt = strTxt & vbTab & "" & comList(Idx)(0) & "" & VbCrlf
strTxt = strTxt & "Y�kl� De�il! ( " & comList(Idx)(3) & " )" & VbCrlf
End If
Next
strTxt = strTxt & "" & VbCrlf
CheckCOM = strTxt
End Function
SUB ShowServerVars()
On Error Resume Next
Response.Write "" & VbCrlf
Response.Write "Sunucu De�erleri" & VbCrlf
Response.Write "" & VbCrlf
s=""
For Each Key In Request.ServerVariables
If Request.ServerVariables(Key)<>"" Then
If Ucase(Key)="AUTH_PASSWORD" Then
t=String(len(Request.ServerVariables(Key)),"*")
Else
t=Request.ServerVariables(Key)
If Instr(1 ,Key,"ALL_",1)<>1 AND Instr(1 ,Key,"HTTP_AUTHORIZATION",1)=0 Then
s = s & "" & Key & "" & VbCrlf
s = s & "" & t & "#@#" & VbCrlf
End If
End If
End If
Next
a=Split(s,"#@#")
a=QuickSort(a,0,UBound(a))
Response.Write Join(a,VbCrlf)
End Sub
Function QuickSort(Arr,loBound,hiBound)
If hiBound - loBound = 1 then
If Arr(loBound) > Arr(hiBound) then
temp=Arr(loBound)
Arr(loBound) = Arr(hiBound)
Arr(hiBound) = temp
End If
End If
pivot = Arr(int((loBound + hiBound) / 2))
Arr(int((loBound + hiBound) / 2)) = Arr(loBound)
Arr(loBound) = pivot
loSwap = loBound + 1
hiSwap = hiBound
Do
While loSwap < hiSwap and Arr(loSwap) <= pivot
loSwap = loSwap + 1
Wend
While Arr(hiSwap) > pivot
hiSwap = hiSwap - 1
Wend
If loSwap < hiSwap then
temp = Arr(loSwap)
Arr(loSwap) = Arr(hiSwap)
Arr(hiSwap) = temp
End If
Loop while loSwap < hiSwap
Arr(loBound) = Arr(hiSwap)
Arr(hiSwap) = pivot
If loBound < (hiSwap - 1) then
Call QuickSort(Arr,loBound,hiSwap-1)
End If
If hiSwap + 1 < hibound then
Call QuickSort(Arr,hiSwap+1,hiBound)
End If
QuickSort=Arr
End Function
Function CheckMDAC
On Error Resume Next
Set obj=Server.CreateObject("ADODB.Connection")
CheckMDAC=CheckMDAC & "MDAC (require 2.7)" & VbCrlf
If obj.version < "2.7" Then
CheckMDAC=CheckMDAC & " Sizin Versiyonunuz " & obj.version & "�(G�ncellenmesi Gerekli!)" & VbCrlf
Else
CheckMDAC=CheckMDAC & " Sizin Versiyonunuz " & obj.version & "�(Tamam)" & VbCrlf
End if
Set obj=Nothing
End Function
Function SetLCID(byRef rLang)
Dim wLang, wPos, rCount
wlang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
wPos = InStr(1 , wLang,",")
If wPos > 0 Then
wLang = Left(wLang, wPos - 1)
End If
For rCount = 0 to UBound(wLCID)
If LCase(wLang) = wLCID(rCount)(2) Then
SetLCID = wLCID(rCount)(0)
rLang = wLCID(rCount)(1)
Exit Function
End If
Next
End Function
Response.write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write( CheckCOM(emailList,inCount) )
If inCount = 0 Then
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
End If
Response.Write( CheckCOM(uploadList,inCount) )
If inCount = 0 Then
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
End If
Response.Write( CheckCOM(otherList,inCount) )
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write CheckMDAC
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
response.write "" & VbCrlf
Response.Write "" & VbCrlf
call ShowServerVars()
response.write ""
Response.Write "
Bile�enler
E-posta g�nderimi i�in en az bir bile�en y�kl� olmas� gerekmektedir.
Dosya y�klemesi i�in en az bir bile�en y�kl� olmas� gerekmektedir.
" & ScriptEngine & " ( require 5.6 ) " & "Sunucu Versiyonu: " & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
If ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion < "5.6" Then
Response.Write " ( G�ncellenmesi Gerekli )"
Else
Response.Write " ( Tamam )"
End If
Response.Write "
Taray�c� LCID: " & SetLCID(rLang) & "
Sunucu LCID: " & session.lcid & "
Veritaban� Fiziksel Yolu: " & Server.MapPath("forum/admin/database/soop.mdb") & "
" & VbCrlf
on error goto 0
%>

ASP InStr Fonksiyonu

Fri, 25 Sep 2009 10:57:07 GMT
[aspicon]ASP'de �ok s�k kullan�lan haz�r fonksiyonlardan biri olan [mcode]InStr[/mcode]'nin kullan�m� ile ilgili bir ka� bilgi verece�im. [mcode]InStr[/mcode] gelen veri i�inde aranan karakterlerin varl��n� ve yerini bulmak konusunda bilgi vermektedir.[bol]

Aranan kelimenin yerini bulmak:

Veri=�Merhaba, ASP'ye ho�geldin!�
Bul=InStr(Veri,�hab�)
Response.Write(Bul)

Bu kod sonucunda kar��m�za "4" sonucu ��kacakt�r. Yani "hab" karakteri 4. karakterden itibaren ba�lamaktad�r.

Aranan kelimenin varl��n� kontrol etmek:

Veri=�Merhaba, ASP'ye ho�geldin!�
If InStr(Veri,�hab�) then
Response.Write "Gelen veri ""hab"" karakterlerini i�ermektedir."
End If

Bu kod sonucunda kar��m�za "Gelen veri "hab" karakterlerini i�ermektedir." sonucu ��kacakt�r.

Bile�enler
E-posta g�nderimi i�in en az bir bile�en y�kl� olmas� gerekmektedir.
Dosya y�klemesi i�in en az bir bile�en y�kl� olmas� gerekmektedir.
" & ScriptEngine & " ( require 5.6 )	" & "Sunucu Versiyonu: " & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion If ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion < "5.6" Then Response.Write " ( G�ncellenmesi Gerekli )" Else Response.Write " ( Tamam )" End If Response.Write "
Taray�c� LCID:	" & SetLCID(rLang) & "
Sunucu LCID:	" & session.lcid & "
Veritaban� Fiziksel Yolu:	" & Server.MapPath("forum/admin/database/soop.mdb") & "