Program | counter-----------------------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 (