Asp Nedir? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

coders34 · 05 Temmuz 2006, 12:35

Asp Microsoft tarafından geliştirilmiş bir script dilidir. Asıl adı Active Server Pages (Etkin Sunucu Sayfaları)'dir. Asp çağımızda gittikçe yaygınlaşan bir dildir, bunun en büyük nedeni kolay yönetilebilir olması, veritabanı bağlantıları ile birçok form işini kolaylaştırma gibi özelliklere sahip tabii bunlara birçoğunu ekleyebiliriz. Asp dosyalarını çalıştırmak için bir browserdan başka asp teknolojisini tanıyan bir server (sunucu) lazım. HTML dosyalarında dosyanın üzerine iki defa tıkladığımızda tarayımız açılıyordu kodları yorumlayıp sayfayı gösteriyordu, ama asp dosyalarında yani uzantısı .asp olan dosyaların eğer üzerine iki defa tıklarsanız ya sadece kodlar görünecek ya da tarayınız bu dosyayı download etmeye çalışacaktır. Çünkü sadece browser asp kodlarını yorumlayamaz ve az önce söylediğim şeylerden biri olur. İşte bunlarla karşılaşmamak için bir web sunucu kurmanız gerekir tabii bu dili Microsoft geliştirdiği için Microsoft'un bir web sunucusunu kurmanız lazım.Eskiden asp sadece Microsoft tabanlı sunucularda çalıştırılabiliyordu ama şu an Unix tabanlı işletim sistemlerinde de çalıştırılabiliyor. Eğer Windows 95/98 kullanıyorsanız PWS ( Personal Web Server - Kişisel Web Sunucu ) veya Windows 2000/Nt kullanıyorsanız IIS( Internet Information Services - Internet Hizmetleri Yöneticisi ) kullanmanız gerekir. PWS Windows 98 Cd'si ile birlikte geliyor ve CD'nin Add-on klasöründe bulunuyor. IIS ise Windows'a sonradan ekleniyor. Windows 2000 Professional da kurulmamış, Server da ise kurulmuş olarak geliyor. Gerçi Windows 2000 de de Denetim Masası*Program Ekle/Kaldır*Windows Bileşenleri Ekle/Kaldır'dan ekliyorsunuz. Asp CGI/Perl'e karşı geliştirildiği düşünülmektedir çünkü Asp'den önce veri işleri, form doldurma, email yollama gibi işler için CGI kullanılıyordu ama CGI bazı yerlerde yetersiz kalıyordu özellikle veritabanı işlemlerinde ASP ise bu işi kolaylaştırarak bize sunuyor. Asp'nin şu an 3.0 versiyonu mevcut ve eminim ki Microsoft 3.5 gibi sürüm üzerinde çalışıyorlardır. Asp sunucu taraflı bir dildir.Peki bu nedemek? Sunucu taraflı demek kodların sunucuda yorumlarınıp sonuçların istemciye gönderilmesi demek.Yani şöyle açıklayim siz bir istemci olarak asp sayfaları kullanan bir siteye gittiğinizde tarayıcınız sunucudan adresini yazdığını dosyayı ister.Sunucu bakar eğer Asp dosyası ise önce kodları yorumlar bunu Asp.dll dosyasını kullanarak yapar ve eğer hata yoksa bildiğimiz HTML halinde sonuçlar çıkar bunlarıda tarayıcınıza yollar tarayıcınızda o kodları yorumlayıp sonuçları size gösterir.Bir sitede eğer bir asp dosyasını görüntülüyor olsanız bile kaynaklarında tek kelime bile asp kodu yoktur bunun nedeni az önce an yazdığımız server taraflı olmasıdır.

coders34 · 05 Temmuz 2006, 12:38

Asp ' de Üyelik Sistemi :


<HTML>
<HEAD>
<TITLE>Hata!</TITLE>
<LINK HREF=css/css.css REL=stylesheet TYPE=text/css>
<meta http-equiv=refresh content="2; URL=javascript:history.go(-1)">
</HEAD>
<BODY>
 
Hata : E-Mail Bölümünü Eksik! E-Mail Adresinizi Doldurmadan Üye Olamazsiniz...
<center>Simdi Geldiginiz Sayfaya Yönlendiriliyorsunuz!</center>
<center><a href="javascript:history.go(-1)">Eger Uzun Bir Süre Burada Kalirsaniz Tiklayin...</a></center>
</body>
</html>

