|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；access|背景|数据|数据库|统计一个能对会见者举行编号、纪录会见次数、IP、工夫的统计制造实例
我以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>
‘’****************************以上是完全的分页显现全体复制上去便可用。没有思索一笔记录也没有的情形。
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。 |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:22:01
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
窥视卡
雷达卡
发表于 2015-2-2 12:43:26