<%@Language=VBScript EnableSessionState=False%>

<%
	Application.Lock 

	Dim Fso
	Dim Fs
	Dim Count
	Dim i
	Dim FName
	Dim imgPath
	Dim Keta
	Dim strCnt
	Dim strGif
	Dim strZen
	Dim cgif

	Count = 0
	imgPath = "CounterImages\"

	' カウンタファイル
	FName = SERVER.MAPPATH(".") & "\" & Request.QueryString("ID") & ".txt"
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")

	' ファイルの有無
	If Fso.FileExists(FName) then
		' カウンターを読込み
		Set Fs  = Fso.OpenTextFile(FName,1,False)
		Count = Fs.ReadLine
		Fs.Close 
	Else
		Count = 0
	End If

	IF Request.QueryString("Count") = "1" THEN
		Count = Count + 1

		Set Fs  = Fso.OpenTextFile(FName,2,True)
		Fs.WriteLine Count
		Fs.Close 
	END IF
	Set Fs  = Nothing

	Application.UnLock


	Keta = CLng(Request.QueryString("Keta"))
	strCnt = "0000000000" & Count


	strGif = Clng(mid(strCnt, len(strCnt) - Keta + 1 , 1))
	strANI = ""
	if Keta = 1 then
		strANI = "a"
	ELSE
		strZen = Clng(mid(strCnt, len(strCnt) - Keta + 2))
		IF strZen = 0 THEN
			strANI = "a"
		ELSE
		END IF
	END IF
	strGifFile = strANI & strGif & ".gif"

	FName = SERVER.MAPPATH(".") & "\" & imgPath & strGifFile

	Set Fs  = Fso.OpenTextFile(FName,1,False,-1)
	cgif = Fs.Read(100000)
	Fs.Close 
    Set Fs = Nothing
	Set Fso = Nothing


	Response.ContentType = "image/gif"
	Response.BinaryWrite(cgif)

%>