📄 subject_setup.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<%
set rs= Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM subject ORDER BY id ASC"
rs.open sql,conn,1,1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>科目</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<LINK href="admin_style.css" type=text/css rel=stylesheet>
<script language="JavaScript">
function checktest(){
var strSubjectName=document.form1.Subject.value;
if(strSubjectName=="")
{
alert("考试科目名不能为空！");
document.form1.Subject.focus();
return false;
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<p>
<% if Request("Err")="Char" Then %>
<script language="JavaScript" type="text/JavaScript">
alert("科目名称中含有“!@#$%^&*()-+=,./?<>[]{}\|~“等非法字符，操作被取消！");
</script>
<%
end if
if Request("Err")="Exist" Then
%>
<script language="JavaScript" type="text/JavaScript">
alert("数据库中已存在此科目名称，操作被取消！");
</script>
<% End If %></p>
<br>
<br>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="22" valign="top" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)"><span class="style1"> </span><span class="topbg STYLE1"><strong>考试科目设置</strong></span></td>
</tr>
</table>
<br>
<TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=1 ></TD>
<td width="10" bgcolor="#f7f7f7"></td>
<TD bgcolor="#e6eeef"><form Name="form1" onSubmit="return checktest()" action="modi_subject.asp" method="post" >
<b>添加新考试科目：</b><font color="#FF0000"><b>
<input name="Subject" type="text" size="10">
<input type="submit" name="Submit" value="添加">
</b></font>
<input name="sub_insert" type="hidden" id="sub_insert" value="add">
</form>
<strong>已有的考试科目：</strong><br>
<% If Not rs.EOF Or Not rs.BOF Then %>
<% response.Write "<table border='0' cellspacing='0' cellpadding='0'><tr><br>"
i = 1
rs.MoveFirst
While (Not rs.EOF)
Response.write "<td Align='Center'><font color=red>" & rs.Fields.Item("subjectName").Value & "</font> </td>"
if (i)>0 and (i mod 12 =0) then response.write "</tr><tr>"
rs.MoveNext
i=i+1
Wend
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
rs.Requery
End If
response.Write "</tr></table>"
%>
<form name="form2" method="POST" action="modi_subject.asp">
<b>删除已有的考试科目：</b>
<select name="Subject">
<%
intTemp = 0
While (NOT rs.EOF)
intTemp=intTemp+1
%>
<option value="<%=(rs.Fields.Item("subjectname").Value)%>" selected><%=(rs.Fields.Item("SubjectName").Value)%></option>
<%
rs.MoveNext()
Wend
If (rs.CursorType > 0) Then
Rs.MoveFirst
Else
Rs.Requery
End If
%>
</select>
<% if intTemp>0 then %>
<input name="Submit" type="submit" value="删除">
<input name="del_sub" type="hidden" id="del_sub" value="del_sub">
<% end if %>
</form>
<br>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
<% If Rs.EOF And Rs.BOF Then %>
<p align="center">找不到任何考试科目，请添加考试科目！<br>
<br>
</p>
<% End If ' end Recordset1.EOF And Recordset1.BOF %> </td>
<TD width=1 ></TD>
</TR>
<TR>
<TD width=1 ></TD>
<td width="10" bgcolor="#f7f7f7"> </td>
<TD bgcolor="#e6eeef">
<p align="center">请将所有可能的考试科目都添加进去。总分字段不要设为“总分”，否则会出错。可设成“合计”等。</td>
<TD width=1 ></TD>
</TR>
<tr>
<TD height="3" colspan="4" ></TD>
</tr>
</TBODY>
</TABLE>
<p align="center"><a href="javascript:history.go(-1);">返回</a></p>
</BODY>
</HTML>
<%
Rs.Close()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -