Programalama > ASP


Ort. 0
Puan ver:
<% 
Set ObjRs = Server.CreateObject ("ADODB.Recordset" ) 
'Sql ile tablodan hit alanını buluyoruz 
strSQL = "Select * From uyeler where hit" 
ObjRs.Open strSQL,strObj,1,3 
ObjRs = ObjRs("hit" )  
'Bu altta görmüş olduğunuz kod sayesinde hit alanından gelen sayıları replace fonksiyonu ile image' e çeviriyoruz. 
'ObjRs,"1"   ise images' e gir ve 1.gIf i koy demiş oluyoruz. 
'Aynı mantık alttaki işlemler içinde geçerlidir. 
ObjRs = Replace(ObjRs,"1" ,"<img src=" "images/1.gif" ">" )  
ObjRs = Replace(ObjRs,"2" ,"<img src=" "images/2.gif" ">" )  
ObjRs = Replace(ObjRs,"3" ,"<img src=" "images/3.gif" ">" )  
ObjRs = Replace(ObjRs,"4" ,"<img src=" "images/4.gif" ">" )  
ObjRs = Replace(ObjRs,"5" ,"<img src=" "images/5.gif" ">" )  
ObjRs = Replace(ObjRs,"6" ,"<img src=" "images/6.gif" ">" )  
ObjRs = Replace(ObjRs,"7" ,"<img src=" "images/7.gif" ">" )  
ObjRs = Replace(ObjRs,"8" ,"<img src=" "images/8.gif" ">" )  
ObjRs = Replace(ObjRs,"9" ,"<img src=" "images/9.gif" ">" )  
ObjRs = Replace(ObjRs,"0" ,"<img src=" "images/0.gif" ">" )  
'Burada ise sayıyı image olarak yazdırıyoruz. 
Response.Write ObjRs 
%> 


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.