Webtasarım ve asp'ye yeni başladıysanız sorularınızı sorabilirsiniz.

wmismail · October 19, 2007

Php yada vbscript'teki gibi javascript'tede replace yapabiliriz. Mesela istemediğimiz bir karakteri yada küfürü engelleyebiliriz. Yada onları baska bir değere çevirebiliriz. Üstelik javascript'teki replace daha kolay ve pratik

Kodumuz:

<script type="text/javascript">
function isle(id) {
nesne=document.getElementById(id);
yazi=nesne.value;
yazi=yazi.replace("'",""); // ' karakterini bos bir değere replace ettik.
yazi=yazi.replace("fatih","fthrkl.uni.cc"); // örnekleri çoğaltabilriz :)
nesne.value=yazi;
};
</script>[/CODE]

Replace'yi kullanacagımız textbox'ın onkeyup yada onkeypress olayında fonksiyonumuzu çağıracağız.

Örnekler:

[CODE]<input type="text" onkeyup="isle(this.id)" id="kutucuk" /> [/CODE]

yada

[CODE]<input type="text" onkeypress="isle(this.id)" id="kutucuk" /> [/CODE]

Size onkeyup olayını tavsiye ederim, onda daha iyi sonuç alırsınız.

Hemen denemek için aşağıdaki kodları [i]js_replace.html[/i] diye kaydedin.

[CODE]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">

</style>
</head>

<body>
<script>
function isle(id) {
nesne=document.getElementById(id);
yazi=nesne.value;
yazi=yazi.replace("'",""); // ' karakterini bos bir değere replace ettik.
yazi=yazi.replace("fatih","fthrkl.uni.cc"); // örnekleri çoğaltabilriz :)
nesne.value=yazi;
};
</script>
<form>
İsminizi Giriniz:
<input onkeypress="isle(this.id)" id="kutucuk" />
' (tek tırnak) karakteri engellenmiştir.
</form></body>
</html>[/CODE]

Yapılmış halini görmek için :

http://www.tnctr.com/s/?I3ob

wmismail · October 19, 2007

Bu kod ile gönder butonuna basıldığında kullanıcıya sayfa yükleniyor gibi bir his verdirebilirsiniz. Kodun kullanımı çok basit.

Kodumuz:

<script>
nokta=".";
function postala(id,formadi) 
{
document.getElementById(id).disabled="disabled";
document.getElementById(id).value="Gönderiliyor" + nokta;
nokta=nokta+".";
if (nokta.length<10) {setTimeout("postala('"+id+"','"+formadi+"')",25)} else {document.getElementById(formadi).submit();}

}
</script>[/CODE]

Fonksiyonumuzun adı postala

Gönder butonunun id'si ve gönderilecek formun id'si olmak üzere iki tane değer alıyor.

Siz 1. değeri girmeyeceksiniz. Çünkü fonksiyonu gönder butonumuzun onclick olayında çağırdıgımız için script otomatik olarak id değerini alıyor.

2. değere formunuzun id'sini vereceksiniz.

Bir örnek yapalım

[CODE]<input type="submit" id="gonder" onclick="postala(this.id,'formumuzuniddegeri'); return false;" /> [/CODE]

Gördüğünüz gibi 1. değere butonumuzun id'sini yazmadık.

this.id dedik ve butonun id'sini otomatik aldı.

2. değerde formumuzuniddegeri dedik. Bunu siz kendinize göre uyarlayacaksınız.

en sonda return false dedik. Eğer demeseydik fonksiyonumuz çalışcaktı ama işlemler yapılmadan girek form submit edilecekti.

Eğer hemen denemek isterseniz aşağıdaki kodları deneme.html diye kaydedin ve açın.

[CODE]<script>
nokta=".";
function postala(id,formadi)
{
document.getElementById(id).disabled="disabled";
document.getElementById(id).value="Gönderiliyor" + nokta;
nokta=nokta+".";
if (nokta.length<10) {setTimeout("postala('"+id+"','"+formadi+"')",25)} else {document.getElementById(formadi).submit();}

}
</script>
<form action="?isle" id="formumuz">
<input />
<input type="submit" id="gonder" onclick="postala(this.id,'formumuz'); return false;" />
</form>[/CODE]

Yapılmış hali :

http://www.tnctr.com/s/?EUzE

wmismail · October 19, 2007

