?? managetutorial.asp
字號:
<%if session("login")="" or session("identity")<>"teacher" then
response.redirect "index.asp"
end if%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
<%userid=request("userid")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from tutorial where teacher="&userid&" order by ID"
set rs=conn.execute(sql)
if rs.eof then
%>
<center><font color="#FF0000" size="4"><b> 尚 未 給 您 指 定 任 何 教 程</b></font></center><p><center><b><font size="4">返回請點擊<a href="index.asp">這里！</a></font></b></center>"
<%
else
Do While Not rs.Eof %>
<div align="left">
<TABLE border=1 bgcolor="#e6e5b8" borderColorDark=#ffffff borderColorLight=#660066 cellPadding=5 cellSpacing=0 width="82%" height="179">
<TBODY>
<TR align=middle>
<TD height="1" align="center" bgcolor="#8CAAE7" width="90%" valign="middle" colspan="3"><%=rs("rule")%> <%=rs("title")%></TD>
</TR>
<TR align=middle>
<TD height="1" align="center" bgcolor="#E6E5B8" width="52%" valign="middle">
<font color="#FF0000">『教程信息』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="7%" valign="middle">
<font color="#FF0000">『教程說明』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="8%" valign="middle">
<font color="#FF0000">『教程設定』</font>
</TD>
</TR>
<form method="POST" action="updatetutorial.asp?id=<%=rs("ID")%>&userid=<%=rs("teacher")%>" name="addbook" onsubmit="return checkcontent()">
<TR align=middle>
<TD height="142" align="center" bgcolor="#DEE3F7" width="52%" valign="middle">
章節：<input type="text" name="chapter" size="17" class="td2" value="<%=rs("rule")%>">
<p>
標題：<input type="text" name="title" size="17" class="td2" value="<%=rs("title")%>">
</p>
</TD>
<TD height="142" align="center" bgcolor="#DEE3F7" width="7%" valign="middle">
<textarea rows="8" name="content" cols="22" class="td2" wrap=hard><%=rs("describe")%></textarea> </TD>
<TD height="142" align="center" bgcolor="#DEE3F7" width="8%" valign="middle">
<input type="submit" value="提交更改" name="B1">
<p><input type="reset" value="全部重寫" name="B2">
</p>
</TD>
</TR>
</TBODY></TABLE>
</div></form><br>
<%rs.MoveNext
Loop
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -