* Oturum Aç   * Kayıt Ol


Son ziyaretiniz:
Sistem saati: 03 Arl 2008, 10:50
Cevapsız iletiler
Aktif konular




Yeni konu gönder Konuya cevap yaz  [ 33 ileti ]  Sayfaya git 1, 2, 3, 4  Sonraki
Yazar Mesaj
 İleti başlığı: ASP Hazır Kodlar!
İletiTarih: 25 Kas 2006, 17:00 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Asptear ile havadurumu

<%
adres = "http://www.meteor.gov.tr/pages/sonhavat.htm"

On Error Resume Next
Set Tear = Server.CreateObject("Softwing.AspTear" )
strVeri = Tear.Retrieve(adres,2, "" ,"" ,"" )

If Err <> 0 Then
Response.Write "Bir hata oluştu, açıklaması: " & Err.Description
Response.End
End If

tahminler = InStr(1,strVeri,"SICAKLIKLARI DA SOYLE OLACAK" )
strHavadurumu = Mid(strVeri,tahminler+38,150)
%>

<%=Date() %> tarihli Hava Tahmini şöyledir:


<%=strHavadurumu %>



_________________

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!


En son Siyabend tarafından, 25 Kas 2006, 17:02 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.

Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Basit bir sayaç
İletiTarih: 25 Kas 2006, 17:01 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Basit bir sayaç

<%
'Eğer Application("hit") bos ise Application("hit") 'i sifira esitliyoruz
If Application("hit") = "" Then
Application("hit") = 0
End If

'Application("hit") sayisini 1 arttiriyoruz
Application("hit") = Application("hit") + 1
%>

<%= Application("hit") %> Ziyaretçi..

_________________

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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Bugün seçili gün/ay/yil combobox kutulari
İletiTarih: 28 Kas 2006, 10:58 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Bugün seçili gün/ay/yil combobox kutulari



Uygulamalarinizda tarih seçerken varsayilan olarak bugünün ayarli oldugu seçim kutulari kullanmak isterseniz
----------------------------------------------------
<%
rfdate=date
rfday=day (rfdate)
rfmonth= month (rfdate)
rfyear= year (rfdate)
response.write rfdate
%>











GÜN AY YIL

_________________

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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Cdonts mail bileseni mail yollama
İletiTarih: 28 Kas 2006, 10:59 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Cdonts mail bileseni mail yollama


<%
'Created By MTDesign - Üye olmadığınız için bu linki göremiyorsunuz. Üye olmak için Tıklayınız.
'CDONTS MAIL SENDER

RESPONSE.BUFFER = TRUE

Dim objCDOMail
Dim strFrom, strTo
Dim strBody, strSubject

strFrom = Request.form("from")
strTo = request.form("to")
strBody = request.form("body")
strSubject = request.form("subject")

Set objCDOMail = Server.createobject("CDONTS.NewMail")
objCDOMail.From = str.From
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML)
objCDOMail.BodyFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast)
objCDOMail.Send
Set objCDOMail = nothing
%>

_________________

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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Database'de bu veri girilmis mi?
İletiTarih: 28 Kas 2006, 11:00 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Database'de bu veri girilmis mi?


Bunu çoğunlukla üyelik sistemlerinde kullanabilirsiniz. Böylece aynı kullanıcı adına sahip bi kaç üye gibi bi sorun ortaya çıkmaz. Kod örneği aşağıdadır.
--------------------
..
..
..
set rset = Server.CreateObject("ADODB.RecordSet")
sql_rset ="Select * FROM tablomuz where kullaniciadi='"&Request("kullaniciadi")&"'"
rset.open sql_rset,conn,1,3
On Error Resume Next 'BU SATIR COK ONEMLI CUNKI EGER DAHA
'ONCEDEN BOYLE BIR KULLANICI GIRILMEMISSE
'DBDEKI ALANDA KULLANICI ADINI BULAMADIGINDAN
'HATA VERECEK BIZ BU HATA DURUMUNDA
'AKISIN DEVAMINI SAGLIYORUZ

If rset("kullaniciadi") = "" Then
Response.Write("Bu kullanıcı adı daha önceden alınmamış.")
Else
Response.Write("Bu kullanıcı adı bir başka üye tarafından kullanılıyor. Lütfen başka bir kullanıcı adı seçiniz.")
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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Database'den veri alma süresini hesaplama
İletiTarih: 28 Kas 2006, 11:02 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Database'den veri alma süresini hesaplama

<%
Dim Conn,RS,SQL,DSN

