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

答案：     
  -----------------------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)=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
&nb

上一个：如何使聊天室发言时屏幕不闪？
下一个：利用ASP显示当前在线人数