Kayıt: 15 Ekm 2006, 12:05 İleti: 16170 Konum: bu kadar meraklı olmayın:) Ruh Hali: Mutlu Cinsiyet: Erkek Burç: Kova Takım: Galatasaray
Excel'den veri alma
<% 'Değeri sıfır yaptık ve geçici bellekte veri saklanmasını önledik Response.Expires = 0
'Baglanti nesnesi oluşturduk Set DB = Server.CreateObject("ADODB.Connection") DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritabanımızın yerini belirttik Baglanti.Open DB 'Veritabanımızı açtık
Set rsEx = Server.CreateObject("ADODB.Recordset") strSQL = "Select * From tabloadi" rsEx.Open strSQL, Baglanti
'Verileri yazdırıyoruz. Response.Write ("
") Response.Write rsEx.GetString (, 10, "
", "
", NBSPACE) %>
_________________
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Kayıt: 15 Ekm 2006, 12:05 İleti: 16170 Konum: bu kadar meraklı olmayın:) Ruh Hali: Mutlu Cinsiyet: Erkek Burç: Kova Takım: Galatasaray
Girilmesini istemediginiz sayfalari sifreleyin
Tek yapmaniz gereken girilmesini istemediginiz sayfaya include etmek ----------------------------------------------- ' Bu sayfayı guvenlik.asp olarak kaydet
<% Response.Buffer = True %> <% 'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız. sifre = "8282" if Session("sifreniz") <> sifre then if Request.Form("sifrem") <> sifre then Call giris Else Session("sifreniz") = sifre End if End if Sub giris gelen_sayfa = "http://"&Request.ServerVariables ("HTTP_HOST")&Request.ServerVariables("URL") %>
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
If baslangic<=0 or son<=0 or son Else satir=Mid(alinacakbolum,baslangic,son-baslangic) If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then Else ekle=ekle & satir & " " End If End If
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Kayıt: 15 Ekm 2006, 12:05 İleti: 16170 Konum: bu kadar meraklı olmayın:) Ruh Hali: Mutlu Cinsiyet: Erkek Burç: Kova Takım: Galatasaray
Güvenlik kodu oluşturma
Bu kodla güvenlik kodu onaylama kısımları oluşturabilirsiniz. ------------------------------------------------ <% if page="" then
enalt_sayi = 999 enust_sayi = 99999
Randomize()
isle = enust_sayi - enalt_sayi + 1 random = isle * rnd() random = random + enalt_sayi guvenlik = int(random) %> <%=guvenlik%> <% end if %>
_________________
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Kayıt: 15 Ekm 2006, 12:05 İleti: 16170 Konum: bu kadar meraklı olmayın:) Ruh Hali: Mutlu Cinsiyet: Erkek Burç: Kova Takım: Galatasaray
il il hava durumu
<% if request.QueryString ("il")<>"" then il=request.QueryString ("il") else il="BİLECİK" end if const Request_GET = 2
Dim haberURL, haberim, basliklar haberURL = "http://meteo.tr.net/cgi-bin/wfa.pl?"&il Set alma = CreateObject("SOFTWING.ASPtear" ) On Error Resume Next haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" ) If Err.Number <> 0 Then Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... " Response.End End If lenstr=308+len(il) haberim=Mid(haberim,9166,lenstr) ds=InStr(1,haberim,"°C" ) sicaklik=Mid(haberim,ds-5,7) sicaklik=Replace(sicaklik,">" ,"" ) ds=InStr(1,haberim,"alt" ) de=InStr(1,haberim,"°C" ) durum=Mid(haberim,ds+5,de-ds-15) durum=Replace(durum,"""" ,"" ) if Cstr(durum)=Cstr("Az Bulutlu") then resim="azbulutlu" elseif Cstr(durum)=Cstr("Sağnak Yağışlı") then resim="yagmurlu" end if %>
İl:
Sıcaklık:
Durum:
<%=il%>
<%=sicaklik%>
<%=durum%>
.gif">
Yurtiçi Merkezler :
_________________
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
'Döngüye giriyoruz For I = 0 to Toplam If Ip_array(I) = ipno Then
'Eğer giren kullanicinin ip`si ban listesinde mevcut ise banlanmissiniz diye bir sayfa gosteriyoruz Response.Redirect "ban.asp"
End If Next %>
_________________
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Kayıt: 15 Ekm 2006, 12:05 İleti: 16170 Konum: bu kadar meraklı olmayın:) Ruh Hali: Mutlu Cinsiyet: Erkek Burç: Kova Takım: Galatasaray
Kategori olusturmak
Web sitenizde veri tabaninizdaki kategorileri sayfaniza yazdirmaya yarayacak kategori örnek kodu ---------------------------------------------- <% @Language=VBScript %>
<% Set kategori = Server.CreateObject("ADODB.Recordset") sor = "Select * from kategori ORDER BY id" ' kategori tablomuzu id sırasına göre diziyoruz. kategori.Open sor,Sur,1,3 toplam_kategori=kategori.recordcount %>
<% If Not kategori.EOF Then %> <% kategori.MoveNext End If %> <% Wend %>
_________________
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Kayıt: 15 Ekm 2006, 12:05 İleti: 16170 Konum: bu kadar meraklı olmayın:) Ruh Hali: Mutlu Cinsiyet: Erkek Burç: Kova Takım: Galatasaray
Mail yolla
Sub SendEmail(strFrom, strTo, strSubject, strBody) ' DB ve email sabitleri Dim objCDOMail
' email aktif mi If SEND_EMAIL Then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' obje özellikleri objCDOMail.From = strFrom objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody
' mesajı yolla objCDOMail.Send Set objCDOMail = Nothing End If End Sub
_________________
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Saçlarındaki aklar tel tel... Rüzgar "Bémal" şarkısını söylüyor senin için... Bu dünyaya gelişin farklıydı,duruşun farklı... Gidişin de öyle mi olmalıydı Bémal!
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir
Bu forumda yeni konular açamazsınız Bu forumda konulara cevap yazamazsınız Bu forumda kendi iletilerinizi değiştiremezsiniz Bu forumda kendi iletilerinizi silemezsiniz Bu forumda dosya ekleyemezsiniz