仓酷云

标题: ASP教程之一个有用的FSO－及时统计在耳目数 [打印本页]

作者: 精灵巫婆 时间: 2015-1-16 22:44
标题: ASP教程之一个有用的FSO－及时统计在耳目数
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。fso|统计|在线|在耳目数
count.asp:
<%Server.ScriptTimeout=300
id=Trim(Request.QueryString("id"))
fc=Trim(Request.QueryString("fc"))
iffc=""thenfc="FFFF00"
bg=Trim(Request.QueryString("bg"))
ifbg=""thenbg="000000"
bc=Trim(Request.QueryString("bc"))
ifbc=""thenbc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://"&sername&scrname
%>
<html>
<head>
<title>及时统计在耳目数</title>
<METAHTTP-EQUIV="Refresh"content="10;URL=<%=linkurl%>">每隔10秒革新
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styleTYPE="text/css">

</style>
</head>
<%
countfile=server.mappath("people.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
iflen(y)=1theny="0"&y
iflen(r)=1thenr="0"&r
iflen(s)=1thens="0"&s
iflen(f)=1thenf="0"&f
iflen(m)=1thenm="0"&m
sj=n&"-"&y&"-"&r&""&s&":"&f&":"&m
格局化日期、工夫
dimly()
Setthisfile=fs.OpenTextFile(countfile,1,False)
countly=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreservely(countly)
ly(countly)=thisline
countly=countly+1
loop将people.asp中内容读到数组中
thisfile.close
sameip=0
fori=1to(countly-1)/2
ifDateDiff("s",ly(i*2),sj)>60then
ly(i*2-1)=""
ly(i*2)=""
countly=countly-2
endif
ifRequest.ServerVariables("REMOTE_ADDR")=ly(i*2-1)then
sameip=1IP已存在
ly(i*2)=sj
endif
next
setoutfile=fs.CreateTextFile(countfile)
fori=0tocountly-1
ifly(i)""then
outfile.WriteLinely(i)
endif
next
ifsameip=0then
outfile.WriteLineRequest.ServerVariables("REMOTE_ADDR")
outfile.WriteLinesj　　增加新纪录
outfile.Close
endif
Setthisfile=fs.OpenTextFile(countfile,1,False)
countly=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreservely(countly)
ly(countly)=thisline
countly=countly+1总的纪录行数
loop
thisfile.close
total=(countly-1)/2统计总人数，每人有两行纪录：IP、工夫
%>
<body>
<p><selectname="Online"size="1">
<optionselectedvalue="Online"><%=total%>人在线上</option>
<%
fori=1tototal
response.write"<option>"&ly(i*2-1)&"</option>"
next
%>
</select></p>
</body>
</html>
people.asp:
<%Response.end%>
172.16.20.230用户IP
2003-06-1509:53:57登录工夫

缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。

作者: 金色的骷髅 时间: 2015-1-19 09:16
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 变相怪杰 时间: 2015-1-24 11:46
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: admin 时间: 2015-2-1 09:49
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 第二个灵魂 时间: 2015-2-7 02:16
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

作者: 再现理想 时间: 2015-2-19 18:48
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

作者: 小魔女 时间: 2015-3-13 03:09
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 因胸联盟 时间: 2015-3-20 11:11
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

欢迎光临仓酷云 (http://ckuyun.com/)