Script ASP - Counters: Graphic counter - Morpheusweb.it - Webmaster resources: programming, asp script, using asp, file asp, asp, asp post, database asp, asp login, vb asp, asp access, asp download, asp script, formmail, area riservata, paginazione, scripts asp, mailform, asp script download

Graphic counter

Graphic access counter.



					
					<% 

					dim PathVisite, fso ,oggOpen, NumVisite,NumCifre,Cont, Cifra 

					'read visits.txt file 

					PathVisits= server.MapPath ("visits.txt") 

					set fso=server.CreateObject("scripting.filesystemobject") 

					set oggOpen =fso.OpenTextFile(PathVisits,1) 

					NumVisits = oggOpen.readline 

					NumVisits=NumVisits+1 

					set oggOpen=Nothing 

					'show images 

					NumCifre=len(NumVisits) 

					for Cont=1 to NumCifre 

					Cifra=mid(NumVisits,Cont,1) 

					select case Cifra 

					case 1 

					%>

					<img SRC="cifra1anim.gif" border="0"> 

					<% case 2 %>

					<img SRC="cifra2anim.gif" border="0"> 

					<% case 3 %>

					<img SRC="cifra3anim.gif" border="0"> 

					<% case 4 %>

					<img SRC="cifra4anim.gif" border="0"> 

					<% case 5 %>

					<img SRC="cifra5anim.gif" border="0"> 

					<% case 6 %>

					<img SRC="cifra6anim.gif" border="0"> 

					<% case 7 %>

					<img SRC="cifra7anim.gif" border="0"> 

					<% case 8 %>

					<img SRC="cifra8anim.gif" border="0"> 

					<% case 9 %>

					<img SRC="cifra9anim.gif" border="0"> 

					<% case 0 %>

					<img SRC="cifra0anim.gif" border="0"> 

					<% end select 

					next

					'update file 

					set oggOpen=fso.OpenTextFile(PathVisits,2) 

					oggOpen.write(NumVisits) 

					oggOpen.close 

					set oggOpen=Nothing 

					set fso=Nothing 

					%>