📄 message_show.asp

📁 一个修改过的ASP学籍管理系统,用javascript+ado写的
💻 ASP
字号:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
var i;
var j;
var Rs;
var MessageStart;
var MessageEnd;
var MessageFlag;
Session("MessageFlag")=20;
Session("Rs")=Server.CreateObject("ADODB.Recordset");
Session("Rs").ActiveConnection=Conn;
Session("Rs").CursorLocation=3;
Session("Rs").Source="SELECT * FROM message";
Session("Rs").Open();
%>
<!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"-->
<script language="javascript" type="text/javascript">
function Test()
{
    if(document.MessageForm.UserName.value=="")
	   {
	        alert("请填写姓名！");
			document.MessageForm.UserName.focus();
			return false;
	   }
	if(document.MessageForm.Password.value=="")
	   {
	        alert("请填写密码！");
			document.MessageForm.Password.focus();
			return false;
	   } 
}
</script>

<style type="text/css">
	body{text-align:center;}
</style>
</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">用户名:</font><input size="8" name="UserName" id="UserName"></div></td>
		  <td width="30%" height="20"><div align="center"><font size="2" color="#FF0000">密码：</font><input size="8" name="Password" id="Password" type="password"></div></td>
		  <td width="20%" height="20"><div align="center"><input type="submit" onClick="return Test()" value="确定"><input type="reset" value="清空"></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(!Session("Rs").EOF)
  {
       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="message_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_show_turnpage.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -