📄 managelybdel.asp
字号:
<%Response.Expires=0
manage=Session("chatmanage")
if manage<>"Administrator" then Response.Write "拒绝访问" : Response.end
id=Request.QueryString("id")
lyfile = server.mappath("ly.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(lyfile,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
lynumber=(counter-1)/7
Set outfile = fs.CreateTextFile(lyfile)
outfile.WriteLine input(0)
for i=1 to lynumber
if formatnumber(i)<>formatnumber(id) then
outfile.WriteLine input((i-1)*7+1)
outfile.WriteLine input((i-1)*7+2)
outfile.WriteLine input((i-1)*7+3)
outfile.WriteLine input((i-1)*7+4)
outfile.WriteLine input((i-1)*7+5)
outfile.WriteLine input((i-1)*7+6)
outfile.WriteLine input((i-1)*7+7)
end if
next
outfile.Close
set fs=nothing
Response.Redirect "managelyb.asp"
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -