access后台链接mysql_Access为后台数据库的网站统计系统
一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
我以ACCESS库为例子,其实用SQL SERVER库也只要改一下链接库的语句就得啦,库结构如下
库文件名: CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。
表名:tab
字段名 数据类型 说明
ID 自动编号 访客的编号
IP 文本 用于记录访客的IP
dat1 日期时间 用于记录访客最后访问的时间
dat 日期时间 用于记录访客第一次访问的时间
CS 数字,整型 用于记录访客访问次数
程序很简单,只有两个文件,dispcont.asp 用于显示统计结果,http://www.aspku.com/database/access/contpage.asp用于统计信息,
先看看CONTPAGE.ASP 是乍么统计的,代码如下:
以下为引用的内容:
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr ‘’*****以上语句用于连接库,cont.asp是库文件名。
keren=request.cookies("keren") ‘’读取cookies,cookies的名为:“keren”,哈哈。。阿余的E文学的臭,只懂用拼音啦。
if keren="" then ‘’判断cookees是不是空,如果是空,那么肯定是新朋友啦,否则是老朋友。
sql="SELECT * FROM tab where id=-1"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs.addnew ‘’如果是新访客的话,在库中新增一条记录。
rs("cs")=1 ‘’记下访问次数为1
rs("ip")=request.servervariables("remote_addr") ‘’记下IP,
rs("dat")=now ‘’记下当前的日期时间,
rs("dat1")=date ‘’记下当前的日期,以后用来做第一次访问的日期,
response.cookies("keren")=rs("id") ‘’写入一个cookies,内容就和ID一样。
response.cookies("keren").expires=date+365 ‘’设置cookies的有效日期从现在开始,365天,
else ‘’以上是新朋友的处理办法,对老朋友怎么办呢?看下面的:
sql="SELECT * FROM tab where id="&keren ‘’到库中去找出我们老朋友的记录
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs("cs")=rs("cs")+1 ‘’好啦,找到啦,把访问次数加上1
rs("ip")=request.servervariables("remote_addr") ‘’看看他的IP是多少了,记下来。
rs("dat")=now ‘’记下现在的时间,也就是最后一次访问的时间,
response.cookies("keren")=rs("id") ‘’再把cookies写进去,我不知这句是否多余,没有试。
response.cookies("keren").expires=date+365 ‘’设置cookies过期时间,免得一年到了我就不认得他了。
end if
rs.update ‘’该记的都记下了,更新库吧。
rs.close ‘’关闭recordset对象。
set conn=nothing ‘’释放conn,我还是认为connection要随开随关才对,放到SESSION中我认为最不可取。4
%>
好啦,记录就做好啦,有二十几行代码,很简单的一个小程序,程序写好了,怎么放到页面中呢?很简单,在首页上随便找个地方,加上这行代码:
就行了。
接下来就是把记录显示出来。
文件名:dispcont.asp , 请看代码:
以下为引用的内容:
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr ‘’*****以上语句用于连接库,cont.asp是库文件名。
page3=request("pag")
if page3="" then page3=session("contpag") ‘’分页数,当前分页
if page3="" then page3="1"
pa=request("pa")
if pa="" then pa=session("contpa") ‘’每页显示数
if pa="" then pa=15 ‘’默认每页显示15条,可任意改
session("contpag")=page3
session("contpa")=pa
pages=pa ‘’每页显示数量***************以上一段程序用于实现分页功能
SQL="SELECT * FROM tab order by -dat,-id"
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
csi=0
cs1=0
cs100=0
csdat1=0
do while not rs.eof
csi=csi+rs("cs")
if rs("cs")=1 then cs1=cs1+1
if rs("cs")>=100 then cs100+1
if datevalue(rs("dat"))=date then
csdat1=csdat1+1
end if
rs.movenext
loop
ZS=RS.RECORDCOUNT
‘’*****************************************************8以下一段程序用于分页显示
access后台链接mysql_Access为后台数据库的网站统计系统相关推荐
- 基于JAVA体育城场地预定系统后台计算机毕业设计源码+数据库+lw文档+系统+部署
基于JAVA体育城场地预定系统后台计算机毕业设计源码+数据库+lw文档+系统+部署 基于JAVA体育城场地预定系统后台计算机毕业设计源码+数据库+lw文档+系统+部署 本源码技术栈: 项目架构:B/S ...
- 破解修改服务器数据库,关于网站充值系统数据库的修改求助
[PHP] 纯文本查看 复制代码<?php include_once 'mysql.class.php'; //数据库 [color=#ff0000]$db=new cls_mysql(arra ...
- java后台解析json并保存到数据库_[Java教程]ajax 发送json 后台接收 遍历保存进数据库...
[Java教程]ajax 发送json 后台接收 遍历保存进数据库 0 2017-09-25 15:00:23 前台怎么拿参数的我就不管了我也不会 反正用这个ajax没错 ajax 代码 一定要写 ...
- 基于JAVA服装连锁店后台管理系统计算机毕业设计源码+数据库+lw文档+系统+部署
基于JAVA服装连锁店后台管理系统计算机毕业设计源码+数据库+lw文档+系统+部署 基于JAVA服装连锁店后台管理系统计算机毕业设计源码+数据库+lw文档+系统+部署 本源码技术栈: 项目架构:B/S ...
- java计算机毕业设计服装连锁店后台管理系统源码+mysql数据库+系统+lw文档+部署
java计算机毕业设计服装连锁店后台管理系统源码+mysql数据库+系统+lw文档+部署 java计算机毕业设计服装连锁店后台管理系统源码+mysql数据库+系统+lw文档+部署 本源码技术栈: 项目 ...
- java计算机毕业设计Vue框架电商后台管理系统源码+mysql数据库+系统+lw文档+部署
java计算机毕业设计Vue框架电商后台管理系统源码+mysql数据库+系统+lw文档+部署 java计算机毕业设计Vue框架电商后台管理系统源码+mysql数据库+系统+lw文档+部署 本源码技术栈 ...
- office连接oracle,Access(VBA)连接Oracle数据库的代码
access是包含前台程序开发和后台数据库的应用软件. 可以利用access作为前台开发,后台用sqlServer,oracle这些作为数据库. 而access连接数据库,可以利用链接表.直接读取表记 ...
- 网页制作怎么入服务器,网站后台是怎么做的 如何进入网站后台
现在很多的企业都在注重突出自己的形象,而随着网络的成熟与发展,企业也开始利用建设网站来进行宣传推广,那么网站后台是怎么做的?下面就由新网具体介绍一下. 如何进入网站后台 进入网站的后台第一步你要找到网 ...
- php写网页6,基于ThinkPHP6+AdminLTE框架开发的响应式企业网站CMS系统PHP源码,ThinkPHP6开发的后台权限管理系统...
源码介绍 基于最新ThinkPHP6+AdminLTE框架开发的响应式企业网站CMS系统PHP源码,基于最新版本的ThinkPHP 6.0.0RC3框架,后台前端框架采用AdminLTE.系统的核心理 ...
最新文章
- LeetCode简单题之数组的相对排序
- mysql 织梦 索引_Mysql索引详解 建立索引的优势劣势以及索引规范
- 图像算法处理视频不稳定?港科大团队提出一种通用算法解决视频处理时域不稳定问题
- static关键字(二)作用总结
- 第三次学JAVA再学不好就吃翔(part114)--Properties类
- leetcode 150. 逆波兰表达式求值(栈)
- Leetcode--23.合并K个排序链表(Java)
- Unity Shader 噪声消融特效 - 剑灵死亡特效
- 使用fiddler抓取安卓模拟器包
- 解决ubuntu不能远程连接
- 数据分析最常用的excel函数公式大全
- 在线直播系统搭建的功能包含哪些?
- 985高校90后博导,7篇一作论文他引过百!想培养更多的“雷军”
- 2020_CIKM_Partial Relationship Aware Influence Diffusion via a Multi-channel Encoding Scheme for Soc
- 号外!号外!豪车出租啦!
- [NOI2016] 优秀的拆分 题解
- python成功爬取拉勾网——初识反爬(一个小白真实的爬取路程,内容有点小多)
- GPRS优点介绍及GPRS上网相关知识(转)
- bootice工具修复linux,使用bootice工具修复引导问题教程
- 机动车 合格证 二维码 解密
热门文章
- 华为宣布方舟编译器将开源;​苹果秋季发布会定档9月10日;TypeScript 3.6 发布 | 极客头条...
- 斗鱼上岸:草根突围,直播逆袭!
- 用故事来给你讲负载均衡的原理
- 为何你仍是一名社畜码农?
- 佩奇扑街、外星人疯狂!Python 告诉你大年初一应该看哪部电影?
- Python 彻底甩掉 Java,位居 48 种编程语言之首!
- 福利 | 2018 年,程序员全新的技术之路
- 并发的线程入门到并发安全原理解析,offer拿到手软
- py脚本实现用例执行html报告,pytest文档7-pytest-html生成html报告
- python游戏设计教程视频_零基础python教程-用Python设计你的第一个小游戏