📄 add_homeworknotice.asp
字号:
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<style type="text/css">
<!--
.STYLE9 {color: #003300; font-size: 12px; }
body,td,th {
font-size: 12px;
}
.STYLE10 {font-size: 14px}
-->
</style>
<SCRIPT language=JavaScript>
function CheckValue(thisform)
{
if (thisform.Name.value.length == 0){
alert ('请输入作业标题名。');
return false;
}
if (thisform.Name.value.length > 200){
alert ('标题过长。');
return false;
}
if (thisform.Content.value.length > 1500){
alert ('内容过长。');
return false;
}
if (thisform.Suject.value.length == 0){
alert ('请选择课程名。');
return false;
}
else {
thisform.submit();
}
}
</SCRIPT>
<body bgcolor="#B1DB99" topmargin="5" leftmargin="5">
<table width="324" border="0" align="left">
<form id="form1" name="form1" method="post" action="addHomeworkNotice.asp" 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"> </td>
</tr>
<tr bgcolor="#66C06D">
<td width="78"><div align="right">课程名： </div></td>
<td width="236">
<select name="SujectID">
<%
Dim rs ,strSql
Set rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT * FROM Suject ORDER BY Name ASC"
rs.open strSql,conn,1,1
%>
<%
Do While Not rs.EOF
%>
<option value="<%=rs("ID").Value%>" ><%=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" />
</label></td>
</tr>
<tr bgcolor="#66C06D">
<td height="17" bgcolor="#66C06D"><div align="right"><span class="STYLE9">内容： </span></div></td>
<td><textarea name="Content" cols="30" rows="6"></textarea></td>
</tr>
<tr bgcolor="#66C06D">
<td height="15" 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/Down_bg.gif"> </td>
</tr> </form>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -