Gelen Sayıyı Resme Çevirme

<%
function donustur(X)
select case x
case 0 donustur="img/0.GIF"
case 1 donustur="img/1.GIF"
case 2 donustur="img/2.GIF"
case 3 donustur="img/3.GIF"
case 4 donustur="img/4.GIF"
case 5 donustur="img/5.GIF"
case 6 donustur="img/6.GIF"
case 7 donustur="img/7.GIF"
case 8 donustur="img/8.GIF"
case 9 donustur="img/9.GIF"
end select
end function

Dim sayi,resyol,a(20),b(20),uzunluk,sayi1
sayi= request.querystring ("gelensayi")
uzunluk=len(sayi)
for i=1 to uzunluk
a(i)=mid(sayi,i,1)
b(i)=donustur(a(i))
response.write"<img border=""0"" src=""" & b(i) & """ width=""9"" height=""9"">"
next


%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

gelen sayıyı resme � evirme