ASP网页设计跟我学做最强功效的网站统计

只看该作者 · 发表于 2015-1-16 22:29:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。一个能对会见者举行编号、纪录会见次数、IP、工夫的统计制造实例

我做了一个网站，www.zydn.net固然啦，跟人人一样，也摆了个计数器在下面，天天看计数器都在不休的翻，内心很乐意，不外厥后我又想，究竟是谁看了我的网站啊？是新伴侣仍是老伴侣啊？也不知他们来了几次，我还想给他们都编上号，因而我请求了收费统计，不外连续换了N个都不中意，唉，看来，只要本人下手才干人给家足了，说干就干，程度臭臭，还看妙手笑话之于，不访指教。

我以ACCESS库为例子，实在用SQLSERVER库也只需改一下链接库的语句就得啦，
库布局以下

库文件名：CONT.ASP原本是CONT.MDB但在建好后把扩大名改成了ASP,以防库被下载。
表名：tab

字段名数据范例申明

ID主动编号访客的编号
IP文本用于纪录访客的IP
dat1日期工夫用于纪录访客最初会见的工夫
dat日期工夫用于纪录访客第一次会见的工夫

CS数字，整型用于纪录访客会见次数

程序很复杂，只要两个文件，dispcont.asp用于显现统计了局，contpage.asp用于统计信息，

先看看CONTPAGE.ASP是乍么统计的，代码以下：

<%
SetConn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
Conn.Openconnstr*****以上语句用于毗连库，cont.asp是库文件名。

keren=request.cookies("keren")读取cookies,cookies的名为：“keren”,哈哈。。阿余的E文学的臭，只懂用拼音啦。
ifkeren=""then判别cookees是否是空，假如是空，那末一定是新伴侣啦，不然是老伴侣。

sql="SELECT*FROMtabwhereid=-1"
setrs=server.createobject("ADODB.Recordset")
rs.Opensql,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*FROMtabwhereid="&keren到库中往找出我们老伴侣的纪录
setrs=server.createobject("ADODB.Recordset")
rs.Opensql,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过时工夫，以免一年到了我就不认得他了。

endif

rs.update该记的都记下了，更新库吧。
rs.close封闭recordset工具。
setconn=nothing开释conn，我仍是以为connection要随开随关才对，放到SESSION中我以为最不成取。4

%>

好啦，纪录就做好啦，有二十几行代码，很复杂的一个小程序，但我想，妙手一定另有高着，有高着的伴侣不忘了教教阿余，

程序写好了，怎样放到页面中呢？很复杂，在首页上任意找个中央，加上这行代码：<imgsrc="contpage.asp"width="0"height="0">就好了。

接上去就是把纪录显现出来，这个能做得比阿余好的人多的是，不外仍是来现个丑。
文件名：dispcont.asp,请看代码：
<%
SetConn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
Conn.Openconnstr*****以上语句用于毗连库，cont.asp是库文件名。

page3=request("pag")
ifpage3=""thenpage3=session("contpag")分页数，以后分页
ifpage3=""thenpage3="1"

pa=request("pa")
ifpa=""thenpa=session("contpa")每页显现数
ifpa=""thenpa=15默许每页显现15条，可恣意改
session("contpag")=page3
session("contpa")=pa
pages=pa每页显现数目***************以上一段程序用于完成分页功效

SQL="SELECT*FROMtaborderby-dat,-id"
dimrs
Setrs=Server.CreateObject("ADODB.RecordSet")
rs.Opensql,conn,1,1
csi=0
cs1=0
cs100=0
csdat1=0
dowhilenotrs.eof
csi=csi+rs("cs")
ifrs("cs")=1thencs1=cs1+1
ifrs("cs")>=100thencs100+1
ifdatevalue(rs("dat"))=datethen
csdat1=csdat1+1
endif
rs.movenext
loop
ZS=RS.RECORDCOUNT
*****************************************************8以下一段程序用于分页显现
%>

<head>
<title>出色电脑统计</title>
</head>

<bodystyle="font-size:9pt"bgcolor="#D8EDF8">

共有<%Response.Writezs%>笔记录，如今是第<%Response.Writepage3%>页每页显现：[<ahref="dispcont.asp?pag=<%=page3%>&pa=15">15]条、[<ahref="dispcont.asp?pag=<%=page3%>&pa=20">20]条、[<ahref="dispcont.asp?pag=<%=page3%>&pa=30">30]条、[<ahref="dispcont.asp?pag=<%=page3%>&pa=40">40]条
[<ahref="dispcont.asp">革新]
<divalign="left">
<tableborder="0"cellpadding="0"style="font-size:9pt">
<tr><td>页码</td><%page2=1
fori=1tozssteppages
ifpage3=cstr(page2)then
%><td>[<%Response.Writepage2%>]</td>
<%else%>
<td><ahref="dispcont.asp?pag=<%Response.Writepage2%>">[<%Response.Writepage2%>]</td>
<%endif
page2=page2+1
next
sn=pages*(page3-1)以后纪录号=每页显现数*页数-每页显现数
ifsn>zsthensn=0
rs.movesn,1
**********************************以上一段用于分页
%></tr></table>
</div><tablestyle="font-size:9pt"width="100%"bordercolorlight="#000000"border="1"bordercolordark="#FFFFFF"bgcolor="#A4D1E8"cellspacing="0"cellpadding="3">
<tr><td>编号</td><td>最初会见首页</td><td>最初会见IP</td><td>首页次数</td><td>初次会见日期</td></tr><%
fori=1topages
Response.Write"</tr>"
Response.Write"<td>"&rs("ID")&"</td>"
Response.Write"<td>"&rs("dat")&"</td>"
Response.Write"<td>"&rs("IP")&"</td>"
Response.Write"<td>"&rs("CS")&"</td>"

Response.Write"<td>"&rs("DAT1")&"</td>"
Response.Write"</tr>"
rs.movenext
ifrs.eofthenexitfor
next
rs.close
%>
<tr><td>算计<%=zs%></td><td>会见次数为100次以上的有<%=cs100%></td><td>会见次数为1的有：<%=cs1%></td><td>总会见次数<%=csi%></td><td>明天会见量：<%=csdat1%></td></tr>
</table>

****************************以上是完全的分页显现全体复制上去便可用。没有思索一笔记录也没有的情形。

您能够略加修改，到场更多功效，好啦，最初请人人存眷阿余的网站：http://www.zydn.net
这里有这个小程序的演示，
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；

只看该作者 · 发表于 2015-1-19 14:46:00

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

只看该作者 · 发表于 2015-1-25 09:18:19

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

只看该作者 · 发表于 2015-2-2 20:12:56

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

只看该作者 · 发表于 2015-2-8 04:55:52

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-2-24 06:44:49

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

只看该作者 · 发表于 2015-3-7 11:52:38

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-3-15 04:12:17

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-3-21 18:03:09

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页设计跟我学做最强功效的网站统计

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子