|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码会见用ASP手艺失掉主页被会见次数的三种办法
华中理工年夜学主动把持工程系周茜田忠和
ASP是MicrosoftActiveServerPages的缩写,即静态服务器主页。
它是服务器端剧本编写情况,在Web服务器上注释剧本,能够组合HTML页、剧本命令和ActiveX组件来创立静态、交互式、高效力的Web页和基于Web的功效壮大的服务器使用程序。ASP能够在Microsoft的任何Web服务器上公布各类静态数据,并且ASP使用程序很简单开辟和修正。
ASP手艺之以是简单,很主要的缘故原由是ASP手艺充实使用各类功效壮大的内嵌工具和ActiveX组件来实行义务。ActiveX组件是包括在静态链接库(.dll)或可实行文件(.exe)中的可实行某项或一组义务的代码。由于组件能够实行公用义务,以是不用本人往创立实行这些义务的代码,能够间接使用组件作为剧本和基于Web使用程序的基础机关块。只需晓得怎样会见和把持组件所供应的工具,即便是编写剧本的老手,也能够在不懂得组件运作体例的情形下编写剧本。
要利用组件供应的工具,起首要创立工具的实例并将这个新的实例分派变量名。利用ASP的Server.CreateObject办法能够创立工具的实例。然后,利用剧本言语的变量分派指令为工具实例定名。创立工具实例时,必需供应实例的注册称号(PROGID)。
关于一个Web站点,我们一般必要纪录其被会见的次数。本文针对这个成绩,提出三种办法供参考。
<一>使用PageCounter组件
PageCounter组件能够创立PageCounter工具,以纪录和显现Web页被翻开的次数。每隔必定的工夫,此工具将会见次数写进文本文件以便数据不会在服务器关机时丧失。PageCounter组件利用一个外部CentralManagement工具来纪录使用程序中的每页被翻开的次数。当利用Server.CreateObject办法在一页上创立PageCounter工具的实例时,此工具从CentralManagement工具中猎取指定Web页确当前会见次数后,就能够利用此工具已有的办法来操纵了。
语法:<%SetoVar=Server.CreateObject("MSWC.PageCounter")%>
参数:oVar指定经由过程挪用Server.CreateObject创立的PageCounter工具
的称号。
办法
Hits显现指定的URL被翻开的次数。
PageHit增添会见次数。
Reset将指定的页的会见次数设置为0。
注重:PageCounter工具不是内嵌工具,以是必需举行注册。当此工具被编译或注册时,页计数器向注册表增加MSWC.PageCounter键。该键被增加到HKEY_CLASSES_ROOT下且包含以下定名值。
2.File_Location字符串,
指定纪录会见次数的文件的路径名和文件名。默许的文件名为hitcnt.cnt。此文件寄存在Windows目次下。
2.Save_CountDWORD型,
指明在会见次数被存储到HitCountData文件前的会见次数。注重,这是会见的总数而不是每页的会见次数。默许值为25。
下例利用PageCounter工具跟踪会见者的个数并发送特定的动静。
<%SetMyPageCounter=Server.CreateObject("MSWC.PageCounter")
HitMe=MyPageCounter.Hits
%>
您是第<%=HitMe%>位会见者。
<二>使用FileAccess组件
由于PageCounter组件并没有和IIS一同安装,必需另行安装方可以使用。若没有安装PageCounter组件,则能够接纳FileAccess组件。FileAccess组件可用来会见盘算机文件体系的办法和属性。用户可使用FileAccess组件创立FileSystemObject工具,该工具供应用于会见文件体系的办法、属性和汇合。
以下的实例申明了怎样纪录被会见的次数。
<%‘(1)
DoWhileApplication("bar")=1
Application.Lock
Application("bar")=0
Application.Unlock
%>
<%‘(2)
Setfs=CreateObject("Scripting.FileSystemObject")
Setfr=fs.OpenTextFile("visitors.txt",ForReading,TristateFalse)
暗示以只读形式、ASCII格局翻开文件visitors.txt,前往一个
TextStream工具fr,visitors.txt保留的是被会见的次数。
visitors=fr.Read(10)
fr.Close
count=CLng(visitors)
count=count+1将被会见的次数加1。
visitors=CStr(count)
Setfw=fs.OpenTextFile("visitors.txt",2,TristateFalse)
fw.Write(visitors)将新的会见次数写人visitors.txt保留
fw.Close
%>
<%Application.Lock&nbs</p>无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|