简单的ASP网页计数器源代码 ios简单小游戏源代码

说明:

1、在网站目录下新建一个文本:txtcounter.txt 在文本填写1或其他识字

2、新建一asp文件:count.asp,加入以下代码:

<%

CountFile=Server.MapPath("txtcounter.txt")

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)

counter=Out.ReadLine

Out.Close

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)

Application.lock

counter= counter + 1

Out.WriteLine(counter)

Application.unlock

Response.Write"document.write("&counter&")"

'为了在页面正确显示计数器的值,调用VBScript函数Document.write

Out.Close

%>

3、在需要计数的网页加入:总访问<script language="JavaScript" src="count.asp"></script >次

现在看网页就是可以计数了!

与页面分离的图象计数器

人们的追求是永无止境的,也许你需要一个更有个性的图形数字计数器,而不是简单的文本数字计数器。没问题,现在我们就来看看用ASP是怎样来实现图形计数器功能的。要实现图形计数器,关键点在于如何实现把计数器文件中的数据值转变为对应的图象表示。因为十进制数有0,1,2,3,4,5,6,7,8,9共十个不同的数数字,我们需要有十个对应的图象,且图象的文件名字要与显示的数字对应起来,比如0对应的数字图象的文件名字就是0.gif,1对应的就是1.gif,...(图象自己可以用Photoshop等工具制作,或者从网络上下载)。这里我们要用到VBScript函数Len(string | varname)、Mid(string,start[,length])。由Len(counter)可得到计数器值的位数,由Mid(counter,i,1)可以得到计数器值的第i位上的数字,我们可利用这个值来调用相应的数字图象。用For循环语句,我们不难得出计数器值各个位上的数字并转化成对应的数字图象,这样,我们就能实现文本数值到图象数字的转变。下面就是一个用ASP编写的图象计数器实例,因为大部分代码前面都分析过,所以代码中只注释了部分语句。

与页面分离的图象计数器imgcounter.asp代码:

<% @language="VBScript"%>

<%

dim images(20)

'定义一数组,用来存放显示每一位数字图象的语句

CountFile=Server.MapPath("imgcounter.txt")

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)

counter=Out.ReadLine

Out.Close

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)

Application.lock

counter= counter + 1

Out.WriteLine(counter)

Application.unlock

countlen=len(counter)

'得到计数器值的位数

for i=1 to countlen

images(i)="<img src="&"http://202.101.209.75/asptemp/counter/images/"&"/" & mid(counter,i,1) & ".gif></img>"

'由循环语句得到各个位上数值对应图象的显示代码(html),并把它存在数组中

'具体使用时请注意图象的实际服务器及目录路径

response.write"document.write('"&images(i)&"');"

'调用函数Document.write输出显示数字图象的html代码

next

Out.Close

%>

在要计数的页面加入如下的代码:

<p>

简单的ASP网页计数器源代码 ios简单小游戏源代码
您是第

<script language="JavaScript" src="imgcounter.asp">

//引用时注意ASP计数器所在的服务器及目录路径。

</script>

位来客

</p>

计数器设计详解

ASP内含五个内置的"Active Server Components"(ActiveX服务器组件),即Database Access component(数据库访问组件)、File Access component(文件访问组件)、Ad Rotator component(广告轮播器组件)、Brower Capabilities component(浏览器信息组件)、Content Linking component(内容链接组件)。我们下面要设计的计数器,就是通过其中的File Access component(文件访问组件)来读写服务器文件来实现。算法思路是:在服务器端用一个文本(ASCII)文件存放计数数值,每当页面被访问时就从文件中读出数值,显示给用户,并且使数值加1,把增加后的数值写回到文件。

写入数据到一个服务器计数文件的ASP语句和说明如下:

CounFile=Server.MapPath("用来存放计数器值的文件名")

'Server服务器访问方法MapPath(path)是将存放计数器值的文件所在的路径   转换成物理路径

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

