Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
<% Dim x, y, temp, serv, D, cogul x = Trim(day(date())) D = Application( "serv" ) If D = x Then Application( "cogul" ) = Application( "cogul" ) + 1 Else Application( "cogul" ) = 1 End If y = x temp = y Application( "serv" ) = temp %>...
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="10%"> <% i=0 do until i>10 %> <tr bgcolor="#<% if i mod 2 then Response.Write "FFFFFF" Else Response.Write "D8D8D8" end if %>"> <td>Yazı</td> </tr> <% i = i + 1 loop %> </table>...
merhaba buradaki herkeze çok basit bir yontem yazayym.. sil diye checkbox adi olsun.. <% Set Baglanti = Server.CreateObject ("ADODB.Connection" ) Set rsTopluSil = Server.CreateObject ("ADODB.Recordset" ) Baglanti.Open DB For i=1 To Request.Form("sil" ).Count strSQL = "DELETE * FROM tbladi...
<% Sub AZ() For b = 65 To 90 Step 1 Response.Write "<a href='?Harf="& chr(b) &"'>"& chr(b) &"</a> " Next Response.Write "<br>" For s = 97 To 122 Step 1 Response.Write "<a href='?Harf="& chr(s) &"'>"& chr(s) &"</a> " Next...
Evet çoğu yerde gördüğünüz arama motorlarının nasıl çalıştığını anlatacağım. Aslında çok da zor bir olayı yoktur.Eğer birden fazla form alırsaniz tabi o zaman biraz zorlaşır fakat sadece zamanınızı alir. Arama motorlarında sql komutumuz <% sql = "select * from tablo WHERE form like '%" &...
<% Dim a(20),text,boyut text= request.querystring("gelentext") boyut=len(text) i=1 do while i<= boyut a(i)=mid(text,i,1) i=i+1 loop response.write text & "<br>" i=boyut do while i>= 1 response.write a(i) i=i-1 loop %>...
<% dil= Request.ServerVariables("HTTP_ACCEPT_LANGUAGE" ) If dil="tr" Then %> <!--#include file="turkce.asp"--> <% ElseIf dil="en" Then %> <!--#include file="eng.asp"--> <% ElseIf dil="de" Then %> <!--#include file="de.asp"--> <% End If %> :emo1::puke::emo1::emo1:
<% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("deneme.txt")) Response.Write("deneme.txt dosyasının eklendiği zaman: " & f.DateCreated) set f=nothing set fs=nothing %> :emo1::emo1::emo1::emo1:
Kayıt Güncelleme update "tabloadi" set "alan1" = "yenideger1","alan2" = "yenideger2"… where "Şart"; update setler set kategori = 'Sinema' where no = 3; Kayıt Silme delete from "tabloadi" where "şart"; delete from "tabloadi" //DİKKAT delete from setler where setler.no=3; Tabloyu silmek drop...
<% set baglanti = server.CreateObject("adodb.connection") baglanti.open "provider=Microsoft.jet.oledb.4.0; data source="& server.MapPath("uye.mdb") set kayit=server.CreateObject("adodb.recordset") s="select * from uye" kayit.open s,baglanti,1,3 %> emeğe saygı yeni olanlar...
1. --------- Bu kodlarla Global.asa adına bir dosya oluşturup sitenizine en üst klasörüne yerleştirin --------- 2. <!-- Global.asa başlangıcı --> 3. <SCRIPT LANGUAGE=VBScript RUNAT=Server> 4. Sub Application_OnStart 5. Application("Aktif") = 0 6. End Sub 7. 8. Sub...