DSN = "DBQ=" & Server.Mappath("benchmark.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Response.Write "Baslama: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "
"

Conn.Open DSN
SQL = "SELECT * FROM table"
RS.Open SQL,Conn,1,2
Do While Not RS.EOF
i = i +1
RS.MoveNext
Loop

Response.Write "Bitme: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "
"
Response.Write i & " kayit bulundu."
%>

_________________

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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Databaseden Excele aktarma
İletiTarih: 28 Kas 2006, 11:03 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Databaseden Excele aktarma

<%@ Language=VBScript %>
<%
'sql: kısmına çift tırnak içinde direk sql stringi yaz
'cnnl: database bağlantısı
Function exporttoexcel(FileName,sql,cnnl)
dim iCols
dim i
set rs=server.CreateObject("ADODB.Recordset")
set rs=cnnl.Execute (sql)
iCols = rs.Fields.Count
session("FileName")=cstr(FileName)
set fso = createobject("scripting.filesystemobject")
Set folder = fso.GetFolder("c:\Inetpub\wwwroot\tekintranet\dokuman\excel")
Set act = folder.CreateTextFile(""&FileName& "" &".xls", true)
act.WriteLine ""
act.WriteLine ""
act.WriteLine " "
act.WriteLine ""
act.WriteLine ""
act.WriteLine ""
act.WriteLine ""
For i = 0 To iCols - 1
act.WriteLine ""
next
act.WriteLine ""
rs.MoveFirst
i=0
do until rs.EOF
act.WriteLine ""
For i = 0 To iCols - 1
act.WriteLine ""
next
act.WriteLine ""
rs.MoveNext
loop
act.WriteLine "
"
act.WriteLine ""&cstr(rs.Fields.Item(i).Name&"")
act.WriteLine "
"
if rs.Fields.Item(i)<>"" then
act.WriteLine ""&cstr(rs.Fields.Item(i))&""
end if
act.WriteLine "
"
act.WriteLine ""
act.WriteLine ""
' close the document
act.close
rs.Close
end function
%>

_________________

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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: Domain sorgulama
İletiTarih: 28 Kas 2006, 11:04 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
Domain sorgulama


Domainin kullanimda olup olmadigini sorgulayan kod örnegi
---------------------------------------------------
<%
If request.form("domain")<>"" then
GotothisURL = "http://www." & request.form("domain")

Set GetConnection = CreateObject("Microsoft.XMLHTTP")

GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send

ResponsePage = GetConnection.getResponseHeader("Date")

if ResponsePage="" then
Response.write("Domain kullanımda değil")
else
Response.write("Domain alınmış(kullanımda)")
end if

Set GetConnection = Nothing

else
%>
>



<% 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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: döviz kuru almak (TCMB)
İletiTarih: 28 Kas 2006, 11:05 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
döviz kuru almak (TCMB)


<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function

strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+39,10)
strDolarSatis=Mid(strVeri,iDolar+52,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis
%>

Döviz kurlarının görünmesini istediğiniz yere aşağıdaki kodları yazın.

<%=strdolarsatis%>
<%=streurosatis%>

_________________

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!


Sayfa başı
 Profile bak E-posta  
 
 İleti başlığı: En son 10 kayit
İletiTarih: 28 Kas 2006, 11:07 
Çevrimdışı
Belawela Muhtarı
Belawela Muhtarı
Kullanıcı avatarı

Kayıt: 15 Ekm 2006, 11:05
İleti: 18351
Konum: bu kadar meraklı olmayın:)
Ruh Hali: Mutlu
Cinsiyet: Erkek
Burç: Kova
Takım: Galatasaray
En son 10 kayit

<%
'Veritabanına bağlanıyoruz.
set conn=server.createobject("adodb.connection")
conn.open= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath ("db/database.mdb")
'Şimdi Kayıt nesnemizi oluşturuyoruz.
Set rs=server.createobject("adodb.recordset")
'şimdi sql ile sorgu oluşturuyoruz.
sql="select * from tablo where kayit_tarih desc"
'şimdi kayıt nesnemiz olan rs ile tabloyu açtırıyoruz
rs.open sql,conn,1,3
%>
<%
' Şimdi ise sql sorgusu ile aldığımız kayıtların sadece 10 tanesini gösterecek bir döngü yaratıyoruz
for i=1 to 10
%>
<%= rs("kayit_tarih")%> <%= rs("kayit")%>
<% rs.movenext %>
<% 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!


Sayfa başı
 Profile bak E-posta  
 
Önceki iletileri göster:  Sıralama  
Yeni konu gönder Konuya cevap yaz  [ 33 ileti ]  Sayfaya git 1, 2, 3, 4  Sonraki


Kimler çevrimiçi

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

Arama:
Git:  
Genel

SitemapIndex SitemapIndex RSS Feed RSS Feed Channel list Channel list
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB2 template by N.Design Studio
phpBB3 template by SE-Tuning
phpBB3 Türkçe: phpBB Türkiye
phpBB SEO