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

---（文/qianfengyun）

    不用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----------------
    <%set fsFilesys=CreateObject("Scripting.FileSystemObject")
    set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")&"/counter/number.txt")
    counter=mytext.readline
    mytext.close
    counter=counter+1
    user=counter
    %>
    <html>

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

    <body bgcolor="#FFE0D7">

    <table border="1" cellspacing="0" cellpadding="0" bgcolor="#0E3700">
      <tr bgcolor="#EEF9FF">
        <td valign="middle" align="center" bgcolor="#FFFCD2" width="694">
        <span class="p9"><font
        color="#1F9B00"><a href="../../index.html" target="_blank">网站主页
        </a> </font></span></td>
        <td valign="middle" align="center" bgcolor="#FFFCD2" width="694">
        <span class="p9"><font
        color="#1F9B00"><a href="../../zdlink/zdjx.htm" target="_blank">网站精选
        </a> </font></span></td>
        <td valign="middle" align="center" bgcolor="#FFFCD2" width="694">
        <span class="p9"><font
        color="#1F9B00"><a href="../../program/bcyd111.htm" target="_blank">编程圆地
        </a> </font></span></td>
        <td valign="middle" align="center" bgcolor="#FFFCD2" width="694">
        <span class="p9"><font
        color="#1F9B00"><a href="../../zypic/zyfg.htm" target="_blank">中雁风光
        </a> </font></span></td>
        <td valign="middle" align="center" bgcolor="#FFFCD2" width="694">
        <span class="p9"><font
        color="#1F9B00"><a href="../../downfile/ljxz.htm" target="_blank">软件下载
        </a> </font></span></td>
        <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></td>
        <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></td>
        <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></td>
        <td align="center" bgcolor="#FFFCD2" ><span class="p9"><font color="#1F9B00">
        </font></span><font
        size="4"><img src="http://counter.hongzhi.com/cgi-bin/Count.exe?df=3079" width="53"
        height="12" align="absmiddle"></font><span class="p9"><font color="#1F9B00">
        </font></span></td>
      </tr>
    </table>

    <p align="center"><span class="p9"><br>
    </span></p>

    <p align="center">　</p>
    <div align="center"><center>

    <table>
      <tr>
        <td><span class="p9"><font color="#0080C0"><strong><big>探索者免
        费计数器申请</big></strong></font></span></td>
      </tr>
      <tr>
        <td ><form name="apply" action="applaycheck.asp?user=<%=counter%>"
        method="POST"><span class="p9">
        <br>你是第<%=counter%>位来本站申请计数器的人，欢迎你！
    </span>
          <span class="p9"><br>三项都是是必填项</span><br><br>
    <span class="p9">你的用户名是：<%=counter%><BR>点击开始申请就会得到一段代码，
    <br>加入你的页面就可开始统计了。
         </span>
           <p align="center"><span class="p9"><input type="submit"
           value="开始申请" class="p9"></p>
        </form>
        </td>
      </tr>
    </table>
    </center></div>

    </body>
    </html>

    ------------applycheck.asp---------------------
    <style type="text/css"><!--
    .p9 {  font-family: "宋体"; font-size: 9pt}a        {text-transform: none;
    text-decoration: none;}
    a:hover {text-decoration: underline; color: #002255;}
    --></style>
    </head>
    <body>
    <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%>

    你的计数器申请成功！只要将以下代码加入你的页面，就能在你的页面得到一个计数器：
    <br><br>
    <font color="#ff0000">
    <p><a href="http://grwy.online.ha.cn/explorer"><img
    src="http://home.lz.gs.cninfo.net/explorer/counter/counter.asp?user=
    <%=user%>"<br>
    border="0" alt="探索者计数器" width="64"
    height="16"></a></p>

    </span>
    <a href="http://grwy.online.ha.cn/explorer"><img
    src="http://-2/explorer/counter/counter.asp?user=<%=user%>"
    border="0" alt="探索者计数器" width="64" height="16"></a>

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