admin_department.asp
来自「eayanQuery思燕大学成绩查询系统 版本 V1.6」· ASP 代码 · 共 335 行 · 第 1/2 页
ASP
335 行
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/md5.asp"-->
<!--#include file="../include/ReplaceHtml.asp"-->
<!--#include file="../include/PublicFunction.asp"-->
<!--#include file="../include/Session.asp"-->
<%
'强制浏览器重新访问服务器下载页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
'***************************
Dim Action
Action=request.QueryString("Action")
Select Case Action
Case "addDepartment"
Call addDepartment()
Case "showlist"
Call DepartmentList()
Case "Del_department"
Call Del_department()
Case "Edit_department"
Call Edit_department()
Case Else
Call Main(0)
End Select
Sub Main(Add_Or_Edit)
Dim Form_State 'Add_Or_Edit
'说明，0代表添加数据，1代表编辑现有数据
If Add_Or_Edit=0 then Form_State=0
If Add_Or_Edit=1 then
Form_State=1
Dim Edit_department_sql,Edit_department_rs
Call OpenConn()
Edit_department_sql="select * from [department] where department_id='"&request.QueryString("department_id")&"'"
Set Edit_department_rs=server.CreateObject("adodb.recordset")
Edit_department_rs.open Edit_department_sql,Initialize_Conn,1,3
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>admin_department.asp管理 </title>
<link href="images/my_style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>
<body background="images/admin_MainBg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="22%" height="44"> </td>
<td width="28%"> </td>
<td width="28%"> </td>
<td width="22%"> </td>
</tr>
<tr>
<td height="28"> </td>
<td align="center" colspan="2"><%call showDepartmentMenu()%></td>
<td> </td>
</tr>
<tr>
<td height="62"> </td>
<td align="center" colspan="2" rowspan="2">
<script language="javascript">
function CheckForm() {
if(myform.department_name.value == '') {
alert('请输入部门的名称！');
myform.department_name.focus();
return false;
}
if (myform.teacher_num.value!='' && (isNaN(myform.teacher_num.value) || myform.teacher_num.value<0))
{
alert("教师人数应填有效数字！");
myform.teacher_num.value="";
myform.teacher_num.focus();
return false;
}
if (myform.student_num.value!='' && (isNaN(myform.student_num.value) || myform.student_num.value<0))
{
alert("学生人数应填有效数字！");
myform.student_num.value="";
myform.student_num.focus();
return false;
}
if (myform.class_num.value!='' && (isNaN(myform.class_num.value) || myform.class_num.value<0))
{
alert("班级数目应填有效数字！");
myform.class_num.value="";
myform.class_num.focus();
return false;
}
if (myform.subject_num.value!='' && (isNaN(myform.subject_num.value) || myform.subject_num.value<0))
{
alert("专业数目应填有效数字！");
myform.subject_num.value="";
myform.subject_num.focus();
return false;
}
}
//-->
</script>
<form id="form1" name="myform" method="post" action="Admin_department.asp?action=addDepartment" onSubmit="return CheckForm()">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="31%" height="35"><div align="right">院系名称：</div></td>
<td width="34%"><input value="<% if Form_State=1 then response.Write(Edit_department_rs(1))%>" type="text" name="department_name" onkeyup="value=value.replace(/[ -~]/g,'')" onkeydown="if(event.keyCode==13)event.keyCode=9" /></td>
<td width="35%"><div align="left"><font color="red">*</font> 必填项目,只允许使用中文</div></td>
</tr>
<tr>
<td height="32"> <div align="right">教师人数：</div></td>
<td><input value="<% if Form_State=1 then response.Write(Edit_department_rs(2))%>" type="text" name="teacher_num" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/></td>
<td><div align="left">* 选填,只允许使用数字</div></td>
</tr>
<tr>
<td height="26"><div align="right">学生人数：</div></td>
<td><input value="<% if Form_State=1 then response.Write(Edit_department_rs(3))%>" type="text" name="student_num" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9" /></td>
<td><div align="left">* 选填,只允许使用数字</div></td>
</tr>
<tr>
<td height="37"><div align="right">班级数目：</div></td>
<td><input value="<% if Form_State=1 then response.Write(Edit_department_rs(4))%>" type="text" name="class_num" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/></td>
<td><div align="left">* 选填,只允许使用数字</div></td>
</tr>
<tr>
<td height="31"><div align="right">所开设专业数目：</div></td>
<td><input value="<% if Form_State=1 then response.Write(Edit_department_rs(5))%>" type="text" name="subject_num" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/></td>
<td><div align="left">* 选填,只允许使用数字</div></td>
</tr>
<tr>
<td height="31"><div align="right">
<% if Form_State=1 then
response.Write("<input type=""submit"" name=""Submit"" value=""完成编辑"" /></div></td>")
response.Write("<input type=""hidden"" name=""Edit_model"" value=""1"">")
response.Write("<input type=hidden name=department_id value="""&Edit_department_rs(0)&""">")
else
response.Write("<input type=""submit"" name=""Submit"" value=""确定添加""/></div></td>")
end if
%>
<td align="center"><input type="reset" name="Submit2" value="重新填写" /></td>
<td align="center"> </td>
</tr>
</table>
</form>
</td>
<td> </td>
</tr>
<tr>
<td height="129"> </td>
<td> </td>
</tr>
<tr>
<td height="153"> </td>
<td> </td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?