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

您的位置：首页 → 技术开发 → 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">

探索者免费计数器申请

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

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

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

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

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

myText.writeline("0")

mytext.close%>

文章评论

查看所有0条评论>>

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