counter.inc

一个足球彩票程序,不是原创.是朋友偷来的!

<script language="JavaScript" type="text/javascript">
if(navigator.userAgent.indexOf('IRIX') != -1)
    { document.cookie = "os=Irix"; }
  else if((navigator.userAgent.indexOf('Win') != -1) &&
  (navigator.userAgent.indexOf('95') != -1))
    { document.cookie = "os=Windows 95"; }
  else if((navigator.userAgent.indexOf('Win') != -1) &&
  (navigator.userAgent.indexOf('98') != -1))
    { document.cookie = "os=Windows 98"; }
 else if((navigator.userAgent.indexOf('Win') != -1) &&
  (navigator.userAgent.indexOf('ME') != -1))
    { document.cookie = "os=Windows ME"; }
 else if((navigator.userAgent.indexOf('Win') != -1) &&
  (navigator.userAgent.indexOf('2000') != -1))
    { document.cookie = "os=Windows 2000"; }
 else if((navigator.userAgent.indexOf('Win') != -1) &&
  (navigator.userAgent.indexOf('XP') != -1))
    { document.cookie = "os=Windows XP"; }
  else if(navigator.userAgent.indexOf('Win') != -1)
    { document.cookie = "os=Windows NT"; }
  else if(navigator.userAgent.indexOf('Mac') != -1)
    { document.cookie = "os=Macintosh"; }
  else { document.cookie = "os=other"; }
</script>
<script language="JavaScript" type="text/javascript">document.cookie = "browser=" + navigator.appName </script>
<script language="JavaScript" type="text/javascript">document.cookie = "version=" + navigator.appVersion </script>
<script language="JavaScript" type="text/javascript">document.cookie = "color=" + screen.colorDepth </script>
<SCRIPT LANGUAGE="Javascript">
   
if (self.screen) {   
        width = screen.width
        height = screen.height
}
else if (self.java) {  
       var jkit = java.awt.Toolkit.getDefaultToolkit();
       var scrsize = jkit.getScreenSize();       
       width = scrsize.width; 
       height = scrsize.height; 
}
else{
 width = height = '?'

}
document.cookie = "resolution=" + width +"x"+ height
</SCRIPT>   

<%
Dim color
Dim resolution
Dim rsCounter
Dim adoCon
Dim MyBrow
Dim counter
Dim temp
Dim temp2
Dim totalCounter
Dim filename
Dim fs
Dim viewOption

strCounter = ""

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("counter/counter.mdb")

Set MyBrow=Server.CreateObject("MSWC.BrowserType")

Set rsCounter = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT count(*) as counter from counter;"
	rsCounter.Open strSQL, adoCon

	totalCounter = rsCounter("counter")

rsCounter.Close

strSQL = "SELECT distinct ip from counter;"
	rsCounter.Open strSQL, adoCon

Do While(not rsCounter.Eof)
	counter = counter + 1
	rsCounter.MoveNext
Loop

rsCounter.Close

	resolution = Request.Cookies("resolution")
	color = Request.Cookies("color")
	browser = Request.Cookies("browser")	
	version = Left(Request.Cookies("version"),3)
	os = Request.Cookies("os")	

	strSQL = "SELECT * FROM counter;" 	

	rsCounter.CursorType = 2
	rsCounter.LockType = 3
	rsCounter.Open strSQL, adoCon	
	rsCounter.AddNew

	if(browser = "MicrosoftInternetExplorer") then 
		browser = MyBrow.browser
		version = MyBrow.version
	End If
	if(browser = "Netscape" and version = "5.0") then version = version & "+"

	rsCounter("ip") = Request.ServerVariables("REMOTE_ADDR")

	if(os = "" or browser = "" or resolution = "" or color="") then
	else	

	rsCounter("os") = os
	rsCounter("browser") = browser & " " & version
	rsCounter("resolution") = resolution
	rsCounter("color") = color & " bit"

	End If
	
	rsCounter("date") = date()	

	rsCounter.Update
	rsCounter.Close
%>

<center><%

Set fs = CreateObject("Scripting.FileSystemObject")

filename = server.mappath("counter/counter.nfo")

Set readfile=fs.OpenTextFile(filename,1,False)
viewOption = readfile.readline 

if(viewOption = "total") then

	temp = Len(totalCounter)
	temp2 = 1

	Response.Write "<table border=1><tr><td>"

	Do While(temp > 0)

		Response.Write "<img src=""counter/" & right(left(totalCounter,temp2),1) & ".gif"">"
		temp = temp - 1
		temp2 = temp2 + 1

	Loop

	Response.Write "</td></tr></table>"

elseif(viewOption = "totaltext") then
	Response.Write "<table border=1><tr><td><font face=""verdana, arial, helvetica"" size=2>" & totalCounter & "</td></tr></table>"

elseif(viewOption = "unique") then

	temp = Len(counter)
	temp2 = 1

	Response.Write "<table border=1><tr><td>"

	Do While(temp > 0)

		Response.Write "<img src=""counter/" & right(left(counter,temp2),1) & ".gif"">"
		temp = temp - 1
		temp2 = temp2 + 1

	Loop

	Response.Write "</td></tr></table>"

elseif(viewOption = "uniquetext") then

	Response.Write "<table border=1><tr><td><font face=""verdana, arial, helvetica"" size=2>" & counter & "</td></tr></table>"

End If

	readfile.close
	set readfile=nothing

%>

<!-- Do NOT DELETE -->
<center><font face="verdana, arial, helvetica" size=1><br>Designed By:<br><a href="http://www.sdwebco.com">Simple Designs</a>
</font>
</center>
<!-- Do NOT DELETE -->