搜索文章：

首页  |  Java技术  |  Asp.net  |  Asp编程  |  VC/C++  |  Delphi  |  VB编程
上一篇：不能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----------------
<%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>&lt;a href=&quot;http://grwy.online.ha.cn/explorer&quot;&gt;&lt;img src=&quot;http://home.lz.gs.cninfo.net/explorer/counter/counter.asp?user=<%=user%>&quot;<br>
border=&quot;0&quot; alt=&quot;探索者计数器&quot; width=&quot;64&quot;
height=&quot;16&quot;&gt;&lt;/a&gt;</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>

（）

下一篇：在ＡＳＰ中用集合成批操作数据库 >>
相关文章：
© 2006   www.java-asp.net