<%
'==================================
 '站長計數器v1.0
 '制　作：中國站長在線
 '網站：http://www.web591.cn
 '最新版本下載：http://www.web591.cn/591code/
 
'聲 明:	
   '本軟件系免費程序,提供給個人免費使用,除保留版權外無其它任何限制。
   '未經作者許可禁止用于任何商業用途。
'站長計數器功能：
   '1.計數器數字圖片和文字兩種機制共存。
   '2.頁面顯示計數和IP防刷新計數兩種計數模式。
   '3.Script腳本方式調用計數器代碼。
   '4.共5種圖片樣式任您選擇使用，并且可以方便地增加計數器圖片樣式。
   '5.穩定性、安全性、速度上表現都很優秀，功能齊全，代碼集成程度高、完全公開，專業制作，完全免費。
   '6.適合網站設計人員在制作企業站時使用。
 
'站長在線其它作品：FreeAd8百萬格子 V3.5 商業版、Web591站長自助鏈、網上征文投稿系統、
'　　　　　　　    站長留言本 V1.0 等。

'此段版權注釋不會影響網頁打開速度，請勿刪除!
'　　　　　　　　　　　2006年12月01日									
'===================================
%>
document.write("<%
'連接數據庫
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("web#jsqmdb.asp")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1

Sub MyCounter(refresh,ty,picid)
	Dim CountNum
	SET Rs = Server.CreateObject("ADODB.Recordset")
	Rs.Open "Select * From counters" , conn,1,3

	Select Case refresh
	    '刷新不計數
		Case 1
			if isempty(session("number")) then
				application.lock
				Rs("TOTAL")=Rs("TOTAL") + 1 
				application.unlock
				session("number")=true
			end if
		'刷新記數
		Case 2
			Rs("TOTAL")=Rs("TOTAL") + 1
	End Select

	Rs.Update
	CountNum=Rs("TOTAL")

	Rs.close
	set Rs=nothing
	Conn.Close
	Set Conn = Nothing
Call DispNum(CountNum,ty,picid)
End Sub

Sub DispNum(CountNum,ty,picid)
	If ty="True" Then
		Dim S, i, G,pid
                pid=picid
		S = CStr(CountNum)
		For i = 1 to Len(S)
		 G = G &  "<img src=images/"&pid&"/" & Mid(S, i, 1) & ".gif align=middle>"
		Next
                response.write("您是本站第 ")
		Response.write (G)
                response.write(" 位客人")
	Else
		response.write("您是本站第 <font color=#FFC700><b>"&CountNum&"</b></font> 位客人")
	End If
End Sub

If Request("action")="freesoho" Then
	If Request("refresh")<>"" and Request("ty")<>"" Then Call MyCounter(Request("refresh"),Request("ty"),Request("Picid")) End If
End If
%>");