ASP

ASP Üzerine

Namaz Vakitleri Çekme

25 Ağu

Hakan AK tarafından ASP kategorisinde yayınlanmıştır

Yorum yok

Merhaba ARkadaşlar şuanda yapmakta olduğum bir firma rehberinde lazım olmuştu.

hemen paylaşayım dedim.

çalışan halini görmek için www.adapazarinet.com

Kodu:

PHP- Kodu:
<%
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.vakitci.com/vakit.php?id=46"
strVeri = VeriAL(strAdres)
imsak=InStr(strVeri,"İmsak</td>" )
strImsak=Mid(strVeri,imsak+60,4)

gunes=InStr(strVeri,"Güneş</td>" )
strGunes=Mid(strVeri,gunes+61,4)

ogle=InStr(strVeri,"Öğle</td>" )
strOgle=Mid(strVeri,ogle+60,4)

ikindi=InStr(strVeri,"İkindi</td>" )
strikindi=Mid(strVeri,ikindi+61,5)

aksam=InStr(strVeri,"Akşam</td>" )
straksam=Mid(strVeri,aksam+60,5)

yatsi=InStr(strVeri,"value=""ezan.mp3""" )
stryatsi=Mid(strVeri,yatsi+92,5)

%>
İmsak: <%= strImsak %><br>
Güneş: <%= strGunes %><br>
Öğle : <%= strOgle %><br>
İkindi : <%= strikindi %><br>
Akşam : <%= straksam %><br>
Yatsı: <%= stryatsi %><br>

Kolay gelsin ..

56 views

,

Güncel Döviz Kurları

25 Ağu

Hakan AK tarafından ASP kategorisinde yayınlanmıştır

Yorum yok

Merhaba arkadaşlar

aşağıdaki örneğimizle

Dolar ve Euro dövizlerini sitemizde dinamik olarak gösterebiliriz…

PHP- Kodu:

<%
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)
strEuroSatis=Mid(strVeri,iEuro+52,11)
%>

Dolar Alış için; <%= strDolarAlis %>

Dolar Satış için; <%= strDolarSatis %>

EuroAlış için; <%= strEuroAlis %>

Euro Satış için; <%= strEuroSatis %>

kullanabilirsiniz…

kolay gelsin.

120 views

,

Asp’de Listeleme Yaparken Satır Renklendirme

25 Ağu

Hakan AK tarafından ASP kategorisinde yayınlanmıştır

Yorum yok

html de tablo yapısını biliyorsunuzdur.

PHP- Kodu:
<table>

başlık olan yeri oluşturuyoruz…

PHP- Kodu:
<tr>
<th>Başlık</th>
<th>işlem</th>
</tr>

evet başlığımız oluştu çıktısı

Başlık işlem

şimdi altında listelenecek yere sıra geldei. döngünün olacağı yer.

PHP- Kodu:
<tr>
<td><%= rec("Baslik") %></td>
<td><a href="sil.asp?id=<%= rec("id") %>">SİL</a></td>
</tr>

döngüde olan yerimizide belirttik

şimdi table bloğunu kapatıyoruz

PHP- Kodu:
</table>

bu kadar.

Not: baslik, id veritabanındaki alan adlarıdır.

yukarıdaki işlemlere görede;

<%
strMainDB = Server.MapPath(“DataCb/Data.mdb”)
Set Connection = Server.CreateObject(“ADODB.Connection”)
Connection.Open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & strMainDB
%>
<table>
<tr>
<th>Başlık</th>
<th>işlem</th>
</tr>
<%
Set rec = Nothing
Set rec = Server.CreateObject(“ADODB.RecordSet”)
rSQL = “Select Top 10 * From TabloAdi Order by id Desc” ‘ 10 yerine 20 yazarsan son 20′yi listeler // order by birincilAnahtarOlanAlanAdi Desc
rec.Open rSQL,Connection,3,3
Counter = 0
Do While (Not rec.Eof)
Counter = Counter + 1
‘ Satır Renklendirme
If Counter Mod 2 Then
CLR = “F1F6FF”
Else
CLR = “FCFDFF”
End If

%>
<tr>
<td style=”background-color:#<%= CLR %>“><%= rec(“Baslik”) %></td>
<td style=”background-color:#<%= CLR %>“><a href=”sil.asp?id=<%= rec(“id”) %>”>SİL</a></td>
</tr>
<%
rec.MoveNext : Loop
rec.Close
Set rec = Nothing
%>
</table>

aşağıdaki kod parçasıda satırlarımızı renklerndirir.
style=”background-color:#<%= CLR %>”

kolay gelsin.

159 views

, , ,

reVierphone