您的位置:首页技术开发ASP技巧 → 不能ASP图像组件来生成图像的ASP计数器程序二 

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

时间:2004/11/7 4:02:00来源:本站整理作者:蓝点我要评论(0)

-----------------------counter.asp---------------------

<%user=request.querystring("user")%>



<%

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)=1



data1(1,7,0)=0

data1(1,7,1)=0

data1(1,7,2)=0

data1(1,7,3)=0

data1(1,7,4)=0

data1(1,7,5)=0

data1(1,7,6)=1

data1(1,7,7)=1







data1(2,0,0)=0

data1(2,0,1)=0

data1(2,0,2)=0

data1(2,0,3)=0

data1(2,0,4)=0

data1(2,0,5)=0

data1(2,0,6)=0

data1(2,0,7)=0



data1(2,7,0)=0

data1(2,7,1)=1

data1(2,7,2)=1

data1(2,7,3)=1

data1(2,7,4)=1

data1(2,7,5)=1

data1(2,7,6)=1

data1(2,7,7)=1



data1(2,6,0)=0

data1(2,6,1)=0

data1(2,6,2)=0

data1(2,6,3)=0

data1(2,6,4)=0

data1(2,6,5)=0

data1(2,6,6)=0

data1(2,6,7)=1



data1(2,5,0)=0

data1(2,5,1)=0

data1(2,5,2)=0

data1(2,5,3)=0

data1(2,5,4)=0

data1(2,5,5)=0

data1(2,5,6)=0

data1(2,5,7)=1



data1(2,4,0)=0

data1(2,4,1)=1

data1(2,4,2)=1

data1(2,4,3)=1

data1(2,4,4)=1

data1(2,4,5)=1

data1(2,4,6)=1

data1(2,4,7)=1



data1(2,3,0)=0

data1(2,3,1)=1

data1(2,3,2)=0

data1(2,3,3)=0

data1(2,3,4)=0

data1(2,3,5)=0

data1(2,3,6)=0

data1(2,3,7)=0



data1(2,2,0)=0

data1(2,2,1)=1

data1(2,2,2)=0

data1(2,2,3)=0

data1(2,2,4)=0

data1(2,2,5)=0

data1(2,2,6)=0

data1(2,2,7)=0



data1(2,1,0)=0

data1(2,1,1)=1

data1(2,1,2)=1

data1(2,1,3)=1

data1(2,1,4)=1

data1(2,1,5)=1

data1(2,1,6)=1

data1(2,1,7)=1









data1(3,0,0)=0

data1(3,0,1)=0

data1(3,0,2)=0

data1(3,0,3)=0

data1(3,0,4)=0

data1(3,0,5)=0

data1(3,0,6)=0

data1(3,0,7)=0



data1(3,7,0)=0

data1(3,7,1)=1

data1(3,7,2)=1

data1(3,7,3)=1

data1(3,7,4)=1

data1(3,7,5)=1

data1(3,7,6)=1

data1(3,7,7)=1

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案