📄 mod_homeworknotice.asp

📁 网络教学管理系统
💻 ASP
字号:
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<!--#include file = "inc/conn.asp" -->
<%
	Dim strID ,rs ,srtSql ,strTitle ,strContent ,strSujectID 
	strID = Request.QueryString("ID")
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	strSql = "SELECT * FROM HomeworkNotice WHERE ID = "& strID
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,1,1
	If Not rs.EOF Then
		strTitle = rs("Title").value
		strContent = rs("Content").value
		strSujectID = rs("SujectID").value
		rs.Close

%>


<style type="text/css">
<!--
.STYLE9 {color: #003300; font-size: 14px; }
.STYLE10 {font-size: 14px}
-->
</style>
<SCRIPT language=JavaScript>
	function CheckValue(thisform)
	{

		if (thisform.Name.value.length == 0){
		alert ('请输入作业标题名。');
		}
		if (thisform.Suject.value.length == 0){
		alert ('请输入课程名。');
		}
		
		if (thisform.Name.value.length > 200){
		alert ('标题过长。');
		}
		if (thisform.Content.value.length > 1500){
		alert ('内容过长。');
		}
		
		else {
		
		thisform.submit();
		}
	}
	</SCRIPT>
<body bgcolor="#B1DB99" topmargin="5" leftmargin="5">
<table width="331" border="0" align="left">
  <form id="form1" name="form1" method="post" action="ModHomeworkNotice.asp?ID=<%=strID%>" onSubmit="CheckValue(this);return false">
  <tr>
    <td colspan="2" align="center"><span class="STYLE10">编辑作业公告</span></td>
  </tr>
  <tr>
    <td colspan="2" background="images/Down_bg.gif">&nbsp;</td>
    </tr>
  <tr bgcolor="#66C06D">
    <td width="94"><div align="right">课程名：</div></td>
    <td width="251">
	  <select name="SujectID">
	<%
	strSql = "SELECT * FROM Suject ORDER BY Name ASC"
	rs.open strSql,conn,1,1
	%>
	<%
			Do While Not rs.EOF
	%>
			<option value="<%=rs("ID").Value%>" <%If rs("ID").value = strSujectID Then%> selected="selected" <%End If%>><%=rs("name").Value%></option>
	<%
			rs.movenext
			loop
			rs.close
	%>
     </select></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="17"><div align="right"><span class="STYLE9">作业标题：</span></div></td>
    <td><label>
    <input type="text" name="Name" value=<%=strTitle%> />
</label></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="17" bgcolor="#66C06D"><div align="right"><span class="STYLE9">内容:&nbsp;</span></div></td>
    <td><textarea name="Content" cols="30" rows="6"><%=strContent%></textarea></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="49" colspan="2" align="center">
      <input type="hidden" name="Addman" value=<%=Session("UserName")%>>
        <input name="清空" type="reset"  value="清空" />
		<input type="submit" name="Submit2" value="修改"  />
</td>
  </tr>   
    <tr>
    <td colspan="2" background="images/Top_bg.gif" height="16"></td>
    </tr>
   </form>
</table>
<%
	Else
		Response.Write("参数错误！")
		Response.End
	End IF
	
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -