common.inc

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

<!--DO NOT DELETE-->
<%
'----------------------------------------------------------------------------------------
'  Simple Designs Web Company - Simple Designs Counter
'                                                                                             
'  This program is free software/source code and does not come with a warrenty.
'
'  You can modify (at your own risk) any part of this program with the exception of when
'  the <!--DO NOT DELETE--> tags are above and below a line or lines of code throughout the
'  software. Code between and including these tags may not be modifed for any reason without
'  permission of the author.
' 
'  You may not pass the whole or any part of this application off as your own work.
'
'  Copyright 1999-2003 Beau Durrant All Rights Reserved.
'
'  Program Author: Beau Durrant ([e-mail])
'
'  Simple Designs Web Company
'  http://www.sdwebco.com
'  915 8th Street South
'  Lethbridge, Alberta
'  T1J 2K7
'  Canada
'
'----------------------------------------------------------------------------------------
%>
<!--DO NOT DELETE-->

<%
Dim color
Dim resolution
Dim rsCounter
Dim rsCounter2
Dim adoCon
Dim MyBrow
Dim counter
Dim temp
Dim temp2
Dim browser
Dim oldBrowser
Dim totalCounter
Dim filename
Dim fs
Dim viewOption
Dim version

strCounter = ""

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

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

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

Set rsCounter = Server.CreateObject("ADODB.Recordset")
Set rsCounter2 = 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

%>