'使用方法CreateObject定义对象FileSystemObject

SET OutStream=Server.CreateTextFile(FileObject,True,False)

'使用对象FileSystemObject提供方法CreateTextFile产生文本文件,其中参   数"True"表示覆盖原来的文件,"False"表示文件为ASCII类型

OutStream.WriteLine "要写入的数据"

'OutStream.WriteLine为往文件写入一行数据

从一个服务器文件读取数据的ASP语法如下:

CounFile=Server.MapPath("用来存放计数器值的文件名")

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

SET InStream=Server.OpenTextFile(FileObject,1,false,false)

'使用对象FileSystemObject提供方法OpenTextFile产生文本文件,

'其中参数"True"表示覆盖原来的文件,"False"表示文件为ASCII类型

"要读取的数据"=InStream.ReadLine

'其中InStream.ReadLine为从文件中读取的一行数据

下面是一个用ASP实现页面计数器功能的计数器例子(simplecounter.asp),我在代码中详细注释了语句。你可以把以下代码粘贴到你需要计数的页面代码中。当然,你的服务器必须支持ASP,且你已经在主页所在的目录下创建了一个内容为0的文本文件simplecounter.txt。

简单的ASP计数器simplecounter.asp代码及注释:

<%

CountFile=Server.MapPath("simplecounter.txt")

'文件aspconter.txt是用来储存数字的文本文件,初始内容一般是0

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)

counter=Out.ReadLine

'读取计数器文件中的值

Out.Close

'关闭文件

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)

Application.lock

'方法Application.lock禁止别的用户更改计数器的值

counter= counter + 1

'计数器的值增加1

Out.WriteLine(counter)

'把新的计数器值写入文件

Application.unlock

'使用方法Application.unlock后,允许别的用户更改计数器的值

Response.Write("您是第")

Response.Write("<font color=red>")

Response.Write(counter)

'把计数器的值传送到浏览器,以红(red)色显示给用户

Response.Write("</font>")

Response.Write("位访问者")

Out.Close

'关闭文件

%

  

爱华网本文地址 » http://www.413yy.cn/a/25101013/156059.html

更多阅读

极坑爹的哲学小游戏攻略攻略 极坑爹的哲学小游戏

极坑爹的哲学小游戏攻略攻略——简介 今天带来一款RPG小游戏,极坑爹的哲学小游戏。游戏就像它的名字,处处是搞笑的对话,无语的陷阱。游戏有多种结局,你是否有耐心打通关呢?极坑爹的哲学小游戏攻略攻略——工具/原料单机游戏下载:极坑爹的

转载 日剧:我的女友是机器人(绫濑遥小出惠介)

看了无数次,落泪无数次原文地址:日剧:我的女友是机器人(绫濑遥小出惠介)作者:kilia男女主角都是我很喜欢的演员,在里边的表演也很生动,故事情节虽说没有那么动人,但时在地震那段还是有点视觉效果的转:我的女友是机器人 中文片名  我

女儿和祖母家的菲律宾保姆 四女儿掌掴小保姆

林来自菲律宾,是祖母家的佣人, 第一次见到林的时候,她看到我好像看到了自家亲戚一般很是兴奋, 整个大家庭,就我们的脸型肤色接近, 所以,她对我说,看到我觉得很亲切。林的合同期是两年,这个月底就到期了,本来是想回去度假休息,看看孩子

微信朋友圈小游戏打企鹅的技巧 微信朋友圈分享小游戏

转载请注明,原文来自:http://www.seavia.com最近一款简单粗暴的微笑小游戏又来了,打企鹅!其实老实说,这个游戏我小学的时候就在4399上玩过,现在改成了微信版的小手游,通过分享的形式着实是火了一把:鼠标一点就可以把企鹅揍远,最后看距离

声明:《简单的ASP网页计数器源代码 ios简单小游戏源代码》为网友绛雪红唇分享!如侵犯到您的合法权益请联系我们删除