?? detailhomeworknotice.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" -->
<%
Dim strID ,strSql ,rs
strID = Request.QueryString("ID")
If strID & "" = "" Then
Response.Write("參數錯誤！")
Response.End
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT * FROM HomeworkNotice WHERE ID ="& strID
rs.open strSql,conn,1,1
If rs.EOF Then
Response.Write("對不起，無此作業公告！")
Response.End
End If
%>
<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;
}
.STYLE2 {font-size: 14px}
-->
</style></head>
<body leftmargin="5" topmargin="5">
<table width="613">
<tr bgcolor="#CC9900">
<td colspan="5" background="images/Down_bg.gif" bgcolor="#CC9900"><div align="center" class="STYLE2">作業公告詳細信息</div></td>
</tr>
<tr bgcolor="#66C06D">
<td>作業標題：<%=rs("Title").value%></td>
<%
Dim rs1
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
End If
%>
<td width="119">科目：<%If rs("SujectID") <> "" And Not rs1.EOF Then %><%=rs1("name")%><%End If%></td>
<td width="119">發布人：<%=rs("Addman").value%></td>
<td colspan="2">發布時間：<%=rs("AddTime").value%></td>
</tr>
<tr bgcolor="#66C06D">
<td colspan="6" bgcolor="#FFFFFF"><div align="center">內容</div>
<%=rs("Content").value%></td>
</tr>
<tr bgcolor="#66C06D">
<td colspan="3" width="300"> </td>
<td width="200" colspan="2"><div align="center"><a href="index_HomeworkNotice.asp">返回</a></div></td>
</tr>
<tr bgcolor="#CC9900">
<td colspan="5" background="images/Top_bg.gif"> </td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -