用ASP实现免费计数器提供-1 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 用ASP实现免费计数器提供-1

用ASP实现免费计数器提供-1 时间：2004/10/7 19:07:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　

　　　　　　　　　　　　要实现免费提供计数器,我们必须准备代表0-9这10个数字的gif图片，便依次命名为0.gif-9.gif.在主页目录下建立一个目
录free,把图片文件counter.asp,user.html,reg.asp,manage.asp,dele.asp,easpcount.asp放在free目录下.
1.存放用户数据的记数文件counter.asp
<%Response.Write "拒绝访问！" : Response.end%>

2.用户申请程序:user.html

计数器申请

3.处理用户申请程序reg.asp
<%
Response.Expires=0
dim input()
name = Request.Form("name")
pass = Request.Form("pass")
homename = Request.Form("homename")
url = Request.Form("url")
infile = server.mappath("counter.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(infile,1,False)
counter = 0
do while not thisfile.AtEndOfStream
thisline = thisfile.readline
Redim preserve input(counter)
input(counter) = thisline
counter = counter + 1
loop
thisfile.Close
for i=0 to counter-1
if name=input(i) then
Response.write "

对不起，已有这个用户名

"
Response.write "

点击这里进行修改

"
Response.end
exit for
end if
next
Set outfile = fs.CreateTextFile(infile)
outfile.WriteLine input(0)
outfile.WriteLine name
outfile.WriteLine pass
outfile.WriteLine homename
outfile.WriteLine url
outfile.WriteLine 0
for i=1 to counter-1
outfile.WriteLine input(i)
next
outfile.close
set fs=nothing
strs=""
'src中"http://gp/wwwroot/"为你的主页空间主目录
Response.write "

"&name&" 你已申
请成功,请将以下代码粘贴到你的网页代码中

"
Response.write "

"&server.htmlencode(strs)&"

"
Response.end
%>
---------------------------------------------------