Program | counter | The network uses the Imagelib component!
<%
Site_id=request.querystring ("site_id")
If IsEmpty (site_id) Then
Response.End
End If
Set Sistema = CreateObject ("Scripting.FileSystemObject")
Set ILIB = Server.CreateObject ("Overpower.imagelib")
Path=server. MapPath (".. /Save the path of the count File/")
Counterfile=path & "\count_" & site_id & "TXT"
Contagem = 0
If Sistema.fileexists (counterfile) Then
Set arquivo = Sistema.getfile (counterfile)
Set texto = arquivo. OpenAsTextStream (1,-2)
Contagem = Texto.readline
Texto.close
End If
Contagem = Contagem + 1
Set texto = sistema. CreateTextFile (Counterfile, True, false)
Texto.writeline Contagem
Texto.close
Texto = Contagem
If Contagem > 1 then texto = texto
Textolen=len (texto)
For I=1 to 8-textolen
Texto= "0" & texto
Next
ILIB. FontColor = "#00ff00" Font Color
ILIB. BrushColor = "#000000" ' Background color
' ILIB. Fontface = "Verdana"
' ILIB. Fontface = "Checkers"
ILIB. FontSize = 8
ILIB. FontBold = False
Ilib.width = ILIB. Gettextwidth (texto) +5
Ilib.height = ILIB. Gettextheight (texto) +5
ILIB. PenColor = "#307C3B" Border color
ILIB. Box 1,1,ilib. Width,ilib. HEIGHT
ILIB. TextOut texto,3,3
ILIB. TextOut "", ILIB.WIDTH/2-tamanho/2,10
ILIB. Picturebinarywrite 2, 0, ""
Set Sistema =nothing
Set ILIB =nothing
Set arquivo = Nothing
Set texto = Nothing
%>
This counter uses the Imagelib component to register the component before using the program;
If you save the file as Count.asp, then refer to this counter in count.asp with the following code:
You can also directly refer to the counter program of this site, the code is as follows:
<a href= "http://www.chinanetboy.com/" target= "_blank" alt= "network Elite" >src= "http://www.chinanetboy.com/scripts/count.asp?site_id= your domain name" border=0></a>
But please send me an email before use, lest I delete your data when I clean it up:
Counter program code see here http://www.chinanetboy.com/website/read.asp?id=123;
