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

发表日期：1999-5-4

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

不能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"></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"><a href="../../index.html" target="_blank">网站主页</a> </td>
 <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><a href="../../zdlink/zdjx.htm" target="_blank">网站精选</a> </td>
 <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><a href="../../PRogram/bcyd111.htm" target="_blank">编程圆地</a> </td>
 <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><a href="../../zypic/zyfg.htm" target="_blank">中雁风光</a> </td>
 <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><a href="../../downfile/ljxz.htm" target="_blank">软件下载</a> </td>
 <td align="center" bgcolor="#FFFCD2" width="695"><a href="http://grwy.online.ha.cn/explorer/diablo2/diablo.htm"
 target="_blank">暗黑帝国</a> </td>
 <td align="center" bgcolor="#FFFCD2" width="695"><a href="../../myworld/myworld.htm" target="_blank">我的天地</a> </td>
 <td align="center" bgcolor="#FFFCD2" width="695"><a href="../../nomoneysource/mfzy.htm" target="_blank">免费资源</a> </td>
 <td align="center" bgcolor="#FFFCD2" ><img src="http://counter.hongzhi.com/cgi-bin/Count.exe?df=3079" width="53"
 height="12" align="absmiddle"></td>
 </tr>
</table>

 


　
<div align="center"><center>

<table>
 <tr>
 <td><big>探索者免费计数器申请</big></td>
 </tr>
 <tr>
 <td ><form name="apply" action="applaycheck.asp?user=<%=counter%>" method="POST">
 你是第<%=counter%>位来本站申请计数器的人，欢迎你！

 三项都是是必填项 
你的用户名是：<%=counter%> 点击开始申请就会得到一段代码， 加入你的页面就可开始统计了。
 
 <input type="submit" value="开始申请" class="p9">
 </form>
 </td>
 </tr>
</table>
</center></div>

</body>
</html>

------------applycheck.asp---------------------
<style type="text/css"></style>
</head>
<body>

<%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%>

你的计数器申请成功！只要将以下代码加入你的页面，就能在你的页面得到一个计数器： 

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


<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>

关注此文的读者还看过：
·2012-5-23 8:36:45 ASP文件操作--列出目录及文件
·2012-5-23 8:36:14 聊天室实现私聊(四)
·2012-5-23 8:35:55 瞒天过海html文件技术一瞥
·2012-5-23 8:35:42 聊天室实现私聊(三)
·2012-5-23 8:35:18 用GetString来提高ASP的速度
·2012-5-23 8:33:56 判断文章中文字符数量
·2012-5-23 8:33:43 在ASP+中使用Cookie
·2012-5-23 8:33:31 存储过程对页面访问速度的影响
·2012-5-23 8:33:23 防护手册：如何防止ASP木马在服务器上运行

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·全球锁医疗科技有限公司LOGO设计
·多个.NET网站制作和修改
·总计400元长期外包企业官网内页
·淘宝旗舰店装修 5000~10000元
·厦门巨游网络科技有限公司
·影派平板电脑
·寻会php的程序员外包网站
·派桑网络-网络营销专家
·汽车配件网站制作 50000元
·整站SEO优化
·课件门户网程序
·求长期合作网站设计制作高手
·公司网站重新改版 8000元
·asp企业网站小改动
·网站flash片头

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP技巧>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发