www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > count/webjsq.asp

    <%
'==================================
 '站长计数器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=/count/images/"&pid&"/" & Mid(S, i, 1) & ".gif align=middle hspace=1>"
		Next
                Response.write (G)
               
	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
%>");