Eğer sayfanızda fazla resim, yazı varsa yüklenmesi uzun sürebilir. Ve bu sayfanızın kötü gözükmesine sebep olabilir. Sayfanın kötü gözükmesini önlemek için aşağıdaki yöntemi kullanabilirsiniz.

Belirli bir süre yükleniyor ifadesini gösteriyor ve arkaplanda sayfayı yükletiyoruz.

Süre geçtikten sonra yükleniyor ifadesi kayboluyor, sayfa hızlıca açılıyor.

<html>
<head>
<title>Örnek Çalışma</title>
</head>
<style>
#durum {width:100px;padding: 1px;background: white;border-right-width: 1px;border-bottom-width: 1px;
border-left-width: 1px;border-right-style: solid;border-bottom-style: solid;border-left-style: solid;
border-right-color: #666666;border-bottom-color: #666666;border-left-color: #666666;
}
#yuzdesi {font-family:Verdana; font-weight:bold; color:#6C6C6C; font-size:11px;} 
.yukle{font-family: verdana;font-weight: bold;color: #666666;background-color: #F0F3E1;
width:260px;font-size:11px;padding:1px;border: 1px solid #666666;}
</style>
<script>
var kademe=2; // sayfanızda resim, yazı çok ise 2'ten küçük bir sayı girin 
var yuzde=0;
function wmismail (){
yuzde=yuzde+kademe;
document.getElementById('gosterge').style.width=yuzde +"%";
document.getElementById('yuzdesi').innerHTML=yuzde + "%";
if (yuzde<100){setTimeout('wmismail()',20)}
else{
document.getElementById('yuklenmealani').style.display="none";
document.getElementById('ana').style.display="block";
}
}
</script>
<body Onload="return wmismail();">
<div id="yuklenmealani"
style="">
<div class="yukle">Sayfa Yükleniyor.</div><div id="durum" style="margin-bottom:5px; width:260px;"><div id="gosterge" style="width:0; background:#DFDFDF;"><span id="yuzdesi">0%</span></div>
</div>
</div>
<div id="ana" style="display:none;">
Sitemizin içeriği buraya gelecek<br>Sitemizin içeriği buraya gelecek<br>
Sitemizin içeriği buraya gelecek<br>Sitemizin içeriği buraya gelecek<br>
</div>
</body>
</html>
[/CODE]

Yükleme işleminden sonra gösterilecek resimleri, yazıları, nesneleri vs "ana" adlı div'in içine koyacaksınız.Fthrkl'ye teşekkürler. !

wmismail · October 19, 2007

Buyrun indirin arkadaşlar. Ajax'a hiç başlamamış ya da gözü korkan arkadaşlar için güzel anlatımlı video.

Video için Fthrkl [Fatih Erikli] arkadaşa teşekkür ederim.

Link :

http://www.tnctr.com/s/?Yfkh

wmismail · October 19, 2007

İndirme Linki : [uploaded By Wmismail , Created By Fthrkl]

http://www.tnctr.com/s/?WdeS

_________________________________________________________________

Kullanılan Ajax Fonksiyonu :

function fthrkl( ) {

var objemiz;

/*@cc_on @*/

/*@if (@_jscript_version >= 5 ) try { objemiz = new ActiveXObject("Msxml2.XMLHTTP" ); }

catch (e ) {

try { objemiz = new ActiveXObject("Microsoft.XMLHTTP" ); }

catch (E ) { objemiz = false; }

}@end @*/

if (!objemiz && typeof XMLHttpRequest!='undefined' ) {

try {objemiz= new XMLHttpRequest( );}

catch (e ) {objemiz=false;}}

return objemiz;}

function git(degerler,syf,alanadi ) {

gonder = new fthrkl( );

gonder.onreadystatechange = function ( ) {

document.getElementById(alanadi ).innerHTML ="Yükleniyooo";

if( gonder.readyState == 4 ) {

document.getElementById(alanadi ).innerHTML = gonder.responseText; function fthrkl( ) {};}}

gonder.open('GET',syf '?' degerler, true );

gonder.send(null);

}

</script>

TEVF · October 19, 2007

Ükelalık yapmak istemem ama bunlarla uğraşmaya hiç gerek yok web page maker die bir program var onu kullanarak daha basit bir şekilde yapılabilir.bence onu ögretmen daha iyi olur.

Psychology · October 19, 2007

Ükelalık yapmak istemem ama bunlarla uğraşmaya hiç gerek yok web page maker die bir program var onu kullanarak daha basit bir şekilde yapılabilir.bence onu ögretmen daha iyi olur.

Hiç bilmeyen kişilerin sıfırdan almasında yarar vardır. Ben HTML öğrendiğime pişman değilim. Temel olmadan diğerlerine geçiş ve onların mantığı anlaşılamaz.

wmismail · October 19, 2007

@TEVF bence de ukalalık yapma.

Bu işi hiç bilmediğin belli.

Bu işten anlamıyorsun . Bari çaktırma.

Eğer bu işi biliyor olsaydın bu kadar saçma bir mesaj yazmazdın.

O programın da temeli zaten HTML. Kodlarda hata olduğu zaman direk kod bazlı çalışma yapman gerekir.

@Psychology teşekkür ederim. Güzel açıklama yapmışsın.

Ben HTML de tüm kodları biliyorum. Program olmadan da istediğim editörde çalışma yapabilirim.

Ama sen yapamazsın.

Sen de yapmak istiyorsan bunları öğrenmelisin.

İyi Çalışmalar.

Anlatabildim mi derdimi ????

wmismail · October 19, 2007

download.asp:

localhost/download.asp?duran=http://www.youtube.com/watch?v=TSF2BRc8JdQ

olarak yazın...

Veya form olarak çekersiniz direk download edebilirsiniz...

<% 
duran = Request.QueryString("duran" ) 
'XMLHTTP Open	
private Function GETHTTP(adres ) 
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" ) 
	StrHTTP.Open "GET",adres,false 
	StrHTTP.sEnd 
	GETHTTP = StrHTTP.Responsetext 
Set StrHTTP = Nothing 
End Function 
'XMLHTTP Close	
URL = duran
bilgi = GETHTTP(URL ) 
'video linki 
sayi1 = InStr(1, bilgi, "/player2.swf?video_id" ) 
sayi2 = InStr(sayi1 + 1, bilgi, "movie_player" ) 
sayi3 = sayi2 - sayi1 
aaa =   Mid(bilgi,sayi1+21,sayi3 - 25 ) 
tamlink= "http://youtube.com/get_video?video_id" & aaa 
response.write "<center> <b><a style=""text-decoration: none"" href="""&tamlink&""">İNDİRMEK İÇİN TIKIRDATINIZ</a></b><br><br></center> " 
response.write "<center><b><a target=blank href=http://www.duransahin.net>Duran ŞAHİN TEAM - İFTİHARLA SUNAR</a></b><br><br></center> " 
response.write "<center>Videoyu kaydederken uzantısını <b>.flv</b> olarak vermeyi unutmayınız.</center>" 
%>[/CODE]

Eğer örnek isteyen olursa yapabilirim.

wmismail · October 19, 2007

form.asp

<form action="gonder.asp" method="post">

<input type="text" name="kullanici_adi"><br>

<input type="password" name="sifre">

<input type="submit" value="Giriş Yap">

</form>[/CODE]

[i]gonder.asp[/i]

[CODE]<%

kullanici=request.form("kullanici_adi")

sifre=request.form("sifre")

session("kullanici")=kullanici

session("sifre")=sifre

response.write "Hoşgeldiniz , " & kullanici & "<br>"

%>

<a href="cikis.asp"> Güvenli Çıkış </a>[/CODE]

[i]cikis.asp[/i]

[CODE]<%

session.abandon

response.redirect "form.asp"

%>[/CODE]

wmismail · October 19, 2007

Aşağıdaki fonksiyonu sayfanızın başına yerleştirebilirsiniz veya bir sayfaya kayderek bu sayfayı diğer sayfalarınızın başına include edebilirsiniz.

<%
function karaktertemizle(veri)
veri = Replace (veri ,"`","")
veri = Replace (veri ,"=","")
veri = Replace (veri ,"&","")
veri = Replace (veri ,"%","")
veri = Replace (veri ,"!","")
veri = Replace (veri ,"#","")
veri = Replace (veri ,"<","<")
veri = Replace (veri ,">",">")
veri = Replace (veri ,"*","")
veri = Replace (veri ,"And","")
veri = Replace (veri ,"'","")
veri = Replace (veri ,"Chr(34)","")
veri = Replace (veri ,"Chr(39)","")
karaktertemizle=veri
end function
%>[/CODE]

Fonksiyonu tanımladıktan sonra aldığınız veriyi kullanırken karaktertemizle demelisinizi.Diyelimki bir form alıyorsunuz ismide form olsun.

Kullanımı şöyledir :

[CODE]<%
form = karaktertemizle(request.form("form"))
%>[/CODE]

Bu şekilde form bilgisi veya querystring alabilirsiniz.ıstediğiniz her veride kullanabilirsiniz.Bunun amacı Html kodlarını pasif hale getirmektir ve Sql injection'ı önlemektir.

[b]Konu : Sql Enjection[/b]

Sitenizde güvenlik açıklarını önlemek için kullanabilirsiniz.

nasıl kullanırım diyorsanız anlatayaım

önce bu kodları sayfanıza yapıştırın.

Request.Form veya Requst.QueryString kısımlarını bunlarla donatmanız lazım nasılmı

Örnek :

[CODE]isim = PostKontrol(Request.Form("isim"))[/CODE]

veya

[CODE]isim = PostKontrol(Request.QueryString("isim"))[/CODE]

yani

PostKontrol( request nesnesi )

kolay gelsin

Kod Alanı:

[CODE]<%
Function PostKontrol(duz)

duz = Replace(duz, "<" , "<" )
duz = Replace(duz, ">" , ">" )
duz = Replace(duz, "script" , "script" , 1, -1, 0)
duz = Replace(duz, "SCRIPT" , "SCRIPT" , 1, -1, 0)
duz = Replace(duz, "Script" , "Script" , 1, -1, 0)
duz = Replace(duz, "script" , "Script" , 1, -1, 1)
duz = Replace(duz, "object" , "object" , 1, -1, 0)
duz = Replace(duz, "OBJECT" , "OBJECT" , 1, -1, 0)
duz = Replace(duz, "Object" , "Object" , 1, -1, 0)
duz = Replace(duz, "object" , "Object" , 1, -1, 1)
duz = Replace(duz, "applet" , "applet" , 1, -1, 0)
duz = Replace(duz, "APPLET" , "APPLET" , 1, -1, 0)
duz = Replace(duz, "Applet" , "Applet" , 1, -1, 0)
duz = Replace(duz, "applet" , "Applet" , 1, -1, 1)
duz = Replace(duz, "embed" , "embed" , 1, -1, 0)
duz = Replace(duz, "EMBED" , "EMBED" , 1, -1, 0)
duz = Replace(duz, "Embed" , "Embed" , 1, -1, 0)
duz = Replace(duz, "embed" , "Embed" , 1, -1, 1)
duz = Replace(duz, "event" , "event" , 1, -1, 0)
duz = Replace(duz, "EVENT" , "EVENT" , 1, -1, 0)
duz = Replace(duz, "Event" , "Event" , 1, -1, 0)
duz = Replace(duz, "event" , "Event" , 1, -1, 1)
duz = Replace(duz, "document" , "document" , 1, -1, 0)
duz = Replace(duz, "DOCUMENT" , "DOCUMENT" , 1, -1, 0)
duz = Replace(duz, "Document" , "Document" , 1, -1, 0)
duz = Replace(duz, "document" , "Document" , 1, -1, 1)
duz = Replace(duz, "cookie" , "cookie" , 1, -1, 0)
duz = Replace(duz, "COOKIE" , "COOKIE" , 1, -1, 0)
duz = Replace(duz, "Cookie" , "Cookie" , 1, -1, 0)
duz = Replace(duz, "cookie" , "Cookie" , 1, -1, 1)
duz = Replace(duz, "form" , "form" , 1, -1, 0)
duz = Replace(duz, "FORM" , "FORM" , 1, -1, 0)
duz = Replace(duz, "Form" , "Form" , 1, -1, 0)
duz = Replace(duz, "form" , "Form" , 1, -1, 1)
duz = Replace(duz, "on" , "on" , 1, -1, 0)
duz = Replace(duz, "ON" , "ON" , 1, -1, 0)
duz = Replace(duz, "On" , "On" , 1, -1, 0)
duz = Replace(duz, "on" , "on" , 1, -1, 1)
duz = Replace(duz, "document.cookie" , "Document.cookie" , 1, -1, 1)
duz = Replace(duz, "java script:" , "javascript " , 1, -1, 1)
duz = Replace(duz, "vbscript " , "vbscript " , 1, -1, 1)
duz = Replace(duz, "'" , "`" )

PostKontrol = duz

End Function
%>[/CODE]

mbayrak · October 19, 2007

Slm arkadaşlar ben flash kullanmaya yeni başladım ve flash ta parlayan yazı yapmak istiyorum bunu nası yaparım.

Parlayan yazıdan maksat yazının bir ucundan başlayım diğer ucuna kadar bir ışı geçiyormuş gibi bir efekt .

Şimdiden teşekkürler

wmismail · October 19, 2007

Flash'ta Maskeleme diye bişey var. Araştır kendin sorunun cevabını kendin bulacaksın.

wmismail · October 19, 2007

<%
dbPath = Server.MapPath(""veritabaniadi.mdb"")
Set Baglantim = Server.CreateObject(""ADODB.Connection"")
Baglantim.Open (""Provider=Microsoft.Jet.OLEDB.4.0; Data Source="" & dbPath)
%>[/CODE]

VEYA

[CODE]<%
Set Baglantim = Server.CreateObject(""ADODB.Connection"")
Baglantim.Open (""Provider=Microsoft.Jet.OLEDB.4.0; Data Source="" & SERVER.MAPPATH="VERITABANININ KONUMU")
%>[/CODE]

wmismail · October 19, 2007

Veri tabanını komple silebilirsiniz.

<%
Set ObjFSO = CreateObject(""Scripting.FileSystemObject"")
ObjFSO.DeleteFile ""C:\db.mdb"" 'verıtabanının bulundugu konumu belıtıoruz
%>[/CODE]

wmismail · October 19, 2007

<%
StrBrws = Request.ServerVariables("HTTP_USER_AGENT")

If Instr(StrBrowser, "MSIE") Then
If Instr(StrBrws, "MSIE 5.") Then
StrBrowser = "Microsoft Internet Explorer 5.x"
Elseif Instr(StrBrws, "MSIE 4.") Then
StrBrowser = "Microsoft Internet Explorer 4.x"
Elseif Instr(StrBrws, "MSIE 3.") Then
StrBrowser = "Microsoft Internet Explorer 3.x"
If Instr(StrBrws, "MSIE 3.02") Then
StrBrowser = "Microsoft Internet Explorer 3.02"
End If
Else
StrBrowser = "Microsoft Internet Explorer"
End If
ElseIf Instr(StrBrws, "Mozilla") and Instr(StrBrws, "compatible") = 0 Then
If Instr(StrBrws, "Mozilla/4") Then
StrBrowser = "Netscape Navigator 4.x"
Elseif Instr(StrBrws, "Mozilla/3") Then
StrBrowser = "Netscape Navigator 3.x"
Else
StrBrowser = "Netscape Navigator"
End If
End If
%>
[/CODE]

Kullanımı :

[CODE]<% Response.write StrBrowser %>[/CODE]

wmismail · October 19, 2007

Alanları size göre doldurup, asp dosyası olarak kaydedip sunucu üzerinden çalıştırabilirsiniz.

<% 
Set Mailer = Server.CreateObject("SMTPsvg.Mailer" ) 
Mailer.FromName   = "Isminiz" 
Mailer.FromAddress= "[email protected]" 
Mailer.RemoteHost = "mailhost.adresim.com" 
Mailer.AddRecipient "Gidecek Kisi" , "[email protected]" 
Mailer.Subject	= "Mail Basligi" 
Mailer.BodyText   = "Selam" & VbCrLf & "Mail Body Budur!" 

If Mailer.SendMail Then 
  Response.Write "Mail Basariyla Gonderildi..." 
Else 
  Response.Write "Hata Olustu, <br>Hata:" & Mailer.Response 
End If

 %> [/CODE]

wmismail · October 19, 2007

ASP'de genelde sık sık kullanılan bir komuttur.Bu duruma göre hangi işlem yapılmasını sağlar.

Bu konuda If..else ifadesini göreceğiz.

- If..else'e örnek vermek gerekirse

tekli ifaderlerde

<%
if islem then
'yapılacak işlemler
end if
%>[/CODE]

gibi kullanılmaktadır.Burada işlem yazan yere koyulmuş şart gelmektedir.Eğer bu şartsa hemen aşağısındaki yapılacak işlemler yapıldır.

Eğer değilse gibi kullanmak içinde

[CODE]<%
if islem then
'yapılacak işlemler
else
'değilse buradaki işlemler
end if
%>[/CODE]

kodu yeterli olacaktır.Burada işlem diye seçmiş olduğumu durumun negatif ihtimalinde else diye belirtildikten sonraki işlemler yapılır.

Bu ihtimalleri arttırmak için ise

[CODE]
<%
if islem then
'yapılacak işlemler
elseif islem2 then
'islem2 doğruysa yapılacak işlemler
else
'hiç biri değilse buradaki işlemler yapılacak
end if
%>[/CODE]

Burada kullanılan elseif gibi çok fazla olasılık yapılabilir.Kullanılan bu If'li döngülerde eğer 2 şarta'da uygun ise diye yaptırmak için <% if islem1 and islem2 then %> gibi bir ifade kullanılabilir.

If'li döngünün kullanımı ile ilgili olarak saat durumuna göre ekrana yazdırma işlemi yapalım.

[CODE]<%
saat = hour(now)

If saat <= 12 Then
response.Write "Günaydın"
elseif Saat > 18 Then
response.Write "ıyi akşamlar"
elseif Saat >= 22 Then
response.Write "ıyi geceler"
else
response.Write "Tünaydın"
End If

%>[/CODE]

wmismail · October 19, 2007

db.mdb

Tablo adı : toplist (id : autonumber , site : text , Adres : text , Hit : number)[/CODE]

[i]default.asp[/i]

[CODE]

<%
'----------------------------------------
'///Db Bağlanrısı
set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0;data source=" & Server.Mappath("db.mdb")
'-----------------------------------------
'///Rs Bağlantısı
set rs=server.createobject("adodb.recordset")
sql="select * from toplist order by hit desc" ' hiti Yüksek olan Üste Çıksın dedik
rs.open sql,baglanti,1,3
'-----------------------------------------
if rs.eof then ' Veritabanında site girilmemişse..
Response.write "Hiç Bir tane site Eklenmemiiş !!"
end if ' ifi Kapattık

do while not rs.eof ' Döngümüzü Başlattık
' Tagımızı kapattık Çünkü Html kodları araya girecek asp tagı içinde olmasın diye
%>
<table border="1" width="500" cellspacing="0" cellpadding="0">
<tr>
<td> Site İsmi : <%=rs("site")%></td>
<td> <%=rs("hit")%></td>
<td>
<p align="center"> <a href="git.asp?id=<%=rs("id")%>">Git</a></td>
</tr>
</table>

<%
rs.movenext' Dön gümüz Bİtii.
loop
%>[/CODE]

[i]Şimdi Git.asp[/i]

[CODE]
<%
'-----------------------
'//Db Bağlantısı
set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=microsoft.jet.Oledb.4.0;data source=" & server.Mappath("db.mdb")
'--------------------------------
' default.asp de gitaspye link verirken id alı bir strinf kullandık onu çağrıyoruz
'//Rs bağlantısı
id = request.querystring("id")
set git=server.createobject("adodb.recordset")
sql="select * from toplist where id="&id&" order by hit desc" 'Veritabanındaki id hangi idye eşitse ona işlem yapılsın
git.open sql,baglanti,1,3
'--------------------------------
'şimdide Hit Eklenme Bölümünü Yapalım Çok Basit

git("hit") = git("hit") + 1 ' Veritabanınddaki Hit Kaçsa Ondan Birtane Fazla olsun Yani Hit Birtane artsın siz bir yerine ikide arttırabilirsiniz
git.update
response.redirect ""&git("adres")&""
git.close
set git=nothing
baglanti.close
set baglanti= nothing
%>[/CODE]

wmismail · October 19, 2007

İnclude Demek Bir Sayfayı Başka sayfaya gömmek emek.Mesela HerSayfaya Ayrı ayrı üstmenü yapmaktansa bir tane yapıp başka sayfalarda kullanılabilir örn;

<!--#include file="ust.asp"-->[/CODE]

veya

[CODE][/CODE]

veya

[CODE]<%

server.execute("ust.asp")

%>[/CODE]

wmismail · October 19, 2007

Üyelik sistemi olmayan veya üyelik sistemi ile çalışmayan sayfalar kötü niyetli kişiler tarafından kullanılabilir. mesela, yorum ekleme, guestbook gibi alanlara isteyen istedigi bilgiyi yazabilir.Bu kodlar ile küfür koruması yapabiliriz.

<% 
badwordFilter = "Acik" 
Dim badword 
badword = "fuck|suck|***"

metin = Request.Form("metin" )

strwords = Split(badword, "|" ) 
For I = 0 to Ubound(strwords) 
metin = Replace(metin, strwords(I), String(Len(strwords(I)),"*" ), 1,-1,1) 
next 
If badwordFilter= "Acik" Then 
Response.Write metin 
else 
Response.Write metin 
End If 
%>[/CODE]

wmismail · October 19, 2007

Hata:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/aspismi.asp, line 50

Hatanın çözümü: Oluşturmuş olduğunuz veritabanı içerisinde örnek olarak tarih veya sayı özelliğini taşıyan hücreler olduğunu varsayalım. Veritabanına kayıt yaptığınız dosya içerisinde eğer sayı alanına metinsel veri kaydetmeye çalışırsanız veya tarih alanına metinsel bir veri kaydetmeye çalışıyorsanız bu hata çıkmaktadır.. Çözümü için hücrelerinizin özelliğini kontrol edebilir veya kodlarınızda gerekli düzenlemeyi yapabilirsiniz

Hata:

Active Server Pages error 'ASP 0113'

Script timed out

aspismi.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Hatanın çözümü:

Kodunuzun zaman aşımına uğraması nedeniyle oluşur. Zaman aşımı değerini yükselterek sorunu çözebilirsiniz.

Zaman aşımı değeri kodu: server.scriptTimeOut = 1000

Hata:

ADODB.Field hata '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

aspismi.asp, line 0

Hatanın çözümü:

Eşleşen kayıt bulunamadığında veya veritabanı içerisinde yaptığınız sorgu için bir kayıt bulunmuyor ise bu hatayı alırsınız. Veritabanınızda 1000 kayıt olsa dahi eğer döngü yanlış kurulmuş ise bu hata çıkabilir.

Hata:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x361c Thread 0x3a70 DBC 0x144e034 Jet'.

aspismi.asp, line 5

Hatanın çözümü: Yanlış veritabanı yolu belirtildiği için veya belirtilen veritabanı yolu içerisinde MDB dosyası bulunmadığında bu hata karşınıza çıkmaktadır. Çözümü için veritabanı dosyanızın veritabanı yolu içerisinde olduğundan emin olun veya veritabanı yolunuzu kontrol edin.

Hata: Active Server Pages error 'ASP 0126'

Include file not found

aspismi.asp line 1

The include file 'include_asp.asp' was not found.

Hatanın çözümü: Include dosyasının yolunu yanlış yazdıysanız veya belirtmiş olduğunuz yol içerisinde include dosyası yok ise bu hata ile karşılaşılmaktadır. Çözümü için Include dosyasını belirttiğiniz yol içerisinde koymanız gerekmektedir.

Hata:

Microsoft JET Database Engine (0x80004005)

Could not find file 'c:\db\mdbisim.mdb'.

aspisim.asp, line 5

Hatanın çözümü: Veritabanı yolunu yanlış belirttiğiniz için veya veritabanı dosyasını belirlemiş olduğunuz klasöre koymadığınız için bu hata çıkabilmektedir. Veritabanı yolunuz doğru ise veritabanı dosyasının bu yol içerisinde olduğundan emin olun. Örnek bir veritabanı yolu belirtmesini şu şekilde yapabilirsiniz:

VeritabaniYol = Server.MapPath("/db/mdbisim.mdb")

Set Baglanti = Server.CreateObject("ADODB.Connection")

Baglanti.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & VeritabaniYol)

Hata:

Server object error 'ASP

0177 : 800401f3'

Server.CreateObject Failed

/aspismi.asp, line 2

Hatanın çözümü: Sunucunuzda yüklü olmayan bir bileşeni (component) kullanmaya çalışıyorsunuz. Bileşen ismini kontrol ediniz. Sunucu yetkiliniz ile irtibata geçerek bileşenin yüklenmesini sağlayabilirsiniz.

Hata:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Islem'

aspismi.asp line 50

Hatanın çözümü: Türlerin uyuşmadığını belirten bir hatadır. Matematiksel işlemlerde string veri kullanıldığı zamanlarda; olmayan bir fonksiyon çağırılmaya çalışıldığında karşılaşılır. Verinizin türünün doğru olduğuna emin olunuz ya da fonksiyon isminin doğruluğunu kontrol ediniz.

Hata:

Microsoft OLE DB Provider for SQL Server error '80040e14'

Incorrect syntax near the keyword 'AND'.

aspismi.asp line 50

Hata çözümü: SQL cümlesi içerisinde AND kelimesinin yanlış kullanımından kaynaklı bir hatadır.Örnek olarak AND kelimesini SQL içerisinde şu şekilde kullanabilirsiniz:

SqlCumlesi = "Select Hucre1, Hucre2 from Tablo1 WHERE Hucre1 = 'Zorunlu1' AND Hucre2 = 'Zorunlu2'"

wmismail · October 19, 2007

<%
Set Rs=Conn.Execute("Select Top 5 * from Tablo order by id desc")
do while not rs.eof
rs("alan")
rs.movenext
Loop
%>[/CODE]

wmismail · October 19, 2007

Veritabanı yolunu kendinize göre ayarlayın. Kodları herhangi bir metin editörü ile .ASP uzantılı olacak şekilde kayıt etmeniz gerekmektedir.

<% 
'-- Veri Tabanı bağlantımızı yapalım. 
Set Conn = Server.CreateObject("ADODB.Connection") 
Path = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};" 
Path = Path & " DBQ= " & Server.MapPath("dbkayitlar.mdb")

Conn.Open Path 
'-- SQL bağlantımızıda yapalım. 
sql="SELECT * FROM tblkayitlar;" 
Set rs=Conn.Execute(sql) 
%>

<TABLE width="17%" border="0" cellspacing="0" cellpadding="0"> 
<TR> 
<TD width="56%"><B>AD</B></TD> 
<TD width="44%"><B>SOYAD</B></TD> 
</TR>

<% 
'-- Döngümüz dosya sonu olana kadar devam etsin. 
Do  While Not rs.Eof 
%> 
<TR> 
<TD width="56%"><%=rs("ad")%></TD> 
<TD width="44%"><%=rs("soyad")%></TD> 
</TR> 
<% 
rs.MoveNext 
Loop 
%> 
</TABLE> 
<%

'-- Bağlantılarımızı kapatalım. 
rs.Close 
Conn.Close 
Set  rs=Nothing 
Set  Conn=Nothing 
%>[/CODE]

wmismail · October 19, 2007

ASP'nin Unsurları

ASP tasarımcısı olarak, biz gerçekte ASP'nin Nesneleri ile birşeyler yaparız; başka bir deyişle ASP kodlarımız bu nesnelere yöneliktir, onları kullanma ve onlardan bir sonuç alma veya onlara bir sonuç aktarma amacına yöneliktir. ASP'nin Nesneleri altı grupta toplanır:

Application/Uygulama: Bir ASP sitesi, gerçekte bir Uygulama Programı olarak görülür. Bu, HTML/CGI geleneğine aşina tasarımcı için yeni bir kavram. ASP'yi icad edenler; bir ziyaretçi bir ASP sayfasından girerek, bir sitede surfing'e başladığında, onu bir programı işleten bilgisayar kullanıcısı olarak görüyorlar. Böylece, sitemiz, her ziyaretçinin karşısına çıktığında "bir program çalışmış" gibi sayılıyor. Bu yaklaşımın Web tasarımcısı olarak bize kazandırdığı imkanları ele alacağız.

Session/Oturum: Bir ziyaretçi sitemize geldiğinde, hangi sayfamızı talep ederse etsin, bu bağlantı ASP açısından bir oturum sayılır. Her oturumun belirli bir süre devam eden özellikleri, değişkenleri ve değerleri vardır. Site tasarımında oturum özelliklerinden geniş ölçüde yararlanacağız.

Request/Talep: Browser'dan Server'a ulaşan bütün bilgiler, Request (Talep) nesnesinin ögeleridir. Bu nesneyi kullanarak, istemciden gelen her türlü HTTP bilgisini kullanırız.

Response/Karşılık: Server'dan ziyaretçinin bilgisayarına gönderdiğimiz bütün bilgiler, çerezler (cookie) ve başlıklar (Header) Response (Karşılık) nesnesinin ögeleridir. Bu nesneyi kullanarak ziyaretçiye göndermek istediklerimizi göndeririz.

Server/Sunucu: ASP, Web Server programını bir nesne olarak ele alır ve onun bize sağladığı araçları ve imkanları kullanmamızı sağlar.

ObjectContext/Nesne Bağlamı: Microsoft'un Transaction Server (MTS) programının sunduğu hizmetlere erişmemizi sağlar. MTS, ASP sayfaları içinden, uygulama programlarından yararlanmamızı sağlar. ASP uzmanlığınızı ileri düzeylere ulaştırdığınız zaman MTS ve ObjectContext nesnesinden yararlanabilirsiniz.

Sign In

Webtasarım ve asp'ye yeni başladıysanız sorularınızı sorabilirsiniz.

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Archived

Recently Browsing 0 members