📄 message_manage_show_more.asp
字号:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
var i;
var j;
var PostWord;
PostWord=Request.QueryString("Method");
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言板信息显示</title>
<!--#include file="link.asp"-->
</head>
<body>
<!--#include file="top.asp"-->
<form action="message_login_test.asp" method="post" name="MessageForm" id="MessageForm">
<table border="1" width="760" cellPadding="0" cellSpacing="0" bgcolor="#00c0f0" borderColor="#111111" borderColorDark="#0072b3" borderColorLight="#0072b3" style="BORDER-COLLAPSE: collapse">
<tr>
<td width="20%" height="20"><div align="center"><font size="2" color="#FF0000">超级管理员登陆</font></div></td>
<td width="30%" height="20"><div align="center"><font size="2" color="#FF0000">用户名:<%Response.Write(UserName);%></font></div></td>
<td width="30%" height="20"><div align="center"><font size="2" color="#FF0000">密码：*******************</font></div></td>
<td width="20%" height="20"><div align="center"><font size="2" color="#FF0000"><a href="message_manage_unload.asp">退出登陆</a></font></div></td>
</tr>
</table>
</form>
<table border="1" width="760" cellPadding="0" cellSpacing="0" bgcolor="#00c0f0" borderColor="#111111" borderColorDark="#0072b3" borderColorLight="#0072b3" style="BORDER-COLLAPSE: collapse">
<tr>
<td width="100%" height="30" colspan="4"><div align="center"><font size="4" color="#FF0000"><a href="message_input.asp">我要留言</a></font></div></td>
</tr>
<tr>
<td width="20%" height="20"><div align="center"><font size="2" color="#FF0000">昵称</font></div></td>
<td width="50%" height="20"><div align="center"><font size="2" color="#FF0000">主题</font></div></td>
<td width="15%" height="20"><div align="center"><font size="2" color="#FF0000">写作时间</font></div></td>
<td width="15%" height="20"><div align="center"><font size="2" color="#FF0000">删除该项</font></div></td>
</tr>
<%
if(PostWord="Previous")
{
for(i=1;i<=Session("MessageStart")*2;i++)
{
Session("Rs").MovePrevious;
if(Session("Rs").BOF)
{
Session("Rs").MoveNext;
break;
}
}
}
Session("MessageStart")=Session("Rs").AbsolutePosition;
for(i=0;i<=Session("MessageFlag")-1;i++)
{
Session("MessageEnd")=Session("Rs").AbsolutePosition;
%>
<tr bgcolor="#FFFFFF">
<td width="20%" height="20"><div align="center"><font size="2"><%Response.Write(Session("Rs")(0).Value);%></font></div></td>
<td width="50%" height="20"><div align="center"><font size="2"><a href="messag_inf_show.asp?nicheng=<%Response.Write(Session("Rs")(0).Value);%>" target="_blank"><%Response.Write(Session("Rs")(1).Value);%></a></font></div></td>
<td width="15%" height="20"><div align="center"><font size="2"><%Response.Write(Session("Rs")(2).Value);%></font></div></td>
<td width="15%" height="20"><div align="center"><font size="2">您尚未登陆</font></div></td>
</tr>
<%
Session("Rs").MoveNext;
if(Session("Rs").EOF)
{
Session("Rs").MovePrevious;
break;
}
}
%>
<tr>
<td width="100%" height="20" colspan="4"></td>
</tr>
</table>
<!--#include file="message_manage_show_turnpage.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -