Help
I have a simple ASP counter script which digits in text format:
<%@ Language = VBSCRIPT %>
<% Option Explicit %>
<%
' Variable Section
Const ForReading = 1
Const ForWriting = 2
Const UseText = 0 ' Use this constant if you want to use text for the counter display
Const UseImages = 1 ' Use this constant if you want to use images for the counter display
Dim objCounterFile, objFSO, strFilePath, strImageName, displayOption, imageDirectory
Dim strCounterNumber, iCounterNumber, strCurrentIP, strLastIP
' Set this equal either to 0 or 1, make it equal either UseImages of UseText
' depending on which you want to use to show your counter.
displayOption = 0
' Set this string equal to the sub-directories that you follow to your images directory
' This is from the directory that contains the file that executes "counter.asp"
imageDirectory = "images/"
'
' Gathering information
strCurrentIP = Request.ServerVariables("REMOTE_ADDR")
strFilePath = Server.MapPath("counter.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'
' Checking for the file counter.txt
If (objFSO.FileExists(strFilePath)) then
Set objCounterFile = objFSO.OpenTextFile(strFilePath, ForReading)
' Reading the information in from the text file
iCounterNumber = Cdbl(objCounterFile.ReadLine) + 1
strLastIP = Cstr(objCounterFile.ReadLine)
objCounterFile.Close
Else
' If the doesn't exist start counting at 1
iCounterNumber = 1
End If
'
' If the current visitor's IP is different from the last visitor's IP then log the new information
If (strLastIP <> strCurrentIP) then
Set objCounterFile = objFSO.CreateTextFile(strFilePath, True)
objCounterFile.WriteLine(iCounterNumber)
objCounterFile.WriteLine(strCurrentIP)
objCounterFile.Close
Else
iCounterNumber = iCounterNumber - 1
End If
'
' Destroying the Objects
Set objCounterFile = Nothing
Set objFSO = Nothing
'
' Setting up the number to be displayed
' This setup allows for later changing to images from text
strCounterNumber = CStr(iCounterNumber)
While (Len(strCounterNumber) > 0)
strImageName = Left(strCounterNumber, 1)
If (displayOption = UseText) then
Response.Write (strImageName)
Elseif (displayOption = UseImages) then
Response.Write ("<IMG SRC=""" & imageDirectory & strImageName & ".gif"" BORDER=0>")
End If
strCounterNumber = Mid(strCounterNumber, 2)
Wend
%>
The output is simple Times Roman at about 10/12pt.
How (or where) would I begin to format the output - to a differrnt font, say, or size, or maybe include it in a small box with a border?
Many thanks for any ideas.
High1
