📄 adminindex.asp

📁 本同学录系统演示地址:　http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等如果要换sql数据库,请将app_code里的MyPage

💻 ASP

字号:

<!-- #include file="Show.asp" -->
<!-- #include file="ChkPwd.asp" -->
<style>
<!--
.main        { font-size: 10pt }
-->
</style>
<script language="JavaScript">
function newwin(url) {
  var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=550,height=460");
  newwin.focus();
  return false;
}
</script>
<style type="text/css">
a:link {  text-decoration: none;  color: #000000}
</style>

<%
  '=============连接数据库===============
  Set Conn=Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.mdb")
  Conn.Open
  '============从表Content中读取用户数据==============
  Set rs=Server.CreateObject("ADODB.Recordset")
  Set rs.ActiveConnection = Conn
  rs.CursorType = 3
  '打开记录集
  rs.Open "SELECT * FROM Content WHERE UpperId=0 ORDER BY CreateTime DESC"
  '设置每页记录数
  rs.PageSize = 5
  '读取参数Page，表示当前的页码
  Page = CLng(Request("Page"))
  '处理不合法的页码
  If Page < 1 Then Page = 1
  If Page > rs.PageCount Then Page = rs.PageCount
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>网络留言板</title>
<style>
<!--
.main        { font-size: 10pt }
-->
</style>
</head>
<body topmargin="0" vlink="#000000" link="#000000">

<div align="center">
  <center>
<table width="714" border="0" height="218" cellspacing="0" cellpadding="0">
<tr> 
	<td height="18" class="main" bordercolorlight="#0000FF" bordercolordark="#00FFFF" bgcolor="#3399FF" background="images/b3.gif"> &nbsp;[ <a target="_blank" href="newRec.asp"  onclick="return newwin(this.href)">
	我要留言</a> ]</td> </tr>
</center>
<% if not rs.Eof then %> 
<% end if %>
<tr> <td height="151" class="main"> <% Call ShowList( rs, Page ) %> </td></tr>
<tr> <td height="18"> </td></tr>   
<tr>
	<td height="13" class="main" background="images/b3.gif"> <% Call ShowPage( rs, Page ) %></td>
</tr>
<tr> <td height="16"> <p align="center" class="main">本系统为启明工作室版权所有</td></tr>   
  </table>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -