?? xsl_show.asp
字號:
<%@ 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 where id="&request.querystring("id")
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 colspan="2"><%=rs("jyzx")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center"> <font color="#FF0000">教育要求</font></td>
<td colspan="2"><%=rs("jyyq")%></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" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" height="1" background="images/bgimg_left.gif" bgcolor="cccccc"></td>
<td height="1" bgcolor="cccccc"></td>
<td width="5" height="1" background="images/bgimg_right.gif" bgcolor="cccccc"></td>
</tr>
</table>
<!--#include file=include/bottom.asp -->
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -