inc_config.asp

这是一款很好的SQL多用户版程序

<%
'基本信息
t1=timer			'显示页面执行时间用
countname	= "网站流量统计" ' 统计器名称
yesleft		= 1		' 是否显示左侧的导航，1表示是，0表示否
yestop		= 0		' 横导航栏放置位置，0表示不放，1表示放页顶，2表示放页底
yesto		= 0		' 是否在版权栏中显示“授权×××”使用字样，1表示显示，0表示不显示

constr="driver={SQL Server};server=127.0.0.1;initial Catalog=count;User ID=cicjs;Password=cicjs@"
				'注意，这里改成相应的用户名与密码、SQL服务器的IP。
whatcan		= 6		' 访客的权限等级，有关等级划分请看 readme 文档
CookieExpires   =100		' cookie设置时间(天),默认为100天
addtime		= 0		' 服务器时间差，服务器时间和本地时间查多少？单位小时
				' 比如服务器时间是17:00，本地时间19:00，就设置2
				' 服务器时间17:00，本地时间15:00，就设置-2
old_count	= 0		' 在使用本统计系统前的访问量		 
is_ipcheck	= false		' 是否启用防刷新功能，true表示启用，false表示不启用
is_online	= false		' 是否统计在线人数，true表示启用，false表示不启用
is_echo		= true		' 注意，防刷新和在线统计都将降低统计器效率
onlythesite1= "" ' 限制嵌入代码位置，保持空白表示不做限制
onlythesite2= ""	' 限制嵌入代码位置，保持空白表示不做限制

'此项不为空时，系统在执行时会检查被访问页面的URL是否以上述文字开头，
'不是以上述文字开头的网址一律不计数。
'比如 onlythesite1="http://www.ajiang.net" ，则如有人在非www.ajiang.net网页放置
'嵌入代码，则统计器并不计数。
'下面标识了多用户的ID，用 QuerySting : ....../count/mystat.asp?userid=40 标识 ，也可以用 Session 来标识（比较浪费资源）。
'但是注意：查看统计数据必须用 Session 标识客户身份，必须通过登录页面。如果你有什么好的方法可以相应的更改，反正把 uid 弄出来就行。
'基于性能考虑，请务必使用数字，数据库使用数字ID比使用字符串检索数据快。 
'用户添加统计数据时，用 <script src="http://www.yourdomain.com/count/mystat.asp?userid=39&style=text"></script>，
'详细使用方法 在 help.asp   或  readme.txt 有详细介绍。
uuid = Request.QueryString("userid")
suid=Session.Contents("uid")
If Len(uuid) < 1 Then
	if len(suid) < 1 Then
	Response.Redirect "login.asp"
	Else
	uid = clng(suid)
	end if
Else
	uid = clng(uuid)
End if

'外观参数
FlashWidth	= 130			' FLASH图标宽度
FlashHeight	= 58			' FLASH图标高度
mPageSize	= 15			' 每页记录数（仅对需分页的页面）
mPrecision	= 5			' 精确到小数点后多少位


'提供此统计系统的站点信息   
mURL		= "http://Ajiang.net"	' 站点连接
mName		= "AjiangCountsys To Sql server"		' 站点名称
mNameEn		= "AjiangCountsys"		' 站点英文名称
masterName	= "wangbinda"		' 管理员名
masterpwd	= "wangbinda"
masterEmail	= "[e-mail]"	' 管理员电子邮件
SiteBrief	= "AjiangCountSysToSqlServer"
'自定义函数
Function findurl(thisurl)
	if thisurl <> "" Then
	findurl=""
	strlen=InStr(8,thisurl,"/")
	If strlen=0 Then strlen =1
	findurl=Mid(thisurl,strlen,28)
	end if
end Function

%>