📄 count.asp
字号:
<%
'-----------------------------------------------------------------
'林子站点计数器 Ver1.0 精简版 设计制作：林子 |
'程序版权归林子所有，任何人可以发布修改本系统，请注明出处，谢谢！|
'E-mail:502230@163.com linzi.cnzzz.com |
'-----------------------------------------------------------------
Dim Connstr,db
db="linzi.mdb"
Connstr = "DBQ=" + Server.MapPath(db) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connstr
On Error Resume Next
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from [计数器]"
Rs.open Sql,Conn,1,3
if rs(3)=date() then
rs(0)=rs(0)+1
rs(2)=rs(2)+1
else
rs(1)=rs(0)
rs(0)=1
rs(2)=rs(2)+1
rs(3)=date()
End if
Caday=date-rs(4) '统计天数
Avday=int(rs(2)/CAday) '平均每天访问次数
today=rs(0) '今天访问次数
yeday=rs(1) '昨天访问次数
Alday=rs(2) '所有访问次数
rs.update
rs.close
set rs=Nothing
Conn.close
Set Conn=Nothing
Select Case Request("Linzi")
Case 1
Call DocClick()
Case 2
Call DocAll()
Case 3
Call ShowInfo()
End Select
Sub DocAll()
Response.Write("document.write("& chr(34) &"今日访问量 <font color=red>"&today&"</font> 昨日访问量 <font color=red>"&yeday&"</font> 总访问量 <font color=red>"&Alday&"</font>"& chr(34) &");")
End Sub
Sub DocClick()
Response.Write("document.write("& chr(34) &"您是访问本站的第 <font color=red>"&Alday&"</font> 位客人"& chr(34) &");")
End Sub
Sub ShowInfo()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>林子站点计数器 Ver1.0 精简版</title>
<style>
<!--
fieldset { font-size: 12px; color:#000000 }
td { font-size: 9pt; color:#000000 }
-->
</style>
</head>
<body>
<div align=center>
<fieldset style="padding: 2; width:569px; height:312px">
<legend align="center">林子站点计数器 Ver1.0 精简版</legend>
<table border="0" width="98%" cellspacing="0" cellpadding="5" height="100">
<tr>
<td colspan="3" height="5"></td>
</tr>
<tr>
<td height="20">今日访问量：<%=today%> </td>
<td height="20">昨日访问量：<%=yeday%></td>
<td height="20"> </td>
</tr>
<tr>
<td height="20">总统计流量：<%=alday%></td>
<td height="20">总统计天数：<%=Caday%></td>
<td height="20">平均访问量：<%=Avday%><span style="font-size: 9pt"> 次/天</span></td>
</tr>
<tr>
<td height="80" colspan="3" bgcolor="#F9F9FB">
<fieldset style="padding: 2">
<legend>调用代码</legend>
<div align="center">
<table border="0" width="95%" cellspacing="0" cellpadding="0" height="200">
<tr>
<td><b>效果一</b>：无任何效果</td>
</tr>
<tr>
<td>
<p align="right">代码：<input onFocus="this.select()" type="text" name="txt" size="57" value="<script language=javascript src=<%=Request.ServerVariables("URL")%>></script>"></td>
</tr>
<tr>
<td><b>效果二</b>：<script language=javascript src=Count.Asp?linzi=1></script>您是访问本站的第
<font color="#FF0000">1 </font>位客人 </td>
</tr>
<tr>
<td>
<p align="right">代码：<input onFocus="this.select()" type="text" name="txt1" size="57" value="<script language=javascript src=<%=Request.ServerVariables("URL")%>?linzi=1></script>"></td>
</tr>
<tr>
<td><b>效果三</b>：<script language=javascript src=Count.Asp?linzi=2></script>今日访问量
<font color="#FF0000">1</font> 昨日访问量 <font color="#FF0000">1</font> 总访问量
<font color="#FF0000">1</font></td>
</tr>
<tr>
<td>
<p align="right">代码：<input onFocus="this.select()" type="text" name="txt2" size="57" value="<script language=javascript src=<%=Request.ServerVariables("URL")%>?linzi=2></script>"></td>
</tr>
</table>
</div>
</fieldset>
</td>
</tr>
<tr>
<td height="5" colspan="3">
<p align="center"><a title="发信给林子" href="mailto:502230@163.com">
<span style="text-decoration: none">技术支持：502230@163.com</span></a> QQ:16383556
<a target="_blank" href="http://linzi.cnzzz.com">
<span style="text-decoration: none">http://linzi.cnzzz.com</span></a>
<br><br>2004年12月7日 林子于深圳
</td>
</tr>
</table>
</fieldset></div>
</body>
</html>
<%
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -