服务分类
联系我们

长沙市华融劳务派遣有限公司 
电话:0731-88084518
传真:0731-88084518
手机:15111173115
联系人:陈先生
邮编:410200
网址:http://www.hsyush.com
地址:长沙市望城县高塘岭镇郭亮南路49号

 

贝斯特娱乐城
贝斯特娱乐城_贝斯特娱乐城平台_贝斯特娱乐城官网
作者:admin  来源:未知 阅读: 次 时间:2017-02-02 18:07 字体:[  复制 打印 网址

动态ASP网页JS计数器源代码_IT/计算机_专业资料。说明:1、在网站目录下新建一个文本:txtcounter.txt在文本填写1或其他识字2、新建一asp文件:count.asp,加入以下代码:%CountFile

说明:1、在网站目录下新建一个文本:txtcounter.txt在文本填写1或其他识字2、新建一asp文件:count.asp,加入以下代码:%CountFile=Server.MapPath(txtcounter.txt)SetFileObject=Server.CreateObject(Scripting.FileSystemObject)SetOut=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)counter=Out.ReadLineOut.CloseSETFileObject=Server.CreateObject(Scripting.FileSystemObject)SetOut=FileObject.CreateTextFile(CountFile,TRUE,FALSE)Application.lockcounter=counter+1Out.WriteLine(counter)Application.unlockResponse.Writedocument.write(counter)为了在页面正确显示计数器的值,调用VBScript函数Document.writeOut.Close%3、在需要计数的网页加入:总访问scriptlanguage=JavaScriptsrc=count.asp/script次现在看网页就是可以计数了!与页面分离的图象计数器人们的追求是永无止境的,也许你需要一个更有个性的图形数字计数器,而不是简单的文本数字计数器。没问题,现在我们就来看看用ASP是怎样来实现图形计数器功能的。要实现图形计数器,关键点在于如何实现把计数器文件中的数据值转变为对应的图象表示。因为十进制数有0,1,2,3,4,5,6,7,8,9共十个不同的数数字,我们需要有十个对应的图象,且图象的文件名字要与显示的数字对应起来,比如0对应的数字图象的文件名字就是0.gif,1对应的就是1.gif,...(图象自己可以用Photoshop等工具制作,或者从网络上下载)。这里我们要用到VBScript函数Len(stringvarname)、Mid(string,start[,length])。由Len(counter)可得到计数器值的位数,由Mid(counter,i,1)可以得到计数器值的第i位上的数字,我们可利用这个值来调用相应的数字图象。用For循环语句,我们不难得出计数器值各个位上的数字并成对应的数字图象,这样,我们就能实现文本数值到图象数字的转变。下面就是一个用ASP编写的图象计数器实例,因为大部分代码前面都分析过,所以代码中只注释了部分语句。与页面分离的图象计数器imgcounter.asp代码:%@language=VBScript%%dimimages(20)定义一数组,用来存放显示每一位数字图象的语句CountFile=Server.MapPath(imgcounter.txt)SetFileObject=Server.CreateObject(Scripting.FileSystemObject)SetOut=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)counter=Out.ReadLineOut.CloseSETFileObject=Server.CreateObject(Scripting.FileSystemObject)SetOut=FileObject.CreateTextFile(CountFile,TRUE,FALSE)Application.lockcounter=counter+1Out.WriteLine(counter)Application.unlockcountlen=len(counter)得到计数器值的位数fori=1tocountlenimages(i)=imgsrc=由循环语句得到各个位上数值对应图象的显示代码(html),并把它存在数组中具体使用时请注意图象的实际服务器及目录径response.writedocument.write(images(i));调用函数Document.write输出显示数字图象的html代码nextOut.Close%在要计数的页面加入如下的代码:p您是第scriptlanguage=JavaScriptsrc=imgcounter.asp//引用时注意ASP计数器所在的服务器及目录径。/script位来客/p计数器设计详解ASP内含五个内置的ActiveServerComponents(ActiveX服务器组件),即DatabaseAccesscomponent(数据库访问组件)、FileAccesscomponent(文件访问组件)、AdRotatorcomponent(广告轮播器组件)、BrowerCapabilitiescomponent(浏览器信息组件)、ContentLinkingcomponent(内容链接组件)。我们下面要设计的计数器,就是通过其中的FileAccesscomponent(文件访问组件)来读写服务器文件来实现。算法思是:在服务器端用一个文本(ASCII)文件存放计数数值,每当页面被访问时就从文件中读出数值,显示给用户,并且使数值加1,把增加后的数值写回到文件。写入数据到一个服务器计数文件的ASP语句和说明如下:CounFile=Server.MapPath(用来存放计数器值的文件名)Server服务器访问方法MapPath(path)是将存放计数器值的文件所在的径转换成物理径SETFileObject=Server.CreateObject(Scripting.FileSystemObject)使用方法CreateObject定义对象FileSystemObjectSETOutStream=Server.CreateTextFile(FileObject,True,False)使用对象FileSystemObject提供方法CreateTextFile产生文本文件,其中参数True表示覆盖原来的文件,False表示文件为ASCII类型OutStream.WriteLine要写入的数据OutStream.WriteLine为往文件写入一行数据从一个服务器文件读取数据的ASP语法如下:CounFile=Server.MapPath(用来存放计数器值的文件名)SETFileObject=Server.CreateObject(Scripting.FileSystemObject)SETInStream=Server.OpenTextFile(FileObject,1,lse,lse)使用对象FileSystemObject提供方法OpenTextFile产生文本文件,其中参数True表示覆盖原来的文件,False表示文件为ASCII类型要读取的数据=InStream.ReadLine其中InStream.ReadLine为从文件中读取的一行数据下面是一个用ASP实现页面计数器功能的计数器例子(counter.asp),我在代码中详细注释了语句。你可以把以下代码粘贴到你需要计数的页面代码中。当然,你的服务器必须支持ASP,且你已经在主页所在的目录下创建了一个内容为0的文本文件counter.txt。简单的ASP计数器counter.asp代码及注释:%CountFile=Server.MapPath(counter.txt)文件aspconter.txt是用来储存数字的文本文件,初始内容一般是0SetFileObject=Server.CreateObject(Scripting.FileSystemObject)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方法Application.lock别的用户更改计数器的值counter=counter+1计数器的值增加1Out.WriteLine(counter)把新的计数器值写入文件Application.unlock使用方法Application.unlock后,允许别的用户更改计数器的值Response.Write(您是第)Response.Write(fontcolor=red)Response.Write(counter)把计数器的值传送到浏览器,以红(red)色显示给用户Response.Write(/font)Response.Write(位访问者)Out.Close关闭文件%本文来自:电脑网络(),详细出处参考

举报文档

版权所有:长沙市贝斯特娱乐城劳务派遣有限公司 联系人:陈先生  电话:15111173115 传真:0731-88084518 
邮政编码:410200  地址:长沙市望城县高塘岭镇郭亮南路49号。 备案许可证编号为:湘ICP备11001510号