데이터 베이스 MySQL 튜토리얼 Access为后台数据库的网站统计系统

Access为后台数据库的网站统计系统

Jun 07, 2016 pm 03:49 PM
access 무대 뒤에서 데이터 베이스 체계 통계 웹사이트

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 我以ACCESS库为例子,其实用SQL SERVER库也只要改一下链接库的语句就得啦,库结构如下 库文件名: CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。 表名:tab 字段名 数

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例

我以ACCESS库为例子,其实用SQL SERVER库也只要改一下链接库的语句就得啦,库结构如下

库文件名:  CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。
表名:tab


字段名   数据类型   说明

ID      自动编号     访客的编号
IP      文本         用于记录访客的IP
dat1    日期时间     用于记录访客最后访问的时间
dat     日期时间     用于记录访客第一次访问的时间

CS      数字,整型   用于记录访客访问次数

程序很简单,只有两个文件,dispcont.asp  用于显示统计结果,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
%>

好啦,记录就做好啦,有二十几行代码,很简单的一个小程序,程序写好了,怎么放到页面中呢?很简单,在首页上随便找个地方,加上这行代码:Access为后台数据库的网站统计系统就行了。

接下来就是把记录显示出来。

文件名: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以下一段程序用于分页显示
%>


网页教学网在线统计

共有条记录,现在是第页    每页显示:[15]条、[20]条、[30]条、[40]条        
[
刷新]      

                        
                                    
        for i=1 to zs step pages
if page3=cstr(page2) then
%>                              
                                      
                                     
        page2=page2+1
next
sn=pages*(page3-1) ‘’当前记录号=每页显示数*页数-每页显示数
if sn>zs then sn=0                        
        rs.move sn,1                              
       ‘’**********************************以上一段用于分页              
%> 
页码[][]
       

      
for i=1 to pages
Response.Write ""  
  Response.Write  ""  
  Response.Write  ""  
  Response.Write  ""  
  Response.Write  ""  
 
  Response.Write  ""  
    Response.Write ""  
   rs.movenext                                   
if rs.eof then exit for                                   
next                          
    rs.close   
%>  
 
编号 最后访问首页 最后访问IP 首页次数 首次访问日期
"&rs("ID")&""&rs("dat")&""&rs("IP")&""&rs("CS")&""&rs("DAT1")&"
合计 访问次数为100次以上的有 访问次数为1的有: 总访问次数 今天访问量:

‘’****************************以上是完整的分页显示全部复制下来就可用。没有考虑一条记录也没有的情况。

Access为后台数据库的网站统计系统

본 웹사이트의 성명
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.

핫 AI 도구

Undresser.AI Undress

Undresser.AI Undress

사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover

AI Clothes Remover

사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool

Undress AI Tool

무료로 이미지를 벗다

Clothoff.io

Clothoff.io

AI 옷 제거제

Video Face Swap

Video Face Swap

완전히 무료인 AI 얼굴 교환 도구를 사용하여 모든 비디오의 얼굴을 쉽게 바꾸세요!

뜨거운 도구

메모장++7.3.1

메모장++7.3.1

사용하기 쉬운 무료 코드 편집기

SublimeText3 중국어 버전

SublimeText3 중국어 버전

중국어 버전, 사용하기 매우 쉽습니다.

스튜디오 13.0.1 보내기

스튜디오 13.0.1 보내기

강력한 PHP 통합 개발 환경

드림위버 CS6

드림위버 CS6

시각적 웹 개발 도구

SublimeText3 Mac 버전

SublimeText3 Mac 버전

신 수준의 코드 편집 소프트웨어(SublimeText3)

MySQL : 세계에서 가장 인기있는 데이터베이스 소개 MySQL : 세계에서 가장 인기있는 데이터베이스 소개 Apr 12, 2025 am 12:18 AM

MySQL은 오픈 소스 관계형 데이터베이스 관리 시스템으로, 주로 데이터를 신속하고 안정적으로 저장하고 검색하는 데 사용됩니다. 작업 원칙에는 클라이언트 요청, 쿼리 해상도, 쿼리 실행 및 반환 결과가 포함됩니다. 사용의 예로는 테이블 작성, 데이터 삽입 및 쿼리 및 조인 작업과 같은 고급 기능이 포함됩니다. 일반적인 오류에는 SQL 구문, 데이터 유형 및 권한이 포함되며 최적화 제안에는 인덱스 사용, 최적화 된 쿼리 및 테이블 분할이 포함됩니다.

MySQL을 사용하는 이유는 무엇입니까? 혜택과 장점 MySQL을 사용하는 이유는 무엇입니까? 혜택과 장점 Apr 12, 2025 am 12:17 AM

MySQL은 성능, 신뢰성, 사용 편의성 및 커뮤니티 지원을 위해 선택됩니다. 1.MYSQL은 효율적인 데이터 저장 및 검색 기능을 제공하여 여러 데이터 유형 및 고급 쿼리 작업을 지원합니다. 2. 고객-서버 아키텍처 및 다중 스토리지 엔진을 채택하여 트랜잭션 및 쿼리 최적화를 지원합니다. 3. 사용하기 쉽고 다양한 운영 체제 및 프로그래밍 언어를 지원합니다. 4. 강력한 지역 사회 지원을 받고 풍부한 자원과 솔루션을 제공합니다.

