⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 manage.asp

📁 这是一个数字教育系统,也是师兄的毕业设计,具体的功能我也不清楚,不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上课程实验系统</title>
<script language="javascript">
<!--
 function deleteonclick()
 {
  if(confirm("你确认要删除数据吗？"))
    window.event.returnValue=true;
  else
    window.event.returnValue=false;
 }
-->
</script>
<%
 page=request.QueryString("page")
 row=15
 record=row*(page-1)
 set rs1=server.createobject("ADODB.recordset") 
 sql1="select * from CONTENT order by ID DESC"
 rs1.open sql1,conn,3,3
  
 rs1.move CInt(record)
%>
<style type="text/css">
<!--
body {
	margin-top: 0px;
}
.style1 {
	color: #6666CC;
	font-weight: bold;
	font-size: 24px;
}
.style3 {
	font-size: 13px;
	font-weight: bold;
	color: #6666CC;
}
.table1 {
	border-top: 1px solid #6699CC;
	border-right: 2px solid #6699CC;
	border-bottom: 1px solid #6699CC;
	border-left: 2px solid #6699CC;
}
.style4 {
	font-size: 12px;
	color: #6666CC;
	text-decoration: none;
}
.style5 {
	font-size: 12px;
	color: #FF6666;
	text-decoration: none;
}
-->
</style></head>
<body>
<div align="center">
  <table width="770" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td height="50" colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td width="770" height="50" valign="middle"><span class="style1">留言管理</span></td>
          </tr>
      </table></td>
    </tr>
    <tr>
      <td width="19" height="427">&nbsp;</td>
      <td width="732" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td width="732" height="25" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                <!--DWLayoutTable-->
                <tr>
                  <td width="128" height="25" align="center" valign="middle"><span class="style3">发表者</span></td>
                  <td width="159" align="center" valign="middle" class="style3">题 目</td>
                  <td width="237" valign="middle" class="style3">内 容</td>
                <td width="157" align="center" valign="middle" class="style3">发表日期</td>
                <td width="51" align="center" valign="middle" class="style3">管理</td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="440" valign="top">
		  <%
		  i=1
		  while not rs1.eof and i<15
		  %>
              <table width="100%" border="0" cellpadding="0" cellspacing="0" class="table1">
                <!--DWLayoutTable-->

                <tr>
                  <td width="21" height="20" align="right" valign="middle"><img src="image/WRITE.GIF" width="14" height="14"></td>
                  <td width="105" valign="middle" class="style4">&nbsp;<%=rs1("name")%></td>
                  <td width="159" valign="middle" class="style4"><%=rs1("title")%></td>
                  <td width="238" valign="middle" class="style4"><%=rs1("content")%></td>
                  <td width="156" valign="middle" class="style4"><%=rs1("time")%></td>
                <td width="49" align="center" valign="middle"><a href="delete.asp?id=<%=rs1("id")%>"  onClick="deleteonclick()"><img src="image/dele_1.gif" width="14" height="16" border="0"></a></td>
                </tr>

                                </table>	                  
		  <%
		     rs1.movenext
			 i=i+1
		   wend
		  %>			</td>
          </tr>
      </table></td>
      <td width="19">&nbsp;</td>
    </tr>
    <tr>
      <td height="23">&nbsp;</td>
      <td valign="middle"><div align="right">
	  <%
	  if page>1 then
	   response.Write("<a href=manage.asp?page="&(page-1)&" class=style5>上一页</a>")
	  end if
	  if not rs1.eof then
	   response.Write("<a href=manage.asp?page="&(page+1)&"  class=style5>下一页</a>")
	  end if
	  %>
	  </div></td>
      <td>&nbsp;</td>
    </tr>
  </table>
</div>
</body>
</html>

⌨️ 快捷键说明

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