t = Replace(t,”   “,chr(9))

t = Replace(t,”  ”,”  ”)

t = Replace(t,”<”,”<”)

t = Replace(t,”>”,”>”)

t = Replace(t,”<br>”,Chr(13))

yazitext = t

t = Replace(t,chr(9),”   “)

t = Replace(t,”  ”,”  ”)

t = Replace(t,”<”,”<”)

t = Replace(t,”>”,”>”)

t = Replace(t,Chr(13),”<br>”)

t = Replace(t,”   “,chr(9))   t = Replace(t,”  ”,”  ”)   t = Replace(t,”<”,”<”)   t = Replace(t,”>”,”>”)   t = Replace(t,”<br>”,Chr(13))haber = t

t = Replace(t,chr(9),”   “)   t = Replace(t,”  ”,”  ”)   t = Replace(t,”<”,”<”)   t = Replace(t,”>”,”>”)   t = Replace(t,Chr(13),”<br>”)

Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject(“Msxml2.ServerXMLHTTP”)
objXmlHttp.open “GET”, “http://www.asp101.com/samples/httpsamp.asp“, False
objXmlHttp.send
‘ Response.Write “Status: ” & objXmlHttp.status & ” ” _
‘   & objXmlHttp.statusText & “<br />”

strHTML = objXmlHttp.responseText
Set objXmlHttp = Nothing

%>

<%= strHTML %>

<%= Server.HTMLEncode(strHTML) %>

    Const BLOCKTAGLIST = “;APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;”

    Dim nPos1
    Dim nPos2
    Dim nPos3
    Dim strResult
    Dim strTagName
    Dim bRemove
    Dim bSearchForBlock

    nPos1 = InStr(strText, “<”)
    Do While nPos1 > 0
        nPos2 = InStr(nPos1 + 1, strText, “>”)
        If nPos2 > 0 Then
            strTagName = Mid(strText, nPos1 + 1, nPos2 – nPos1 – 1)
       strTagName = Replace(Replace(strTagName, vbCr, ” “), vbLf, ” “)

            nPos3 = InStr(strTagName, ” “)
            If nPos3 > 0 Then
                strTagName = Left(strTagName, nPos3 – 1)
            End If

            If Left(strTagName, 1) = “/” Then
                strTagName = Mid(strTagName, 2)
                bSearchForBlock = False
            Else
                bSearchForBlock = True
            End If

            If InStr(1, TAGLIST, “;” & strTagName & “;”, vbTextCompare) > 0 Then
                bRemove = True
                If bSearchForBlock Then
                    If InStr(1, BLOCKTAGLIST, “;” & strTagName & “;”, vbTextCompare) > 0 Then
                        nPos2 = Len(strText)
                        nPos3 = InStr(nPos1 + 1, strText, “</” & strTagName, vbTextCompare)
                        If nPos3 > 0 Then
                            nPos3 = InStr(nPos3 + 1, strText, “>”)
                        End If
        

                        If nPos3 > 0 Then
                            nPos2 = nPos3
                        End If
                    End If
                End If
            Else
                bRemove = False
            End If

            If bRemove Then
                strResult = strResult & Left(strText, nPos1 – 1)
                strText = Mid(strText, nPos2 + 1)
            Else
                strResult = strResult & Left(strText, nPos1)
                strText = Mid(strText, nPos1 + 1)
            End If
        Else
            strResult = strResult & strText
            strText = “”
        End If

        nPos1 = InStr(strText, “<”)
    Loop
    strResult = strResult & strText

    RemoveHTML = strResult
End Function
%>

Public  Function VeriAl(strGelen)
     Set  objVeriAl = Server.CreateObject(“Microsoft.XMLHTTP” )
    objVeriAl.Open “GET” , strGelen,  FALSE
    objVeriAl.sEnd�
    VeriAl = objVeriAl.Responsetext
     SET  objVeriAl =  Nothing
End  Function  

