仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 443|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计虹雨的功效较全的计数程序

[复制链接]
乐观 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:27:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!这个程序难一点,特性在于,由于他是分离的传送每一个图片,以是不像CGI发生的图片那样年夜。并且图片能够反复的使用以是较率高速率快。只是没有JavaScript就不可了。
程序原代码:


<%
imgurl="http://xxx.xxx.xxx/xxxx/"图片路径
imgname="xxx"图片名字
cnt=0
dnt=0
s=Request.ServerVariables("path_translated")
cName=left(s,instrrev(s,"",len(s)))&"chy.cnt"
dName=left(s,instrrev(s,"",len(s)))&"dchy.cnt"
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjCountFile=objFSO.OpenTextFile(cName,1,True)
IfNotobjCountFile.AtEndOfStreamThencnt=CLng(objCountFile.ReadAll)
objCountFile.Close
SetobjCountFile=Nothing
cnt=cnt+1
SetobjCountFile=objFSO.CreateTextFile(cName,True)
objCountFile.Writecnt
objCountFile.Close
SetobjCountFile=Nothing

ifapplication("dntime")<=cint(hour(time()))then
SetobjCountFile=objFSO.OpenTextFile(dName,1,True)
IfNotobjCountFile.AtEndOfStreamThendnt=CLng(objCountFile.ReadAll)
objCountFile.Close
SetobjCountFile=Nothing
endif
application("dntime")=cint(hour(time()))
dnt=dnt+1
SetobjCountFile=objFSO.CreateTextFile(dName,True)
objCountFile.Writednt
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
Response.Write"document.write(99?7?10???"
fori=1tolen(cnt)
Response.Write""
next
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
DoWhileapplication("zxip"&i)""
ifapplication("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")then
application("zxsj"&i)=t
y=1
endif
ift-application("zxsj"&i)>9ort<application("zxsj"&i)then
k=k+1
else
ifk>0then
application.lock
application("zxip"&i-k)=application("zxip"&i)
application("zxsj"&i-k)=application("zxsj"&i)
application.unlock
endif
endif
ifk>0then
application.lock
application("zxip"&i)=""
application.unlock
endif
i=i+1
loop
ify=0then
application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
application("zxsj"&i)=t
else
i=i-1
endif
Response.Write"?????"
iflen(i)=1thenResponse.Write"
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。
金色的骷髅 该用户已被删除
沙发
发表于 2015-1-19 13:25:47 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
深爱那片海 该用户已被删除
板凳
发表于 2015-1-24 15:13:27 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
飘灵儿 该用户已被删除
地板
发表于 2015-2-1 18:13:07 来自手机 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
分手快乐 该用户已被删除
5#
发表于 2015-2-7 13:56:56 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
精灵巫婆 该用户已被删除
6#
发表于 2015-2-22 07:06:34 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
谁可相欹 该用户已被删除
7#
发表于 2015-3-6 23:22:49 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
愤怒的大鸟 该用户已被删除
8#
发表于 2015-3-13 22:34:11 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
蒙在股里 该用户已被删除
9#
发表于 2015-3-20 21:05:56 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 10:07

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表