Bu Konuyu Görüntüleyenler

**SaBRoZa** · 15:25, 21-06-08 15:25

Javascript' te this operatörü bütün OOP detekleyen dillere olduğu gibi oldukça faydalıdır. This operatörünü kullanarak belirli bir nesne için değil, sonsuz nesne için işlem yapan fonksiyonlar yazabilir, hatta nesnenin tipine, ait olduğu forma vb. göre ayrı işlemler yaptırabiliriz.
Örneğin bir e-ticaret uygulamasında ürünlerin listelendiği, her ürün için adet alanı bırakıp, kullanıcının adet alanına 0-255 arası bir sayı girdiği ürünleri sepete ekleyecek, her ürün için adet alanına nümerik olmayan veya 0-255 aralığının dışında bir değer girildiğinde kullanıcıyı uyaracak bir sayfa yapalım.

Örneğimizde ürün bilgileri "urunler.mdb" dosyasında durmaktadır. Bütün işlemler "index.asp" dosyasında gerçekleşmektedir.

index.asp

Kod:

<%@ LANGUAGE="VBSCRIPT"%>

<%

dim constr 

constr="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("urunler.mdb")

dim con

dim rst

dim sql

set con=server.createobject("adodb.connection")

set rst=server.createobject("adodb.recordset")

con.open constr

%>

<html>

<head>

<SCRIPT LANGUAGE="javascript">

<!--

function check(txt)

{

if(isNaN(txt.value)||txt.value>255||txt.value<0)

{

alert("Lütfen 0-255 arası bir sayı giriniz!");

txt.value="0";

setFcs(txt);

}

}

function setFcs(txt)

{

txt.focus();

txt.select();

}

//-->

</SCRIPT>

</head>

<body>

<%

sql="select kod,ad,aciklama,fiyat from urunler"

rst.open sql,con

if not rst.EOF then

%>

<table>

<form action="sepet.asp" method="get" name="frm">

<%

while not rst.EOF

%>

<tr>

<td><%=rst.Fields("ad").Value%></td>

</tr>

<tr>

<td><%=rst.Fields("aciklama").Value%></td>

</tr>

<tr>

<td>Fiyat : <%=rst.Fields("fiyat").Value%>$</td>

</tr>

<tr>

<td>Adet : <input type="text" name="adet<%=rst.Fields("kod").Value%>" value="0" onkeyup="check(this);" onclick="setFcs(this);"></td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<%

rst.MoveNext

wend

%>

<tr>

<td><input type="submit" value="Sepete Ekle" name="submit">

</td>

</tr>

</form>

<%

else

%>

Ürün bulunamadı

<%

end if

%>

</table>

</body>

</html>

<%

set rst=nothing

set con=nothing

%>