当前位置: 首页 > 图文教程 > 网络编程 > ASP > 不能ASP图像组件来生成图像的ASP计数器程序(二)

ASP
asp搜索两个以上的词的原理
如何使用花生壳?
asp汉字转换成汉语拼音代码
asp程序实现伪静态的代码
asp处理xml数据的发送、接收类
ASP中使用jmail发送邮件的函数
asp中获取字符串中的时间字符串
ASP按照字数限制自动截取标题内容
asp中将内容生成word文档的函数
用ASP自动清空IE缓存里的内容
asp检测conn.execute是否执行成功的函数
自动获取当前页面URL的ASP函数
ASP采集中获取网页内所需的html代码
asp图片采集并且本地重命名保存的函数
如何使用asp去字符串中的超链接
asp网站通过限制请求防止被采集的函数
asp利用正则去掉字符串中所有html内容
用ASP取出HTML里面的图片地址的函数
fso实现整个文件夹内容的复制到另一个文件夹中
适合所有表的添加、删除、修改的函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 46 ::
收藏到网摘: n/a

  -----------------------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
data1(0,0,2)=0
data1(0,0,3)=0
data1(0,0,4)=0
data1(0,0,5)=0
data1(0,0,6)=0
data1(0,0,7)=0

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

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

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

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

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

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

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


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

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

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

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

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

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

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