as_count.asp
来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 132 行
ASP
132 行
<%
Dim Connstr,db
db="../data/Asai_Data.asa"
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("AsaiTj")
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>〖阿赛〗——计数器</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">〖阿赛〗——计数器</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=As_Count.Asp?AsaiTj=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")%>?AsaiTj=1></script>"></td>
</tr>
<tr>
<td><b>效果三</b>：<script language=javascript src=As_Count.Asp?AsaiTj=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")%>?AsaiTj=2></script>"></td>
</tr>
</table>
</div>
</fieldset>
</td>
</tr>
<tr>
<td height="5" colspan="3">
<p align="center">
<span style="text-decoration: none">技术支持：<a href="mailto:fengying789@126.com">fengying789@126.com</a></span>
QQ:4941172 <a target="_blank" href="http://gys.7u7.net/">
<span style="text-decoration: none">http://gys.7u7.net/</span></a>
</td>
</tr>
</table>
</fieldset></div>
</body>
</html>
<%
End Sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?