www.gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminDep.asp

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="AdminTop.asp"-->
<% Call  IsBrower() %>
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<table width="779" height="450" border="0" align="center" cellpadding="0" cellspacing="1" class="TableAll">
  <tr bgcolor="#FFFFFF">
    <td width="161" valign="top" bgcolor="#FFFFFF" class="TrBody"><!--#include file="AdminLeft.asp"-->
    </td>
    <td width="615" align="center" valign="top"><br>
      <br>
      <table width="90%"  border="0" cellpadding="0" cellspacing="1" class="TableAll">
        <tr>
          <td height="25" align="center" class="TrTop">增加专业</td>
        </tr>
        <tr>
          <td height="30" align="center" class="TrBody"><form action="" method="post" name="FrmSearch" id="FrmSearch" onSubmit="return Search()">
              <table  border="0" cellpadding="5" cellspacing="0" class="TrBody">
                <tr>
                  <td height="15" align="right">专业名称</td>
                  <td height="15"><input name="UserName" type="text" id="UserName" style="width:100px"></td>
                  <td>主任/负责人</td>
                  <td><input name="UserPwd" type="text" id="UserPwd2" style="width:100px" size="10"></td>
                  <td><input type="submit" name="Submit" value="增加">
                    <input type="reset" name="Submit2" value="重置"></td>
                </tr>
                <script language="javascript">
function Search()
{
if(FrmSearch.UserName.value==""){
alert('请输入专业名称!');
FrmSearch.UserName.focus();
return false;
}
if(FrmSearch.UserPwd.value==""){
alert('请输入主任/负责人!');
FrmSearch.UserPwd.focus();
return false;
}
return true;
}
function DeleteUser(UserName,UID)
{
if(confirm('确实要删除' + UserName + '专业吗?此操作不能恢复!'))
		{
		window.location.href='AdminDep.asp?UserName=' + UserName + '&DelID=' + UID;
		}
}
</script>
              </table>
            </form></td>
        </tr>
      </table>
      <br>
      <table width="90%"  border="0" cellpadding="0" cellspacing="1" class="TableAll">
        <tr>
          <td height="25" align="center" class="TrTop">系统专业列表</td>
        </tr>
        <tr>
          <td height="30" align="center" bgcolor="#FFFFFF"><table width="100%"  border="0" cellpadding="0" cellspacing="1" class="TableAll">
              <tr align="center" class="TrBody">
                <td width="7%">序号</td>
                <td width="12%" height="25">专业名称</td>
                <td width="21%">主任/负责人</td>
                <td width="9%">删除</td>
              </tr>
              <% Str="Select * From Xcdepartment"
			Set Rs=Conn.execute(Str)
			I=1
			Do while Not Rs.eof
		  %>
              <tr align="center" class="TrBody">
                <td><%=I%></td>
                <td height="25"><%=Rs("DepName")%></td>
                <td><%=Rs("Depmaster")%></td>
                <td><a href="#"  onClick="DeleteUser('<%=Rs("DepName")%>','<%=Rs("ID")%>');">删除</a></td>
              </tr>
              <%
		   I=I+1
			Rs.MoveNext
			Loop
			%>
            </table></td>
        </tr>
      </table>
      <p class="TrBody">&nbsp;</p></td>
  </tr>
</table>
<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserPwd=ReplaceBadChar(Request.Form("UserPwd"))

IF UserName<> "" And UserPwd <> "" Then
   	Call IsOpr()
	StrSql="Select * From XcDepartMent Where DepName='" & UserName & "'"
	Set Rsu=Conn.Execute(StrSql)
		IF Rsu.Eof Then
		'------------------------------------------
		StrSql="Insert Into XcDepartment(DepName,DepMaster) Values('"
		StrSql=StrSql & UserName & "','" & UserPwd & "')"
		Conn.execute(StrSql)
		'------------------------------------------
		Call UserOpr(" 增加专业:" & UserName)
        Call ShowMessAge("增加专业成功!","AdminDep.asp")
		Else
		ShowMess("专业名称已经存在,请更换名称!")
		End IF

End IF
'===========================================
IF Request.QueryString("DelID")<>"" then
Call IsOpr()
Str="Delete From XcDepartment where ID=" & Cint(request.QueryString("DelID"))
Conn.execute(Str)
Username=Request.QueryString("Username")
Call UserOpr(" 删除专业:" & UserName)
Call ShowMessAge("删除专业成功!","AdminDep.asp")
End if
%>
<!--#include file="Foot.asp"-->