Hata Tipi:
Active Server Sayfaları, ASP 0126 (0x80004005)
'dahili.asp' içerik dosyası bulunmadı.
/yesilaski/uyelik/hata/hataad.asp, line 1

dahili.asp :

<%
Vt_Yolu=Server.MapPath("db/uyelik.mdb" )
Cumle= "DBQ=" & Vt_Yolu &";Driver={Microsoft Access Driver (*.mdb)}"
%>

coders34 · 05 Temmuz 2006, 12:41

MYSQL Üye+date :

<%
cinsiyet = request("cinsiyet" )
sehir = request("sehir" )
yas = request("yas" )
yas1 = request("yas1" )
sayfa = CInt(Request.QueryString("sayfa" ))
%>

<%
tarih1 = DateAdd("n" , -10, Now())
%>

<%
Dim Rs2, kayitsayisi, MySQL
mySQL="Select COUNT(*) FROM tbl WHERE cinsiyet='" & cinsiyet &"' AND tarih >= '" & tarih1 &"'"
Set Rs2 =baglan.Execute(mySQL)
kayitsayisi=Rs2(0)
toplam = kayitsayisi
%>
<table border="0" width="598" id="table6" height="103" cellspacing="0" cellpadding="0" bordercolor="#000000">
<%
sayfasay = Int(toplam)
if sayfa = "" or not IsNumeric(sayfa) or sayfa = 0 then
sayfa = Int(1)
Else
sayfa = CInt(sayfa)
end If
verisayisi = Int(5)
baslangic = sayfa*verisayisi
baslangic = baslangic-verisayisi
sayfalar = Int(sayfasay/verisayisi)+1
set rs=baglan.Execute("select*from tbl WHERE cinsiyet='" & cinsiyet &"' and tarih >= '" & tarih1 &"' limit " & baslangic & ", " & verisayisi & ";" )
If RS.Bof And RS.Eof Then
Response.write("kayıt yok" )
Else
Do Until Rs.Eof
%>
<tr>
<td width="9" rowspan="4" height="93" bgcolor="#F8F8F8">

</td>
<td width="298" height="19" colspan="2" bgcolor="#F8F8F8">


 <%=rs("kulad" ) %></td>
<td width="183" valign="middle" height="19" bgcolor="#F8F8F8"> </td>
<td width="25" valign="middle" align="center" height="19" bgcolor="#F8F8F8">
</td>
<td width="77" valign="middle" align="left" height="19" bgcolor="#F8F8F8">
</td>
<td width="6" align="left" height="98" bgcolor="#F3F7F8" rowspan="4">
</td>
</tr>
<tr>
<td width="104" rowspan="3" height="74" bgcolor="#FFE0C1">

<img border="0" src="uye_resim/a.gif" width="88" height="71"></td>
<td width="194" height="26" bgcolor="#FFE0C1">

 <%=rs("yas" ) %> Yaşında
, <%=rs("cinsiyet" ) %> 
<%=rs("sehir" ) %> ' de Yaşıyor..</td>
<td width="183" valign="middle" height="26" bgcolor="#FFE0C1">
 <%=rs("tarih" ) %>// 
<%=tarih1 %></td>
<td width="25" align="center" height="26" bgcolor="#FFE0C1">
♥</td>
<td width="77" align="left" height="26" bgcolor="#FFE0C1">

<a href="mesaj_gonder.asp?uye=<%=rs("kulad" ) %>">

Mesaj Gonder</a></td>
</tr>
<tr>
<td width="194" valign="middle" height="46" rowspan="2" bgcolor="#FFE0C1">

177 cm, 69 kg, Oğlak, 
Elâ gözlü,
Siyah saçlı</td>
<td width="183" valign="middle" rowspan="2" height="53" bgcolor="#FFE0C1">
 <%=Left(rs("hakk" ),100) %>...</td>
<td width="25" align="center" height="26" bgcolor="#FFE0C1">
☺</td>
<td width="77" align="left" height="26" bgcolor="#FFE0C1">


<a href="profil_detay.asp?uye_no=<%=rs("Id" ) %>">

Detaylı Profil</a></td>
</tr>
<tr>
<td width="25" height="27" bgcolor="#FFE0C1">

₪</td>
<td width="77" height="27" align="left" bgcolor="#FFE0C1">

<a href="ark_kaydet.asp?id=<%=rs("Id" ) %>&isim=<%=rs("kulad" ) %>">

