📄 add_dagang.asp
字号:
<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<!--#INCLUDE FILE="../../../system/function.asp"-->
<% if session("user_type")<>"T" then
response.redirect "../../../index.asp"
end if
%>
<HTML>
<HEAD>
<TITLE> 教学大纲 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
</HEAD>
<BODY >
<h2 align="center">输入或修改教学安排</h2>
<%
dim lesson_id
lesson_id=session("lesson_id")
SQL="SELECT dagang FROM lesson"
SQL=SQL + " WHERE lesson_id = '" & lesson_id & "'"
SET RS=db.EXECUTE(SQL)
%>
<CENTER>
<form name=form1 method=post action="">
<TABLE border="0" width="90%">
<Tr bgcolor=#E9E9E9 align="center">
<TD bgcolor=#E9E9E9 height="100" valign="middle">
<%if not rs.bof and not rs.eof then%>
<textarea cols=80 rows=15 name="dagang" ><%=rs("dagang")%></textarea>
<%else%>
<textarea cols=80 rows=15 name="dagang" >系里教务通知</textarea>
<%end if%>
</TD>
</Tr>
</TABLE>
<p><input type=submit name=submit value=" 确 定 ">  <input type=submit name=submit value=" 取 消 ">
</form>
</CENTER>
<%
If request("submit")=" 取 消 " Then
response.redirect "index.asp?lesson_id=" &lesson_id
End If
if request("dagang")<>"" then
sql = "update lesson set dagang='" & myReplace(Request("dagang")) & "'"
sql =sql & " where lesson_id='" & session("lesson_id") & "'"
db.Execute(Sql)
db.close
set db=nothing
response.redirect "index.asp?lesson_id=" &lesson_id
end if
%>
<p>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -