|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|