动网开发者网络--国内领先的网络开发者基地，为开发者和企业提供全面的网络信息服务和资源

		开发者网络动网主机支持论坛邮局帮助

当前位置：网络学院 → ASP技术 → 客户端相关 → 用ASP实现免费计数器提供-2

用ASP实现免费计数器提供-2

日期：2000年9月15日作者：人气： [大中小]

4.用户管理程序  
<%Response.Expires=0  
dim input()  
thisfile = server.mappath("counter.asp")  
Set fs = CreateObject("Scripting.FileSystemObject")  
Set thisfile = fs.OpenTextFile(thisfile,1,False)  
count = 0  
do while not thisfile.AtEndOfStream  
thisline = thisfile.readline  
Redim preserve input(count)  
input(count) = thisline  
count = count + 1  
loop  
thisfile.Close  
number=(count-1)/5  
set fs=nothing  
%>  
<html>  
<title>计数器管理系统</title>  
<body>  
计数器管理系统  
目前保留用户 <%=number%>个  
<table width="760">  
<tr>  
<td width="100" >编号</td>  
<td width="200">用户名</td>  
<td width="360" >网站名</td>  
<td width="100" >删除</td>  
</tr>  
<%x=""  
for i=1 to number  
x=input((i-1)*5+1)  
Response.Write "<tr><td width='100'>" &i & ""  
Response.Write "<td width=200 >"&input((i-1)*5+1)&"</td>" Response.Write "<td
width=360 >"&input((i-1)*5+4)&"</td>"  
Response.Write "<td width=100 align=left><a href=dele.asp?id=" &x& ">删除</a></td></tr>"  
next  
%>  
</table>  
</body>  
</html>  
5.用户删除处理程序dele.asp  
<%Response.Expires=0  
dim input()  
id=Request.QueryString("id")  
thisfile = server.mappath("counter.asp")  
Set fs = CreateObject("Scripting.FileSystemObject")  
Set infile = fs.OpenTextFile(thisfile,1,False)  
counter = 0  
do while not infile.AtEndOfStream  
thisline = infile.readline  
Redim preserve input(counter)  
input(counter) = thisline  
counter = counter + 1  
loop  
infile.Close  
number=(counter-1)/5  
Set outfile = fs.CreateTextFile(thisfile)  
outfile.WriteLine input(0)  
for i=1 to number  
if input((i-1)*5+1)<>id then  
outfile.WriteLine input((i-1)*5+1)  
outfile.WriteLine input((i-1)*5+2)  
outfile.WriteLine input((i-1)*5+3)  
outfile.WriteLine input((i-1)*5+4)  
outfile.WriteLine input((i-1)*5+5)  
end if  
next  
outfile.Close  
set fs=nothing  
Response.Redirect "manage.asp"  
%>  
---------------------------------------------------  
writen by aspboy and powered by http://easp.126.com

（出处：）

相关文章：

·SQL Server 2000 SP4发布

·Sql Server 2005最新CTP简介及截图

·判断一个access数据库中某个表是否存在的方法

·用Asp生成条形码

·数字小写到英文大写的转换

·在不支持FSO的服务器上使用XMLDOM创建HTML文件