|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;计数器会见者每次出去都看到是统一幅图片,是否是显得有些单凋?
让会见者每来一次看到分歧的图片?用计数器就很复杂地完成了!
源程序以下:
<%
----------------------------------------------------------计数程序入手下手
dimfileobject,countfile,out,counter,picno,pp
SetFileObject=Server.CreateObject("Scripting.FileSystemObject")
CountFile=Server.MapPath("count.txt")
SetOut=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SETFileObject=Server.CreateObject("Scripting.FileSystemObject")
SetOut=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter=counter+1
----------------------------------------------------------计数程序停止
ifcounter>99thencounter=0不克不及凌驾某个值,这个地
方你注重了,不克不及跟显现的数字变量一样:(
ifcounter<10then我如今只要10张图片,10以下是
多少就显现几
picno=counter
else
picno=(countermod10)年夜于10只取个位,由于我一共只要10
张图片:(
endif
Out.WriteLine(counter)把以后的计数值存在counter.txt内里
Application.unlock
Out.Close
%>
本例所用的存计数值的办法是用的文本文件举行存取
显现图片
<%response.write("<imgsrc=http://www.163design.net/a/y/"&"images/face/face"&picno&".jpgwidth=229height=160>")%>
</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|