用ASP实现免费计数器提供-2
日期：2010-02-23 浏览次数：21203 次
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>
<p align="center"><font style="font-size: 20pt">计数器管理系统</font></p>
<p align="center">目前保留用户 <%=number%>个</p>
<table width="760">
<tr>
<td width="100" ><font color="#FF00FF">编号</font></td>
<td width="200"><font color="#FF00FF">用户名</font></td>
<td width="360" ><font color="#FF00FF">网站名</font></td>
<td width="100" ><font color="#FF00FF">删除</font></td>
</tr>
<%x=""
for i=1 to number
x=input((i-1)*5+1)
Response.Write "<tr><td width='100'><font color=#00ffFF>" &i & "</font>"
Response.Write "<td width=200 ><font color=#FFffFF>"&input((i-1)*5+1)&"</font></td>" Response.Write "<td
width=360 ><font color=#FF00FF>"&input((i-1)*5+4)&"</font></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
<%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>
<p align="center"><font style="font-size: 20pt">计数器管理系统</font></p>
<p align="center">目前保留用户 <%=number%>个</p>
<table width="760">
<tr>
<td width="100" ><font color="#FF00FF">编号</font></td>
<td width="200"><font color="#FF00FF">用户名</font></td>
<td width="360" ><font color="#FF00FF">网站名</font></td>
<td width="100" ><font color="#FF00FF">删除</font></td>
</tr>
<%x=""
for i=1 to number
x=input((i-1)*5+1)
Response.Write "<tr><td width='100'><font color=#00ffFF>" &i & "</font>"
Response.Write "<td width=200 ><font color=#FFffFF>"&input((i-1)*5+1)&"</font></td>" Response.Write "<td
width=360 ><font color=#FF00FF>"&input((i-1)*5+4)&"</font></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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