sehir = “TUXX0029″
strAdres = “http://weather.yahoo.com/forecast/” &sehir&”_c.html” 
strVeri = VeriAL(strAdres)�
basinc=InStr(strVeri,”<dt>Barometer:</dt><dd>” )
strbasinc=Mid(strVeri,basinc+23,6)
hissedilen=InStr(strVeri,”<dt>Feels Like:</dt><dd>” )
strhissedilen=Mid(strVeri,hissedilen+24,6)
guncelleme=InStr(strVeri,”<em>Current conditions as of ” )
strguncelleme=Mid(strVeri,guncelleme+28,6)
rutubet=InStr(strVeri,”<dt>Humidity:</dt><dd>” )
strrutubet=Mid(strVeri,rutubet+22,3)
cig=InStr(strVeri,”<dt>Dewpoint:</dt><dd>” )
strcig=Mid(strVeri,cig+22,7)
yuksek=InStr(strVeri,”<p>High:” )
strenyuksek=Mid(strVeri,yuksek+9,7)
strendusuk=Mid(strVeri,yuksek+23,8)
resim=InStr(strVeri,”forecast-icon” )
strresim=Mid(strVeri,resim+38,57)
%>
<font face=”Tahoma” style=”font-size: 8pt; font-weight: 700″>TRABZON iin Hava Durumu<br/>
</font>
<p style=”line-height: 150%”>
<font face=”Tahoma” style=”font-size: 8pt”>
<div><img src=”<%=strresim %>”></div>
<div style=”font-size:30pt;position: absolute; width: 78px; height: 21px; z-index: 1; left: 127px; top: 59px” id=”layer2″><%=strhissedilen %>
</div>
<div style=”position: absolute; width: 150px; height: 21px; z-index: 1; left: 20px; top: 102px” id=”layer1″>En Yksek: <%=strenyuksek %> – En Dk: <%=strendusuk %></div>

<div style=”position: absolute; width: 235px; height: 167px; z-index: 2; left: 20px; top: 130px” id=”layer3″>
Gncelleme: <%=strguncelleme %><br/>
Hissedilen: <%=strhissedilen %><br/>
Basn: <%=strbasinc %><br/>
Nem: <%=strrutubet %><br/>
i Noktas: <%=strcig %> <br/>
En Yksek: <%=strenyuksek %> – En Dk: <%=strendusuk %>
</div>

     </font>

<%

dim degisken

Select Case degisken
  case 1

KoÅŸul…………

 case 2

KoÅŸul………..

case 3………….

KoÅŸul

…………….

………………

end select

%>

Örnek :

<%

dim sayi

Select Case sayi
  case 1

response.write(“Bir”)

 case 2

response.write(“Ä°ki”)

case 3

response.write(“Üç”)

end select

%>

integer sayısal değişkenler

string kelime deÄŸiÅŸkenleri

char karakterikesel deÄŸiÅŸkenler Vs.

Ama bunların türlerini belirlememize gerek yoktur Asp bunu karşılaştırıken String mi integermi olduğunu anlar.   (dim degisken = interger böyle bir tip tanımlaması yoktur)

Dim asp fonksiyonu ile beraber değişkenler tanımlanır. örnek olarak;

dim degisken

dim degisken,degisken2,degisken3, ………… , degiskenn ÅŸeklinde tanımlanabilir.

Dim degisken

degisken = “12″

response.write(degisken)

Degisken.asp olarak yazılımı ise

<html>
<head>

</head>
<body>

<%

Dim degisken

degisken = “12″

response.write(degisken)

%>

</body>
</html>

Asp dilin de en sevdiğim güzelliklerinden biri de Dim kullanmadan değişken kullanılmasıdır.

dim degisken=”12323″ yerine herhangi bir yerde

degisken=”12323″ diyerek tanımlayabiliyorsunuz. Ve Delphi C gibi dillerdeki gibi deÄŸiÅŸkenlerin en üst bölümde tanımlanmasınada gerekyok . Herhangi bir yerde ister dim ister dim siz deÄŸiÅŸken tanımlıyabiliyorsunuz buda size program yazarken hız kazandırıyor.  

fonksiyonlar asp deki standar sub fonkisyonu ile tanımlanir

sub fonksiyonadi()

veya deÄŸiÅŸken donecek isek

sub fonksiyonadi(degisken1,degisken2)

