modify_xsl1.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 95 行

ASP
95 行
字号 
<%@ Language=VBScript%>
<!--#include file=conn.asp -->

<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF
%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=redcaff%></title>
<LINK href=news.css rel=stylesheet>
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.box2 {
	border-top-width: 0px;
	border-right-width: 1px;
	border-bottom-width: 0px;
	border-left-width: 1px;
	border-top-style: solid;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-top-color: #A0A0A0;
	border-right-color: #A0A0A0;
	border-bottom-color: #A0A0A0;
	border-left-color: #A0A0A0;
}
-->
</style>
<link href="news.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#f2f2f2" text="#000000" topmargin="0" marginheight="0">
<style type="text/css">
#floater {
position: absolute;
left: 500;
top: 146;
width: 125;
visibility: visible;
z-index: 10;
}</style>
<br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30">
<div align="center"></div></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td height="25" align="center" bgcolor="abb8d6"> <div align="center"> 
              <font size="2"><strong>修 改 行 事 历</strong></font> 
              <%
Set rs = Server.CreateObject("ADODB.Recordset")			 
sql = "SELECT * FROM xsl  ORDER BY id DESC " 
rs.OPEN sql,Conn,0,1
if rs.eof and rs.bof then
Response.Write"还没有纪录"
else
do while not rs.eof
%>
            </div></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"> 
            <%
Response.Write" <a class=bai1 href='modify_xsl2.asp?id="&rs("id")&"' >"&rs("xueqi")&"第"&rs("zhouci")&"周</a> <br>"
%>
          </td>
          <%
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td bgcolor="#F4f4f4">&nbsp;</td>
  </tr>
</table>
<div align="center"></div>
</body>
</html>

modify_xsl1.asp - 源码说明

本页面展示了「这是一个学生毕业时做的教务系统」中的 modify_xsl1.asp 源码文件，采用 ASP 编程语言编写，共 95 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与教务系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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