Listeme Ekle</a></td>
</tr>
<tr>
<td width="598" colspan="7" height="5" bgcolor="#F3F7F8">
 </td>
</tr>
<%
rs.Movenext
Loop %>
<%End If %>
</table>
<table border="0" width="100%" id="table7">
<tr>
<td>


<%
If CInt(sayfa) = 1 Then
Response.Write " "
Else
a = CInt(sayfa) -1
Response.Write "<a href=uye_list.asp?yas=" &yas&"&yas1=" &yas1&"&cinsiyet=" &cinsiyet&"&sehir=" &sehir&"&sayfa=" & a & qstring &"><< Önceki </a> "
End If
If CInt(sayfa) + 6 > CInt(sayfalar) Then
b = CInt(sayfalar)
Else
b = CInt(sayfa) + 6
End If
If CInt(sayfa) =< 6 Then
c = 1
Else
c = CInt(sayfa) - 6
End If
For j = c To b
If j = CInt(sayfa) Then
Response.Write "" & j & " "
Else
Response.Write "<a href=uye_list.asp?yas=" &yas&"&yas1=" &yas1&"&cinsiyet=" &cinsiyet&"&sehir=" &sehir&"&sayfa=" & j & qstring &">" & j & "</a> "
End If
Next
If CInt(sayfa) => CInt(sayfalar) Then
Response.Write " "
Else
a = CInt(sayfa) + 1
Response.Write "<a href=uye_list.asp?yas=" &yas&"&yas1=" &yas1&"&cinsiyet=" &cinsiyet&"&sehir=" &sehir&"&sayfa=" & a & qstring &"> Sonraki >></a> "
End If

%>

coders34 · 05 Temmuz 2006, 12:42

Üye 15 dakika sonra offline olsun

<%
Set istatistik4 = server.createobject("adodb.recordset" )
SQL="Select * from uyeler where online = 'evet' order by id desc"
istatistik4.Open SQL,baglantim,1,3

If istatistik4.Eof Then
Response.Write "Şu anda online üye yok!!!"
Else
Do While not istatistik4.Eof
Response.Write "<a href=javascript:YeniPencere('uye_profil.asp?uye_id =" &istatistik4("id" )&"','200','150','650','167')>" &istatistik4("kadi" )&"</a>, "
istatistik4.Movenext
Loop
End If
%>

Çıkış.ASP :

----
<%
uye_online.update
uye_online("online" ) = "hayir"
uye_online.update

Session ("kadi" ) = ""
Session ("sifre" ) = ""
Session ("uye_seviyesi" ) = ""
Session ("online" ) = "cikti"

Response.Cookies ("kadi" ) = ""
Response.Cookies ("sifre" ) = ""
Response.Cookies ("uye_seviyesi" ) = ""

Response.Redirect "default.asp"
%>

coders34 · 05 Temmuz 2006, 12:47

Yeni Başlayanlar İçin Hazır Site

Dwnload :

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
google_ad_section_end -->

kercan01 · 05 Temmuz 2006, 12:54

Bana asp'yi öğretebilecek olan vaarmı?

NewYork · 05 Temmuz 2006, 16:30

asp ogrenmeyin bosuna asp'ye harciyacaginiz zamani php ye harcayin daha modern teknik ve kolay. ASP ile 50 satir ile yapmaya calistiginiz olayi PHP ile 20 satirla yaparsiniz modify olmasi cok kolay, her gun gelisiyor.

coders34 · 09 Temmuz 2006, 20:24

Zor olan şeyle belkide çok büyük işler başarabilrisin Newyork.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Transeksüel nedir? Transgender Nedir?Trans Nedir?	PySSyCaT	Cinsel Sağlık	4	20 Ekim 2017 13:33
Konya Akbank Zafer Meydanı Şubesi Adresi Nedir? Telefonu Nedir?	PySSyCaT	İç Anadolu Bölgesi	0	09 Kasım 2014 16:08
Konya Akbank Selçuklu Sanayi Şubesi Adresi Nedir? Telefonu Nedir?	PySSyCaT	İç Anadolu Bölgesi	0	09 Kasım 2014 15:58
Konya Akbank Selçuklu Üniversitesi Şubesi Adresi Nedir? Telefonu Nedir?	PySSyCaT	İç Anadolu Bölgesi	0	09 Kasım 2014 15:58

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.