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

不能ASP图像组件来生成图像的ASP计数器程序
这是我去年编的一个ASP程序，那时用惯了C语言，所以对Basic反而忘了，但由于觉得ASP很热门，所以试着编了这个程序，程序没经过优化，代码很长，主要是数据那时候不知道该怎么用：) 别笑我，因为现在我会用啦!!
这是个简单的计数器申请系统，采用文本，所以只要是支持ASP的空间就都可以测试!!
其中TXT目录放的是所有人的计数文本文件
number是用来统计当前申请计数器的最大人数初始化内容为0
apply.asp applycheck.asp是用来提供申请计数器的
header 是我用C语言从一个256色的bmp图像中提取出来的bmp图像的头部信息，太大了，有时间的人可以改为2色的bmp图像的头部信息，当然代码改变了。我取为256色只是为了方便编制下面的counter.asp
counter.asp 当然是计数器的核心程序啦!!
里面还有一个counter.txt 时隔久了，不知有没有用，反正我也把它放上去嘛算啦!!

ZIP下载地方：
http://grwy.online.ha.cn/explorer

下面只例举出来几个ASP程序的源程序:
--------------apply.asp----------------

1set fsFilesys=CreateObject("Scripting.FileSystemObject")   
2set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")&"/counter/number.txt")   
3counter=mytext.readline   
4mytext.close   
5counter=counter+1   
6user=counter

 1<html>
 2<head>
 3<title></title>
 4<style type="text/css"><!--   
 5.p9 { font-family: "宋体"; font-size: 9pt}a {text-transform: none; text-decoration: none;}   
 6a:hover {text-decoration: underline; color: #002255;}   
 7\--></style>
 8</head>
 9<body bgcolor="#FFE0D7">
10<table bgcolor="#0E3700" border="1" cellpadding="0" cellspacing="0">
11<tr bgcolor="#EEF9FF">
12<td align="center" bgcolor="#FFFCD2" valign="middle" width="694"><span class="p9"><font color="#1F9B00"><a href="../../index.html" target="_blank">网站主页</a> </font></span></td>
13<td align="center" bgcolor="#FFFCD2" valign="middle" width="694"><span class="p9"><font color="#1F9B00"><a href="../../zdlink/zdjx.htm" target="_blank">网站精选</a> </font></span></td>
14<td align="center" bgcolor="#FFFCD2" valign="middle" width="694"><span class="p9"><font color="#1F9B00"><a href="../../program/bcyd111.htm" target="_blank">编程圆地</a> </font></span></td>
15<td align="center" bgcolor="#FFFCD2" valign="middle" width="694"><span class="p9"><font color="#1F9B00"><a href="../../zypic/zyfg.htm" target="_blank">中雁风光</a> </font></span></td>
16<td align="center" bgcolor="#FFFCD2" valign="middle" width="694"><span class="p9"><font color="#1F9B00"><a href="../../downfile/ljxz.htm" target="_blank">软件下载</a> </font></span></td>
17<td align="center" bgcolor="#FFFCD2" width="695"><p align="center"><span class="p9"><font color="#1F9B00"><a href="http://grwy.online.ha.cn/explorer/diablo2/diablo.htm" target="_blank">暗黑帝国</a> </font></span></p></td>
18<td align="center" bgcolor="#FFFCD2" width="695"><p align="center"><span class="p9"><font color="#1F9B00"><a href="../../myworld/myworld.htm" target="_blank">我的天地</a> </font></span></p></td>
19<td align="center" bgcolor="#FFFCD2" width="695"><p align="center"><span class="p9"><font color="#1F9B00"><a href="../../nomoneysource/mfzy.htm" target="_blank">免费资源</a> </font></span></p></td>
20<td align="center" bgcolor="#FFFCD2"><span class="p9"><font color="#1F9B00"></font></span><font size="4"><img align="absmiddle" height="12" src="http://counter.hongzhi.com/cgi-bin/Count.exe?df=3079" width="53"/></font><span class="p9"><font color="#1F9B00"></font></span></td>
21</tr>
22</table>
23<p align="center"><span class="p9"><br/>
24</span></p>
25<p align="center"> </p>
26<div align="center"><center>
27<table>
28<tr>
29<td><span class="p9"><font color="#0080C0"><strong><big>探索者免费计数器申请</big></strong></font></span></td>
30</tr>
31<tr>
32<td><form action="applaycheck.asp?user=```
33=counter
34```" method="POST" name="apply"><span class="p9">
35<br/>你是第```
36=counter
37```位来本站申请计数器的人，欢迎你！   
38</span>
39<span class="p9"><br/>三项都是是必填项</span><br/><br/>
40<span class="p9">你的用户名是：```
41=counter
42```<br/>点击开始申请就会得到一段代码，<br/>加入你的页面就可开始统计了。   
43</span>
44<p align="center"><span class="p9"><input class="p9" type="submit" value="开始申请"/></span></p>
45</form>
46</td>
47</tr>
48</table>
49</center></div>
50</body>
51</html>

------------applycheck.asp---------------------

1<style type="text/css"><!--   
2.p9 { font-family: "宋体"; font-size: 9pt}a {text-transform: none; text-decoration: none;}   
3a:hover {text-decoration: underline; color: #002255;}   
4\--></style>

1<body>
2<span class="p9">

user=request.querystring("user")

set fsFilesys=CreateObject("Scripting.FileSystemObject")
set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")&"/counter/number.txt")
counter=myText.ReadLine
counter=counter+1
myText.close
set myText=fsFilesys.CreateTextFile(Server.MapPath("/explorer/")&"/counter/number.txt",true)
mytext.writeline(counter)
mytext.close

 1  
 2你的计数器申请成功！只要将以下代码加入你的页面，就能在你的页面得到一个计数器：<br/><br/>
 3<font color="#ff0000">
 4<p>&lt;a href="http://grwy.online.ha.cn/explorer"&gt;&lt;img src="http://home.lz.gs.cninfo.net/explorer/counter/counter.asp?user=```
 5=user
 6```"<br/>   
 7border="0" alt="探索者计数器" width="64"   
 8height="16"&gt;&lt;/a&gt;</p>
 9</font></span>
10<a href="http://grwy.online.ha.cn/explorer"><img alt="探索者计数器" border="0" height="16" src="http://-2/explorer/counter/counter.asp?user=```
11=user
12```" width="64"/></a>   
13

set myText=fsFilesys.CreateTextFile(Server.MapPath("/explorer/")&"/counter/txt/"&user&".ddd",true)
myText.writeline("0")
mytext.close

1</body>