您的位置:首页技术开发ASP技巧 → 不能ASP图像组件来生成图像的ASP计数器程序一 

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

时间:2004/11/7 4:01:00来源:本站整理作者:蓝点我要评论(0)

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

%>





















  

    

    

    

    

    

    

    

    

    

  


    color="#1F9B00">网站主页

    color="#1F9B00">网站精选

    color="#1F9B00">编程圆地

    color="#1F9B00">中雁风光

    color="#1F9B00">软件下载


    color="#1F9B00">
    target="_blank">暗黑帝国


    color="#1F9B00">我的天地


    color="#1F9B00">免费资源


    size="4">
    height="12" align="absmiddle">











 









  

    

  

  

    

  

探索者免费计数器申请


    
你是第<%=counter%>位来本站申请计数器的人,欢迎你!



      
三项都是是必填项




你的用户名是:<%=counter%>
点击开始申请就会得到一段代码,
加入你的页面就可开始统计了。

     


       



    


    












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









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



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





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


border=&quot;0&quot; alt=&quot;探索者计数器&quot; width=&quot;64&quot;

height=&quot;16&quot;&gt;&lt;/a&gt;








border="0" alt="探索者计数器" width="64" height="16">




<%set myText=fsFilesys.CreateTextFile(Server.MapPath("/explorer/")&"/counter/txt/"&user&".ddd",true)

myText.writeline("0")

mytext.close%>


相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案