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

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

时间：2004/10/7 19:07:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



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

计数器管理系统

目前保留用户 <%=number%>个

<%x=""
for i=1 to number
x=input((i-1)*5+1)
Response.Write "" Response.Write ""
Response.Write ""
next
%>

编号	用户名	网站名	删除
" &i & "" Response.Write "	"&input((i-1)*5+1)&"	width=360 >"&input((i-1)*5+4)&"	删除

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

相关阅读 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是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论