📄 managelyb.asp
字号:
<%Response.Expires=0
manage=Session("chatmanage")
if manage<>"Administrator" then Response.Write "??§1????è???§o" : Response.end
lyfile = server.mappath("ly.asp")
countfile=server.mappath("chatguestbook_add.txt")
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 thisfile=fs.OpenTextFile(countfile)
vs=thisfile.readline
thisfile.Close%>
<html>
<head>
<title>留言薄管理系统 - 聊天室</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p12 { font-size: 12pt; line-height: 135%}
a:link { font-family: "宋体"; color: #00CCCC; text-decoration: none; line-height: 135%}
a:hover { font-family: "宋体"; color: #FF0000; text-decoration: underline; line-height: 135%}
a:visited { font-family: "宋体"; color: #00CCCC; text-decoration: none; line-height: 135%}
a:active { font-family: "宋体"; text-decoration: none; line-height: 135%}
.p9 { font-size: 9pt; line-height: 135%}
-->
</style>
</head>
<body bgcolor="#000000" text="#CCCCCC">
<p align="center"><font color="#FFCC00" face="楷体_GB2312" style="font-size: 32pt">聊天室留言薄管理系统</font></p>
<p align="center"><a href="../chat/register.asp">[注册用户管理]</a> <a href="../chat/chat/onlinelist.asp">[在线用户管理]</a> <font color="#FF0000">[留言薄管理]</font></p>
<hr color="#33CCFF" noshade size="1">
<p align="center">共加入留言 <%=vs%> 条，目前保留的留言有 <%=lynumber%> 条</p>
<%for i=1 to lynumber
Response.Write "<p>第" & i & "条 " & "<a href=managelybdel.asp?id=" & i & ">删除这条留言</a></p>"
Response.Write "<font color=#FFCC00>" & input((i-1)*7+1) & "</font><p>"
if input((i-1)*7+3)<>"0" then
Response.Write "<font color=#FF00FF>姓名：</font><a href=mailto:" & input((i-1)*7+3) & ">" & input((i-1)*7+2) & "</a><br>"
else
Response.Write "<font color=#FF00FF>姓名：</font>" & input((i-1)*7+2) & "<br>"
end if
Response.Write "<font color=#FF00FF>时间：</font>" & input((i-1)*7+4) & "<br>"
if input((i-1)*7+5)<>"0" then Response.Write "<font color=#FF00FF>来自：</font>" & input((i-1)*7+5) & "<br>"
if input((i-1)*7+7)<>"0" then
if input((i-1)*7+6)<>"0" then
Response.Write "<font color=#FF00FF>主页：</font><a href=" & input((i-1)*7+7) & " target=_blank>" & input((i-1)*7+6) & "</a>"
else
Response.Write "<font color=#FF00FF>主页：</font><a href=" & input((i-1)*7+7) & " target=_blank>" & input((i-1)*7+7) & "</a>"
end if
end if
Response.Write "<hr color=#33CCFF noshade size=1>"
next%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -