xsl.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 192 行
ASP
192 行
<%@ Language=VBScript%>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.asp -->
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xsl order by zhouci DESC"
rs.Open rs.Source,conn,1,1
%>
<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>
<!--#include file=include/top.asp -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" rowspan="2" background="images/bgimg_left.gif"> </td>
<td height="25" valign="middle" bgcolor="#FFFFFF"> <p> 当前位置：<a href="../" class="bai1">首页</a>>>行事历</p></td>
<td width="1" valign="middle" bgcolor="ccccccccccc"></td>
<td width="566" height="25" valign="middle" bgcolor="#FFFFFF"> </td>
<td width="5" rowspan="2" background="images/bgimg_right.gif"> </td>
</tr>
<tr>
<td width="180" valign="top" bgcolor="#f4f4f4">
<table border="0" width="90%" align=center cellspacing="0" cellpadding="0" bgcolor="#F2F2F2">
<tr>
<td width="171" height="0" align="center" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="cccccc">
<tr>
<td height="25" align="center" bgcolor="f4f4f4"> <div align="left">
2004学年第二学期：
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM xsl where xueqi='2004学年第二学期' 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='xsl_show.asp?id="&rs("id")&"' >第"&rs("zhouci")&"周</a> <br>"
%>
</td>
<%
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
</tr>
</table>
<br> <div align="center"></div>
<div align="center"></div></td>
</tr>
</table>
<p> </p></td>
<td width="1" valign="top" bgcolor="#ccccccccc"></td>
<td width="566" valign="top" bgcolor="#FFFFFF">
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from xsl order by ID DESC"
rs.Open sql,conn,0,1
%>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="cccccc">
<tr bgcolor="#f4f4f4">
<td colspan="3">
<div align="center"><%=rs("xueqi")%>第<%=rs("zhouci")%>周</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center">
<p> <font color="#FF0000">教育中心</font></p></td>
<td><%=rs("jyzx")%></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center"> <font color="#FF0000">教育要求</font></td>
<td><%=rs("jyyq")%></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">
<div align="center"><font color="#FF0000">日期</font></div></td>
<td height="20">
<div align="center"><font color="#FF0000">内容</font></div></td>
<td height="20">
<div align="center"><font color="#FF0000">负责部门</font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" valign="middle">
<div align="center">星期一<br>
<%=rs("day1")%><br>
</div></td>
<td width="66%"><%=rs("xsl1")%></td>
<td width="18%" align="center"><%=rs("bm1")%> <div align="center"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle">
<div align="center">星期二<br>
<%=rs("day2")%></div></td>
<td><%=rs("xsl2")%></td>
<td align="center"><%=rs("bm2")%> <div align="center"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle">
<div align="center">星期三<br>
<%=rs("day3")%></div></td>
<td><%=rs("xsl3")%></td>
<td align="center"><%=rs("bm3")%> <div align="center"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle">
<div align="center">星期四<br>
<%=rs("day4")%></div></td>
<td><%=rs("xsl4")%></td>
<td align="center"><%=rs("bm4")%> <div align="center"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle">
<div align="center">星期五<br>
<%=rs("day5")%></div></td>
<td><%=rs("xsl5")%></td>
<td align="center"><%=rs("bm5")%> <div align="center"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="middle">
<div align="center">星期六<br>
<%=rs("day6")%></div></td>
<td><%=rs("xsl6")%></td>
<td align="center"><%=rs("bm6")%> <div align="center"></div></td>
</tr>
</table>
<p><br>
<br>
</p>
<p><br>
</p></td>
</tr>
</table>
<table width="780" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" height="1" background="images/bgimg_left.gif"></td>
<td height="1" bgcolor="cccccc"></td>
<td width="5" height="1" background="images/bgimg_right.gif"></td>
</tr>
</table>
<!--#include file=include/bottom.asp -->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?