?? index_homeworknotice.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body {
background-color: #B1DB99;
}
body,td,th {
font-size: 12px;
}
.STYLE1 { height:30;}
.STYLE2 {color: #FF0000;font-size: 14px}
.STYLE4 {font-size: 12px}
-->
</style>
</head>
<%
Dim rs ,strSql ,Num ,pageNum ,page ,loopNum
strSql = "SELECT * FROM HomeworkNotice ORDER BY AddTime DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,1,1
%>
<body topmargin="5" leftmargin="5">
<%
If rs.recordcount > 0 Then
rs.pagesize = 14
Num = rs.recordcount
pageNum = rs.pagecount
page = Request.QueryString("page")
If page <> "" Then
page = Cint(page)
ElseIf page < 1 Then
page = 1
Else
page =1
End If
If page < 1 then
page =1
End If
If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
page = 1
End If
rs.absolutepage = page
If page <> pageNum Then
LoopNum = rs.pagesize
Else
LoopNum = Num - (page-1)*rs.pagesize
End If
%>
<table width="610" >
<form id="form1" name="form1" method="post" action="">
<tr>
<td colspan="8" background="images/liebiao.gif" bgcolor="#00CC00"> <%If Session("UserType") = "教師"Then %>
<a href="Add_HomeworkNotice.asp">添加作業(yè)公告</a>
<%End If%></td>
</tr>
<tr>
<td colspan="8" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">總共找到 <%=Num%> 條記錄 <a href="index_HomeworkNotice.asp?page=1">首頁</a> <a href="index_HomeworkNotice.asp?page=<%=page-1%>">上一頁</a> <a href="index_HomeworkNotice.asp?page=<%=page+1%>">下一頁</a> <a href="index_HomeworkNotice.asp?page=<%=pageNum%>">尾頁</a> 頁次:<%=page%>/<%=pagenum%> 共<%=pageNum%>頁</div></td>
</tr>
<tr bgcolor="#009933">
<td width="22" > </td>
<td width="22" >ID</td>
<td width="163" bgcolor="#009933" >作業(yè)標題</td>
<td width="95">科目</td>
<td width="65">發(fā)布人</td>
<td width="123">發(fā)布時間</td>
<%
If strUserType = "教師" Then
%><td width="47">編輯</td>
<td width="37">刪除</td>
<%
End If
%>
</tr>
<% For i = 1 to LoopNum %>
<tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#FFFFCC'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td align="center"><img src="images/dot2.gif" width="10" height="8" /></td>
<td><%=rs("id").value%></td>
<td><a href="DetailHomeworkNotice.asp?ID=<%=rs("id").value%>"><%=rs("Title").value%></a></td>
<%
Dim rs1 ,strSujectName
Set rs1 = Server.CreateObject("ADODB.RecordSet")
If rs("SujectID") <> "" Then
strSql = "SELECT * FROM Suject WHERE ID = " & rs("SujectID").value
rs1.open strSql,conn,1,1
If Not rs1.EOF Then
strSujectName = rs1("Name").value
Else
strSujectName = ""
End If
End If
rs1.Close
%>
<td width="95"><a href="DetailSuject.asp?ID=<%=rs("SujectID").value%>"><%=strSujectName%></td>
<td><a href="DetailTeacher.asp?Name=<%=rs("AddMan").value%>"><%=rs("AddMan").value%></a></td>
<td><%=rs("AddTime").value%></td>
<%
If strUserType = "教師" Then
%>
<td><a href="Mod_HomeworkNotice.asp?ID=<%=rs("ID").value%>">編輯</a></td>
<td><a href="DelHomeworkNotice.asp?ID=<%=rs("ID").value%>" onclick='return confirm("您確定要刪除此公告嗎？")'><img src="images/del.gif" alt="刪除" width="20" height="20" border="0" /></a></td>
<%
End If
%>
</tr>
<% rs.movenext
Next %>
<tr>
<td colspan="9" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">總共找到 <%=Num%> 條記錄 <a href="index_HomeworkNotice.asp?page=1">首頁</a> <a href="index_HomeworkNotice.asp?page=<%=page-1%>">上一頁</a> <a href="index_HomeworkNotice.asp?page=<%=page+1%>">下一頁</a> <a href="index_HomeworkNotice.asp?page=<%=pageNum%>">尾頁</a> 頁次:<%=page%>/<%=pagenum%> 共<%=pageNum%>頁</div></td>
</tr></form>
</table>
<%
Else
%>
<table width="608" >
<tr>
<td colspan="4" background="images/Down_bg.gif">
<%If Session("UserType") = "教師"Then %>
<a href="Add_HomeworkNotice.asp">添加作業(yè)公告</a>
<%End If%></td>
</tr>
<tr bgcolor="#009933">
<td width="73">ID</td>
<td width="110">標題</td>
<td width="46">發(fā)布人 </td>
<td width="136">發(fā)布時間</td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF">沒有相關(guān)記錄！</td>
</tr>
<tr>
<td colspan="4"></td>
</tr>
</table>
<%
End If
Set rs = Nothing
Set rs1 = Nothing
Set conn = Nothing
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -