Asp Script

Css logo gösterim kodu

admin — Wed, 03 Mar 2010 17:32:21 +0000

Css logo gösterim kodu

css kodu

#logo h1 a {
width: 471px;
display: block;
background: url("logo.jpg") no-repeat top left;
text-transform: uppercase;
text-indent: -500%;
height: 140px;
}

Asp döviz kurları

admin — Tue, 02 Mar 2010 20:51:10 +0000

Asp merkez bankası döviz kurları bu kodları olduğu gibi sayfanızın bir yerine kopyalayın

Döviz Kurları

<%
If session("doviz")="" Then
Set kurlar = Server.CreateObject("msxml2.DOMDocument" )
kurlar.async = false
kurlar.resolveExternals = false
On Error Resume Next
kurlar.setProperty "ServerHTTPRequest" ,true
kurlar.load("http://www.tcmb.gov.tr/kurlar/today.xml" )
Set sonuc =kurlar.getElementsByTagName("Currency" )
dolaralis=sonuc.item(0).childnodes.item(3).nodeTypedValue
dolarsatis=sonuc.item(0).childnodes.item(4).nodeTypedValue
euroalis=sonuc.item(11).childnodes.item(3).nodeTypedValue
eurosatis=sonuc.item(11).childnodes.item(4).nodeTypedValue

session("doviz") = "Alýþ
1 EUR : " & euroalis & " YTL
1 USD : "&dolaralis&" YTL
Satýþ
1 EUR : "&eurosatis&" YTL
1 USD: "&dolarsatis&" YTL"
End if
%>
<%=session("doviz")%>

Asp üye kayıt işlemi

admin — Sat, 27 Feb 2010 08:27:34 +0000

Asp üye kayıt işlemi sayfalarımızda aşağıdaki kodları olduğu gibi kayit ol olarak kaydedin 3 form var kayıtol.asp , kaydet asp ,ve ayar.asp
ilk fordan ikinci formda kayıt için işlem yapmaktadır…

kayitol.asp

Kullanýcý Adý :
Parola :
:

————————————-

ayar.asp

<%
Set Baglanti = Server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("uyelikdb/uyelik.mdb")
%>

——————————————————–

kayit.asp

kullanici = Request.Form("kullanici")
parola = Request.Form("parola")

IF kullanici="" or parola="" Then
Response.Write "Lütfen geri dönüp kullanýcý adý veya þifrenizi doldurunuz"
Response.End
END IF

Set Kaydet = Server.CreateObject("adodb.recordset")
sql="Select * From uyeler"
Kaydet.open sql , Baglanti ,1,3

Kaydet.Addnew
Kaydet("kullanici") = kullanici
Kaydet("parola") = parola
Kaydet("giris_tarihi") = now()
Kaydet("onay")= "1"
Kaydet.Update

Kaydet.Close
Set Kaydet = Nothing
Baglanti.Close
Set Baglanti = Nothing

Response.Write "Tebrikler Sitemize Baþarýyla Üye Oldunuz"

Asp tarih ve saat formatı

admin — Sat, 20 Feb 2010 19:37:06 +0000

Asp tarih ve saat formatı Web sayfanızın bir köşesine tarih ve saat görüntülemek istiyorsanız buyrun size kodları

Saat
<% Response.Write(FormatDateTime(Now(),4) & ” ” )%>
, <%=Day(Date)%> <%=MonthName(Month(Date))%> <%=WeekdayName(Weekday(Date))%> <%=Year(Now)%>

Asp Session kullanımı

admin — Tue, 16 Feb 2010 18:55:57 +0000

Asp Session kullanımına bir örnek diyelimki bir resim ekleme yapacağız fakat resim yok dosya boş geçecek ama vt ye fotoyok.gif olarak yazacak tabi kayıt çağrıldığı zamanda foto yok gigi çalışacak

resim ekleme başına şu kodları yazalım

If Count = 0 Then
Session("resim")="fotoyok.gif"
End if

database bağlı sayalalım ve atamamızı yapalım

Set rs=server.createobject("Adodb.Recordset")
Sorgu = "Select * From resim_yazilar"
rs.open Sorgu,baglanti,1,3
rs.addnew

If Session("resim")="" Then
rs("resim") = YuklenenDosyaninIsmi
Else
rs("resim") = Session("resim")
End If

rs.update ' ve kayıt işlermi

Asp sayfalama listeleme

admin — Tue, 16 Feb 2010 18:49:29 +0000

Asp de listemeye bir örnek olarak sayfa numarası ileri geri şekilde kodlanmı kodları sayfalama.asp olarak yada dosya ismini siz verin veri tabanı yolunu belirtmeyi unutmayın

<% @ Language = VBScript CodePage = 1254 %>
<%
'/////////////////////////////////////////////////////////////////
Option Explicit
Response.Buffer = True
Response.Expires = -1
'/////////////////////////////////////////////////////////////////
'—- CursorTypeEnum Values —-
Const adOpenStatic = 3
'—- LockTypeEnum Values —-
Const adLockReadOnly = 1
'—- CommandTypeEnum Values —-
Const adCmdText = &H0001
'/////////////////////////////////////////////////////////////////
Dim intHerSayfadaGosterilecekKayit
intHerSayfadaGosterilecekKayit = 20
'intHerSayfadaGosterilecekKayit (Her sayfada göstereceğiniz kayıt sayısı ile değiştirebilirsiniz.)

Dim intSayfa
if Request.QueryString("s") = "" then
intSayfa = 1
else
intSayfa = CInt(Request.QueryString("s"))
end if
'intSayfa (Açık olan sayfa sayısını alırız. Sayfa "s" değişkeninin değeri yok ise 1 değeri atanır. Bu değer boş değil ise sayfadan gönderilen sayı alınır.)
'/////////////////////////////////////////////////////////////////
%>

ornek

<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")

dim strSql
strSql = "SELECT * FROM tblVeri"

objRs.PageSize = intHerSayfadaGosterilecekKayit '(Bir sayfada görüntülenecek kayıt sayısını belirtir.)
objRs.CacheSize = intHerSayfadaGosterilecekKayit

objRs.Open strSql, objConn, adOpenStatic, adLockReadOnly, adCmdText

dim intToplamSayfa
intToplamSayfa = objRs.PageCount

if intSayfa > intToplamSayfa then intSayfa = intToplamSayfa
if intSayfa < 1 then intSayfa = 1

if objRs.EOF then
'if intToplamSayfa = 0 then
%>

      <%
else
objRs.AbsolutePage = intSayfa '(kayıtsetine hangi sayfada olduğunu bildirir.)
%>







      <%
dim intSayac01
intSayac01 = 0
do while intSayac01 < intHerSayfadaGosterilecekKayit And Not objRs.EOF
%>







      <%
intSayac01 = intSayac01 + 1
objRs.MoveNext
loop
%>











      <%
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>

Kayıt yok

<% = objRs("id") %>	<% = objRs("veri") %>	<% = objRs("veri") %>	Sil	Düzenle
<% if intSayfa > 1 then %> [<< Geri] <% end if dim intSayac02 for intSayac02 = 1 To intToplamSayfa if intSayac02 = intSayfa then %> <%= intSayac02 %> <% else %> <%= intSayac02 %> <% end if next if intSayfa < intToplamSayfa then %> [ileri >>] <% end if %>

asp sayfanız için tarih kodu

admin — Mon, 08 Feb 2010 12:11:07 +0000

asp sayfanız için tarih kodu

<%
aylar = array ("ay", "Ocak", "Þubat", "Mart", "Nisan", "Mayýs", "Haziran", "Temmuz", "Aðustos", "Eylül", "Ekim", "Kasým", "Aralýk")
gun = day(now)
ay = aylar(month(now))
ay2 = month(now)
yil = year(now)
yil2 = right(year(now), 2)
saat = hour(now)
if len(saat) = 1 then saat = "0"&saat
dakika = minute(now)
if len(dakika) = 1 then dakika = "0"&dakika
saniye = second(now)
if len(saniye) = 1 then saniye = "0"&saniye
%>

<%
response.write gun & " / " & ay & " / " & yil '6 / Haziran / 2002 formatýnda
response.write "

"
response.write gun & " / " & ay2 & " / " & yil '6 / 6 / 2002 formatýnda
response.write "

"
response.write gun & " / " & ay & " / " & yil2 '6 / Haziran / 02 formatýnda
response.write "

"
response.write gun & " / " & ay2 & " / " & yil2 '6 / 6 / 02 formayýnda
response.write "

"
response.write saat & " : " & dakika & " : " & saniye
%>

Web sayfası iconları5

admin — Tue, 02 Feb 2010 13:33:13 +0000

Web sayfanız için tasarlanmış binlerce icon bu iconları kullanmanız mümkün ,en güzel şık tasarımlarınızın kalitesini artırabilirsiniz.
içinde hayvan iconları,bilgisayar iconları,logo iconları bulabileceğiniz bir arşiv

Web sayfası iconları4

admin — Tue, 02 Feb 2010 13:20:30 +0000

Web sayfası iconları3

admin — Tue, 02 Feb 2010 13:10:23 +0000