不能ASP图像组件来生成图像的ASP计数器程序(二) by qianfengyun Explorer

-----------------------counter.asp---------------------
<%user=request.querystring("user")%>
<!--#include file="header"-->
<%
set fsFilesys=CreateObject("Scripting.FileSystemObject")
set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")&"/counter/txt/"&user&".ddd")
counter=myText.ReadLine
myText.close
counter=counter+1
set myText=fsFilesys.CreateTextFile(Server.MapPath("/explorer/")&"/counter/txt/"&user&".ddd",true)
myText.WriteLine(counter)
myText.close %>
<%
dim a(512)
dim data1(10,8,8)
data1(8,0,0)=0
data1(8,0,1)=0
data1(8,0,2)=0
data1(8,0,3)=0
data1(8,0,4)=0
data1(8,0,5)=0
data1(8,0,6)=0
data1(8,0,7)=0
data1(8,1,0)=0
data1(8,1,1)=1
data1(8,1,2)=1
data1(8,1,3)=1
data1(8,1,4)=1
data1(8,1,5)=1
data1(8,1,6)=1
data1(8,1,7)=1
data1(8,2,0)=0
data1(8,2,1)=1
data1(8,2,2)=0
data1(8,2,3)=0
data1(8,2,4)=0
data1(8,2,5)=0
data1(8,2,6)=0
data1(8,2,7)=1
data1(8,3,0)=0
data1(8,3,1)=1
data1(8,3,2)=0
data1(8,3,3)=0
data1(8,3,4)=0
data1(8,3,5)=0
data1(8,3,6)=0
data1(8,3,7)=1
data1(8,4,0)=0
data1(8,4,1)=1
data1(8,4,2)=1
data1(8,4,3)=1
data1(8,4,4)=1
data1(8,4,5)=1
data1(8,4,6)=1
data1(8,4,7)=1
data1(8,5,0)=0
data1(8,5,1)=1
data1(8,5,2)=0
data1(8,5,3)=0
data1(8,5,4)=0
data1(8,5,5)=0
data1(8,5,6)=0
data1(8,5,7)=1
data1(8,6,0)=0
data1(8,6,1)=1
data1(8,6,2)=0
data1(8,6,3)=0
data1(8,6,4)=0
data1(8,6,5)=0
data1(8,6,6)=0
data1(8,6,7)=1
data1(8,7,0)=0
data1(8,7,1)=1
data1(8,7,2)=1
data1(8,7,3)=1
data1(8,7,4)=1
data1(8,7,5)=1
data1(8,7,6)=1
data1(8,7,7)=1

data1(0,0,0)=0
data1(0,0,1)=0

时间： 2024-09-20 07:33:16

不能ASP图像组件来生成图像的ASP计数器程序(二) by qianfengyun Explorer的相关文章

不能ASP图像组件来生成图像的ASP计数器程序(一)

程序|计数器 不能ASP图像组件来生成图像的ASP计数器程序这是我去年编的一个ASP程序,那时用惯了C语言,所以对Basic反而忘了,但由于觉得ASP很热门,所以试着编了这个程序,程序没经过优化,代码很长,主要是数据那时候不知道该怎么用:) 别笑我,因为现在我会用啦!!这是个简单的计数器申请系统,采用文本,所以只要是支持ASP的空间就都可以测试!!其中TXT目录放的是所有人的计数文本文件number是用来统计当前申请计数器的最大人数 初始化内容为0apply.asp applycheck.asp

不能ASP图像组件来生成图像的ASP计数器程序(二)

程序|计数器 -----------------------counter.asp---------------------<%user=request.querystring("user")%><!--#include file="header"--><%set fsFilesys=CreateObject("Scripting.FileSystemObject")set myText=fsFilesys.Open

不能ASP图像组件来生成图像的ASP计数器程序(三)

data1(3,6,0)=0data1(3,6,1)=0data1(3,6,2)=0data1(3,6,3)=0data1(3,6,4)=0data1(3,6,5)=0data1(3,6,6)=0data1(3,6,7)=1 data1(3,5,0)=0data1(3,5,1)=0data1(3,5,2)=0data1(3,5,3)=0data1(3,5,4)=0data1(3,5,5)=0data1(3,5,6)=0data1(3,5,7)=1 data1(3,4,0)=0data1(3,4,

不用ASP图像组件来生成图像的ASP计数器程序(二)

程序|计数器 -----------------------counter.asp---------------------<%user=request.querystring("user")%><!--#include file="header"--><%set fsFilesys=CreateObject("Scripting.FileSystemObject")set myText=fsFilesys.Open

不用ASP图像组件来生成图像的ASP计数器程序(三)

程序|计数器 data1(3,2,0)=0data1(3,2,1)=0data1(3,2,2)=0data1(3,2,3)=0data1(3,2,4)=0data1(3,2,5)=0data1(3,2,6)=0data1(3,2,7)=1 data1(3,1,0)=0data1(3,1,1)=1data1(3,1,2)=1data1(3,1,3)=1data1(3,1,4)=1data1(3,1,5)=1data1(3,1,6)=1data1(3,1,7)=1 data1(4,0,0)=0dat

ASP AdRotator 组件实例教程

好了下面我们来看看ASP AdRotator 组件实例教程吧. 在ASP AdRotator组件创建一个AdRotator对象,显示不同的图片每一次使用者进入或重新整理网页.一个文本文件包含有关的图片. 语法 <% set adrotator=server.createobject("MSWC.AdRotator") adrotator.GetAdvertisement("textfile.txt") %> 例如 假设我们有一个文件名为" ba

ASP脚本组件的特点

脚本     我们应该从正反两方面考虑在工作中使用ASP脚本组件的必要性.与编译的组件比较,ASP脚本组件有一个明显的特点:WSC脚本文件可在任何时候进行编辑,在下一次执行时,组件中的变化可自动反映出来.不需要重新编译,不需重新启动服务器释放现有组件的引用,也不需要重新注册.并且,如果组件工作状态良好,可选用合适的语言,用已证明可靠的代码和/或算法创建一个编译版本,这同样适用于任何可转换组件.    ASP脚本组件可适应COM +.事实上,与其他ASP内置对象一样,这种组件可访问ObjectCo

不用图像组件的ASP图像计数器

计数器 前几天看了netnice和qzsage君的贴子,颇有启发,于是着手编了一个图像计数器,这个图像计数器没有用图像组件,也不是以前那样用几张图片拼起来,而是用了*.xbm的图片格式.这种格式可能只能在Windows+IE下才能显示.具体的思路是这样:图片用点阵的形式表示,比如2: 00111100 0011为3 1100为C 即0x3c01100110 0110为6 0110为6 0x6601100000 ....... 0x表示十六进制数.01100000 依此类推00110000 这是用

用ASP.NET动态生成图像（转1）

asp.net|动态 Dynamic Image Generation with ASP.NET Scott GuthrieJanuary 14, 2001 Level: Beginner/Intermediate One of the neat features that you can now leverage with .NET is the ability to easily generate dynamic images from code, which you can then ei