%
'创建recordset 数据集对象
Set rs=Server.CreateObject("ADODB.RecordSet")
'从count表中读取所有数据
sql="SELECT * FROM COUNT"
'执行数据库查询操作
rs.open sql,conn,1,3
'变量定义
Dim ctoday,countdate,cdaynum,cyesterday,ctotal,ctop,ctopdate
'获取记录集中各字段的值
'今天的访问量
ctoday = rs("TODAYCOUNT")
'统计的日期
countdate = rs("COUNTDATE")
'总的统计天数
cdaynum = rs("DAYNUM")
'昨日的访问量
cyesterday = rs("YESTERDAYCOUNT")
'总的访问量
ctotal = rs("TOTALCOUNT")
'最高访问记录
ctop = rs("TOPCOUNT")
'最高访问记录发生的日期
ctopdate = rs("TOPDATE")
%>
广州巍泰机电有限公司
|
|
 |
| |
欢迎光临我公司网站 |
|
您是本站第<%=ctotal+1%>位访问者
<%
'对数据库的更新操作
'count表中的数据不是本日数据
If countdate<>date() Then
'获得count表中的日期
vzzday= countdate
'将count表更新为本日数据,今日访问量置为0
conn.Execute "UPDATE COUNT SET TODAYCOUNT=0, COUNTDATE=GETDATE(),DAYNUM=DAYNUM+1, YESTERDAYCOUNT="&ctoday&""
'history数据表添加记录
'创建RecordSet对象
Set rs = Server.CreateObject("ADODB.RecordSet")
'从数据库中读取所有记录
rs.Open "SELECT * FROM HISTORY",conn,1,3
'AddNew方法为添加一条新记录
rs.AddNew
'日期
rs("COUNTDATE") = vzzday
'浏览量
rs("COUNTER") = ctoday
'更新数据库
rs.Update
'关闭RecordSet对象
rs.Close
Else
'count表中保存的是今日数据
'最高访问量低于今日访问量
If ctop
到访时间是 <%=Date()%> <%=Time()%> |
|
|
 |
地址:广州市海珠区信裕路13号 电话:020-34108697 33503359
传真:020-84318478 邮编: 510250
厂址:广州市黄埔区长洲镇黄船三区11栋
电话:020-82501653
传真:020-82501653
|