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

ASP
用PreRender解决DataGrid分页最后一页行数不满的排版问题
基于ASP的站内多值搜索
XLS与MDB文件格式互换全攻略
一个用ASP生成html的新方法
将指定的asp文件内容生成HTML文件
使用Session记录页面地址和实现页面返回功能
IIS6架设网站常见问题及症状举例答疑
ASP调用WEBSERVICE文档
用Asp获取Dll加密新闻内容
Access2000数据库80万记录通用快速分页类
如何防止ASP木马在服务器上运行
如何使用javascript来写ASP程序
用存储过程实现ASP对数据库访问
学会在ASP中使用存储过程
ASP中和星期有关的自定义函数
水晶报表打印单据时增加空行或空白行的示例脚本
ASP+Access莫名奇妙的sql语句错误解决
ASP获取客户端MAC地址
在ASP中执行Ping命令,并且返回结果
如何使用ASP建立虚拟的FTP服务器

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 78 ::
收藏到网摘: 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)=