Asp (Ytl ve döviz kullanımı)

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET Asp (Ytl ve döviz kullanımı)

Bu konudaki kullanıcılar: 1 misafir

1
Cevap 282
Tıklama 0
Öne Çıkarma

1. sayfa

Asp (Ytl ve döviz kullanımı)

Cevap Yaz

Wesmo

20 yıl

Yüzbaşı

Konu Sahibi

Merhaba
kafam karıstı sanırım bıraz fıkır alısverısıne ıhtıyacım olucak.

sımdı onlıne alısverıs sıtesı uzerınde calısıyorum bir script vardı ytl çevirdim fakat site içerisinde online olarak döviz dönüşümünüde kullanmak istiyorum.

''bir ürün 10 dolar ise otomatik an anki kura göre hesaplasın ve ytl cınsınden yazsın''

bu tarz bısey yapmak ıstıyorum fıkırlerınızı beklıyorum.

lebrekon

20 yıl

Onbaşı

aşağıdaki kodu kendine göre uyarla

***************************************
<% toplam= cint(monitorfiyat)+cint(ekranfiyat)+cint(anakartfiyat)+cint(islemcifiyat)+cint(ramfiyat)+cint(hddfiyat)+cint(dvcdromfiyat)+cint(sesfiyat)+cint(floppyfiyat)+cint(klavyefiyat)+cint(isletimsfiyat)+cint(kasafiyat)+cint(mousefiyat)+cint(faxmodemfiyat)+cint(tvkartfiyat)+cint(speakerfiyat)+cint(digerfiyat)
kdvdahil= toplam*1.18 %>
<table width="400" border="0" cellspacing="0" cellpadding="0">

<tr>
<td width="71%"><font color="#FF0000" size="3">Toplam:</font></td>
<td width="29%"><font size="3"><font color="#FF0000"> <%=toplam%>
+KDV </font></font></td>
</tr>
</table>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="cizgi2.jpg" width="400" height="1"></td>
</tr>
</table>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="71%"><font color="#FF0000" size="3">Seçili parçalarin
KDV dahil toplam fiyati:</font></td>
<td width="29%"><font size="3"><font color="#FF0000"> <%=kdvdahil%>
</font></font></td>
</tr>
</table>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="cizgi2.jpg" width="400" height="1"></td>
</tr>
</table>
<p>TL degeri:<%

const Request_GET = 2

url = "http://www.tcmb.gov.tr/kurlar/today.html"

On Error Resume Next 'Herkes hata yapabilir :)
Set Tear = Server.CreateObject("Softwing.AspTear")
veri = Tear.Retrieve(url,Request_Get, "","","")

if Err <> 0 then ' Eğer bizde hata yaptı isek
Response.Write "Bir hata oluştu:"& Err.Description
REsponse.End
end if

dlr = Instr(1,veri,"ABD DOLARI")
dSatis = Mid(veri,dlr+53,15)
degorta= left(dSatis,9)
dolar= (left(dSatis,5)+right(degorta,3)+right(dSatis,5))
islem= dolar*kdvdahil
aaaa=formatnumber(islem)
aa=len(aaaa)-"3"
sonuc=mid(aaaa,1,aa)
response.write sonuc

%>
</p>
<p>Dolar kuru TCMBnin resmi sitesinden <%=dSatis%> olarak alinmistir.</p>
<p> </p>

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET Asp (Ytl ve döviz kullanımı)