検索
ホームページデータベースmysql チュートリアルAccess为后台数据库的网站统计系统

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

Jun 07, 2016 pm 03:49 PM
accessバックステージデータベースシステム統計Webサイト

一个能对访问者进行编号、记录访问次数、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 までご連絡ください。
MySQLはデータレプリケーションをどのように処理しますか?MySQLはデータレプリケーションをどのように処理しますか?Apr 28, 2025 am 12:25 AM

MySQLは、非同期、半同期、およびグループ複製の3つのモードを介してデータの複製を処理します。 1)非同期の複製パフォーマンスは高くなりますが、データが失われる可能性があります。 2)半同期複製により、データセキュリティが向上しますが、遅延が増加します。 3)グループレプリケーションは、高可用性要件に適したマルチマスターレプリケーションとフェールオーバーをサポートします。

説明ステートメントを使用してクエリパフォーマンスを分析するにはどうすればよいですか?説明ステートメントを使用してクエリパフォーマンスを分析するにはどうすればよいですか?Apr 28, 2025 am 12:24 AM

説明ステートメントは、SQLクエリのパフォーマンスを分析および改善するために使用できます。 1.説明ステートメントを実行して、クエリプランを表示します。 2。出力結果を分析し、アクセスの種類、インデックスの使用量に注意し、順序を結合します。 3.分析結果に基づいてインデックスを作成または調整し、結合操作を最適化し、フルテーブルスキャンを回避してクエリ効率を向上させます。

MySQLデータベースをバックアップして復元するにはどうすればよいですか?MySQLデータベースをバックアップして復元するにはどうすればよいですか?Apr 28, 2025 am 12:23 AM

論理バックアップにMySQLDUMPとホットバックアップにMySQLenterPriseBackupを使用することは、MySQLデータベースをバックアップする効果的な方法です。 1. mysqldumpを使用してデータベースをバックアップします:mysqldump-uroot-pmydatabase> mydatabase_backup.sql。 2。ホットバックアップにmysqlenterprisebackupを使用:mysqlbackup - user = root-password = password - backup-dir =/path/to/backupbackup。回復するときは、対応する寿命を使用します

MySQLのスロークエリの一般的な原因は何ですか?MySQLのスロークエリの一般的な原因は何ですか?Apr 28, 2025 am 12:18 AM

MySQLのクエリが遅い主な理由には、インデックスの欠落または不適切な使用、クエリの複雑さ、過剰なデータボリューム、および不十分なハードウェアリソースが含まれます。最適化の提案には以下が含まれます。1。適切なインデックスを作成します。 2。クエリステートメントを最適化します。 3.テーブルパーティションテクノロジーを使用します。 4.適切にハードウェアをアップグレードします。

mysqlのビューは何ですか?mysqlのビューは何ですか?Apr 28, 2025 am 12:04 AM

MySQLビューは、SQLクエリの結果に基づいた仮想テーブルであり、データを保存しません。 1)ビューは複雑なクエリを簡素化し、2)データセキュリティを強化し、3)データの一貫性を維持します。ビューは、テーブルのように使用できるデータベースにクエリを保存しますが、データは動的に生成されます。

MySQLと他のSQL方言の構文の違いは何ですか?MySQLと他のSQL方言の構文の違いは何ですか?Apr 27, 2025 am 12:26 AM

MySQLdiffersfromotherSQLdialectsinsyntaxforLIMIT,auto-increment,stringcomparison,subqueries,andperformanceanalysis.1)MySQLusesLIMIT,whileSQLServerusesTOPandOracleusesROWNUM.2)MySQL'sAUTO_INCREMENTcontrastswithPostgreSQL'sSERIALandOracle'ssequenceandt

MySQLパーティションは何ですか?MySQLパーティションは何ですか?Apr 27, 2025 am 12:23 AM

MySQLパーティション化により、パフォーマンスが向上し、メンテナンスが簡素化されます。 1)大きなテーブルを特定の基準(日付範囲など)、2)物理的に独立したファイルに物理的に分割する、3)MySQLはクエリするときに関連するパーティションに焦点を合わせることができます。

MySQLで特権をどのように許可して取り消しますか?MySQLで特権をどのように許可して取り消しますか?Apr 27, 2025 am 12:21 AM

mysqlで許可を許可および取り消す方法は? 1。grantallprivilegesondatabase_name.to'username'@'host 'などの許可を付与するために付与ステートメントを使用してください。 2。Revokeallprivilegesondatabase_name.from'username'@'host 'など、Revoke Statementを使用して、許可のタイムリーな通信を確保します。

See all articles

ホット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 顔交換ツールを使用して、あらゆるビデオの顔を簡単に交換できます。

ホットツール

Safe Exam Browser

Safe Exam Browser

Safe Exam Browser は、オンライン試験を安全に受験するための安全なブラウザ環境です。このソフトウェアは、あらゆるコンピュータを安全なワークステーションに変えます。あらゆるユーティリティへのアクセスを制御し、学生が無許可のリソースを使用するのを防ぎます。

ゼンドスタジオ 13.0.1

ゼンドスタジオ 13.0.1

強力な PHP 統合開発環境

mPDF

mPDF

mPDF は、UTF-8 でエンコードされた HTML から PDF ファイルを生成できる PHP ライブラリです。オリジナルの作者である Ian Back は、Web サイトから「オンザフライ」で PDF ファイルを出力し、さまざまな言語を処理するために mPDF を作成しました。 HTML2FPDF などのオリジナルのスクリプトよりも遅く、Unicode フォントを使用すると生成されるファイルが大きくなりますが、CSS スタイルなどをサポートし、多くの機能強化が施されています。 RTL (アラビア語とヘブライ語) や CJK (中国語、日本語、韓国語) を含むほぼすべての言語をサポートします。ネストされたブロックレベル要素 (P、DIV など) をサポートします。

SublimeText3 中国語版

SublimeText3 中国語版

中国語版、とても使いやすい

AtomエディタMac版ダウンロード

AtomエディタMac版ダウンロード

最も人気のあるオープンソースエディター