foknksiyonlar call sabit asp fonksiyonu ile geri çağırılabilir.

Fonksiyon tanımlamasına bir  örnek;

<html>
<head>
<%
sub bizimfonksiyon(num1,num2)
response.write(num1*num2)
end sub
%>
</head>
<body>

<p>Sonuç: <%call bizimfonksiyon(3,4)%></p>
</body>
</html>

Daha geliÅŸmiÅŸ bir editör için FrontPage 2003 ÅŸiddetle önerilir.  Yapılması gereken kodlar notepad veya baÅŸka bir editörde yazıldıktan sonra wwwroot klasörüne yani localhost ‘un IIS den gösterdigi dizine x.asp olarak kaydedilmesi yeterli olacaktır. (x = dosya adı)

Asp Programlama dili <% %> Tagı ile diğer dillerden ayrıştırılır. Dosya uzantıları .asp ile biter.

örnek bir sayfa default.asp olsun ilk kodumuzu yazalım.

<%
response.write(“Asp ye baÅŸladık. Hadi hayırısı.”)

%>

Bu sayfa http://localhost/default.asp olarak browser dan çağırıldığında.

Asp ye başladık. Hadi hayırısı.

Çıktısı alınacaktır.

Asp ile Html kullanımı ?

<html><head><title>Asp ile Html kullanımı ?</title></head>

<body>
</body>
</html>

Klasik HTML kod blogu IIS <%%> taglarından ve .asp uzantısından html taglarından ayrı olarak asp leri derliyerek (compile) HTML taglarına dönüştürecektir .

Basit bir Asp ile HTML kullanımına örnek ;

aspvehtml.asp   adlı bir dosyamız olsun

<html><head><title>Asp ile Html kullanımı ?</title></head>

response.write(“Asp ye HTML el ele.. .:) “)

<body>
</body>
</html>

Bu sayfa http://localhost/aspvehtml.asp Browser çıktısı (iexplorer, firefox):

Asp ye HTML el ele.. .:)

şeklinde olacaktır.

Sanırım kod manteritesi biraz daha anlaşılmaya başlıyoruz.

Bütün yapmanız gereken çok fazla pratik ve merak etmek ?

ASP dinamik web sayfaları hazırlamak için Microsoft (r) tarafından geliştirilmiş bir teknik, uygulanan bir teknolojidir. İlgili script dillerinden biri seçilerek (vbscript ;jscript vb) oluşturulan sayfaların (.asp) bir uygulama programı vasıtası ile yorumlanması ve HTML çıktısı üretmesi ile sonuçlanan bir işlemler bütünüdür. İlk versiyonu 1996 yılında Microsoft tarafından IIS 3.0 ( Internet Information Server ) üzerinde çalışacak şekilde dizayn edildi, 1998 yılında ASP 2.0 IIS 4.0 üzerinde çalışıyor ve daha fazla özellik içeriyordu. Şu an için kullanılan ASP versiyonu 3.0 dır ve Windows 2000 Server ve IIS 5.0 üzerinde çalışmaktadır.

Kullanıcı herhangi bir browser (iexplorer, ,netscape, konqueror vb) vasıtası ile ilgili siteye baÄŸlandığında ki bu kullanıcının browser hanesine ilgili adresi yazması ve enter’a basması ile gerçekleÅŸir, ulaÅŸmak istediÄŸi dosya istekte bulunan ve bu hizmeti sunan uygulama programı tarafından (web server) kullanıcıya gönderilir. Ancak bu durum html ve htm uzantılı dosyalar için böyle iken kullanıcı .asp uzantılı bir dosyaya istekde bulunduÄŸunda uygulama yazılımı ( web server) istenilen bu dosyayı önce yorumlar ve bu iÅŸlemin sonucunda üretilen standard html kodları kullanıcıya gönderirlir. Bu process (iÅŸlemler) kurs notlarının ilerleyen sayfalarında daha ayrıntılı olarak anlatılacaktır.

Asp’nin gücü iki temel noktaya dayanır.