Apache의 Zend를 구성하는 방법 Apache의 Zend를 구성하는 방법 Apr 13, 2025 pm 12:57 PM

Apache에서 Zend를 구성하는 방법은 무엇입니까? Apache 웹 서버에서 Zend 프레임 워크를 구성하는 단계는 다음과 같습니다. Zend 프레임 워크를 설치하고 웹 서버 디렉토리로 추출하십시오. .htaccess 파일을 만듭니다. Zend 응용 프로그램 디렉토리를 작성하고 Index.php 파일을 추가하십시오. Zend 응용 프로그램 (application.ini)을 구성하십시오. Apache 웹 서버를 다시 시작하십시오.

웹 사이트 성과를 향상시키기 위해 Debian Apache Logs를 사용하는 방법 웹 사이트 성과를 향상시키기 위해 Debian Apache Logs를 사용하는 방법 Apr 12, 2025 pm 11:36 PM

이 기사는 데비안 시스템에서 Apache Logs를 분석하여 웹 사이트 성능을 향상시키는 방법을 설명합니다. 1. 로그 분석 기본 사항 Apache Log는 IP 주소, 타임 스탬프, 요청 URL, HTTP 메소드 및 응답 코드를 포함한 모든 HTTP 요청의 자세한 정보를 기록합니다. 데비안 시스템 에서이 로그는 일반적으로 /var/log/apache2/access.log 및 /var/log/apache2/error.log 디렉토리에 있습니다. 로그 구조를 이해하는 것은 효과적인 분석의 첫 번째 단계입니다. 2. 로그 분석 도구 다양한 도구를 사용하여 Apache 로그를 분석 할 수 있습니다.

Apache Server 란 무엇입니까? Apache 서버는 무엇입니까? Apache Server 란 무엇입니까? Apache 서버는 무엇입니까? Apr 13, 2025 am 11:57 AM

Apache Server는 브라우저와 웹 사이트 서버 간의 브리지 역할을하는 강력한 웹 서버 소프트웨어입니다. 1. HTTP 요청을 처리하고 요청에 따라 웹 페이지 컨텐츠를 반환합니다. 2. 모듈 식 디자인은 SSL 암호화 지원 및 동적 웹 페이지와 같은 확장 된 기능을 허용합니다. 3. 보안 취약점을 피하고 고성능 웹 애플리케이션을 구축하기 위해 보안 취약점을 피하고 스레드 카운트 및 타임 아웃 시간과 같은 성능 매개 변수를 최적화하기 위해 구성 파일 (예 : 가상 호스트 구성)을 신중하게 설정해야합니다.

데비안에서 nginx ssl 성능을 모니터링하는 방법 데비안에서 nginx ssl 성능을 모니터링하는 방법 Apr 12, 2025 pm 10:18 PM

이 기사에서는 데비안 시스템에서 NGINX 서버의 SSL 성능을 효과적으로 모니터링하는 방법에 대해 설명합니다. NginxOxporter를 사용하여 Nginx 상태 데이터를 프로 메테우스로 내보낸 다음 Grafana를 통해 시각적으로 표시합니다. 1 단계 : nginx 구성 먼저 Nginx 구성 파일에서 stub_status 모듈을 활성화하여 nginx의 상태 정보를 얻어야합니다. nginx 구성 파일에 다음 스 니펫을 추가하십시오 (일반적으로 /etc/nginx/nginx.conf에 있거나 포함 파일에 위치) : location/nginx_status {stub_status

MySQL에 대한 솔루션 '사용자에 대한 액세스 거부'문제 MySQL에 대한 솔루션 '사용자에 대한 액세스 거부'문제 Apr 11, 2025 pm 05:36 PM

MySQL "사용자에 대한 Access Denied"오류를 해결하는 방법 : 1. 데이터베이스에 연결하도록 사용자의 권한을 확인하십시오. 2. 비밀번호를 재설정하십시오. 3. 원격 연결 허용; 4. 권한을 새로 고치십시오. 5. 데이터베이스 서버 구성 (Bind-Address, Skip-Grant-Tables)을 확인하십시오. 6. 방화벽 규칙을 확인하십시오. 7. MySQL 서비스를 다시 시작하십시오. 팁 : 데이터베이스를 백업 한 후 변경하십시오.

데비안 아파치 로그 형식을 구성하는 방법 데비안 아파치 로그 형식을 구성하는 방법 Apr 12, 2025 pm 11:30 PM

이 기사에서는 데비안 시스템에서 Apache의 로그 형식을 사용자 정의하는 방법에 대해 설명합니다. 다음 단계는 구성 프로세스를 안내합니다. 1 단계 : Apache 구성 파일 액세스 Debian 시스템의 기본 Apache 구성 파일은 일반적으로 /etc/apache2/apache2.conf 또는 /etc/apache2/httpd.conf에 있습니다. 다음 명령을 사용하여 루트 권한으로 구성 파일을 엽니 다.

See all articles