Sonuç olarak kullanıcıya iletilecek html dosyası kullanıcı istekte bulunana kadar oluşturulmaz
Kullanılan browser tipi yazılan asp dosyaları için önemli değildir. Çünkü yorumlanan asp dosyaları standard html output ( çıktı ) üretirler.
Web Server
Web, internet üzerinde yer alan grafiksel bir servistir. Hazırlanan içeriklerin ( grafik, yazı , ses, animasyon, görüntü vb ) dünya üzerinde yeralan tüm kullanıcılara iletilmesi ve kullanıcıların bu dosyalara ulaşabilmesi için internete bağlı bir bilgisayar üzerinde çalışan uygulama yazılımını web server olarak tanımlayabiliriz. Web server programları kuruldukları işletim sistemine göre farklılık gösterebilir. Sözgelimi web server olarak unix işletim sistemini kullanan bilgisayarlar Apachi ( Apachinin NT de çalışan sürümleride vardır. ) kullanırken windows işletim sistemini ( server ) kullanan bilgisayarlar ise web server programı olarak IIS (Internet Information Server ) kullanabilir.

İçerik hareketli Statik Web Sayfası ?

Bir web gezgini olarak internette dolaşırken sürekli olarak statik sayfalarda geziniyorsunuz demektir. Statik sayfa onu oluşturan kişinin ( webmaster ) bu sayfanın içeriğini bitirdiği tamamladığı ve kullanıcıların bu sayfaya her uğradıklarında aynı içeriği gördüğü sayfalardır. İçeriklerinin değişmesi için yeniden tasarlanılmaları gereklidir. Bu zaman ve iş gücü kaybına yol açan bir etkendir. Statik sayfa tanımını ve özelliklerini belirleyen bazı önemli özelliklerin listesini aşağıda bulabilirsiniz.

Statik Sayfalar için :

Tasarımcı ( webmaster ) sayfasını hazırlar ve .htm uzantılı bir dosya olarak kayıt eder
Tasarlanan dosya Web Server’ a yanınlanmak üzere yerleÅŸtirilir
Kullanıcı browserının adres kısmına bu sayfaya ulaşmak için gerek adresi yazar.
Bu isteğe karşı Web Server ilgili dosyayı bulur.
Web Server HTML içeriÄŸi istek gönderen browser’a network ( internet ) aracılığı ile yollar
Browser gönderilen bu HTML dosyasını işler ve ekranda gösterir
İçeriği tamamı ile önceden belirlenmiş bazı kriterlere bağlı olarak değişen sayfaları dinamik sayfalar olarak adlandırabiliriz. Bu değişiklik sayfanın aldığı bazı girdilere göre olabilir. Dinamik sayfaların Web Server tarafında yorumlanma işlemini aşağıda bulabilirsiniz

Dinamik Sayfalar için :

Programmer veya Web Admin ( webmaster ) bazı komut dosyalarınıda içeren bir dosya ( asp ) hazırlar ve .asp uzantılı bir dosya olarak kayıt eder.
Tasarlanan dosya Web Server’ a yanınlanmak üzere yerleÅŸtirilir.
Kullanıcı browserının adres kısmına bu sayfaya ulaşmak için gerek adresi yazar.
Bu isteğe karşı Web Server komutları içeren ilgili dosyayı bulur.
Web Server bu komutlar dizisini işleyerek HTML output ( çıktı ) üretir.
Web Server oluÅŸturulan bu HTML çıktıyı istekde bulunan browser’ a gönderir.
Browser gönderilen bu HTML dosyasını işler ve ekranda gösterir.
Bu kısa açıklamalardan sonra ASP dosyalarını oluşturabilmek ve çalıştırabilmek için ihtiyacımız olacak araçlara bir göz atalım

Asp Sayfaları hazırlayabilmek için bir text editörü, bu notepad olabilir fakat daha rahat kullanım kolaylıkları olan ( Visual Interdev, Home Site vb ) editörlerde mevcuttur.
Hazırlanan Web Sayfalarını yorumlamak ( bu işlem asp.dll vasıtası ile gerçekleştirlir, daha sonra ayrıntıları ile ele alınacaktır. ) için kullanılacak Web Server yazılımı.
Sayfaları test etmek amaçlı kullanılacak herhangi bir Browser.