📄 adddepartment.asp

📁 网络考试系统最终备份
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.inc"-->
<link rel="stylesheet" type="text/css" href="css.css">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="javascript">
function addit()
{

 adddep.action="adddept.asp";
 addd.submit();
}

function confirmit(myform,id)
{
 
  
  if (confirm("将删除该系部下的所有单位？"))
  {
      myform.action="departDel.asp?v_id="+id;
	  myform.submit();
  return true;
  }
  else
  {
  return;
  }

}
</script>
</head>

<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
  <tr>
    <td width="100%"><p>&nbsp;</p></td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3" height="20">
  <form method="POST"   name="adddep" action="adddepartment.asp" onSubmit="return addit(dep);">
    <tr>
      <td  nowrap bgcolor="#E1E1E1"><input type="submit" name="Submit" onClick="addit()" value="系部添加">
        学校：
	    <select size="1" name="scollege" onchange="this.form.submit();">
          <option value="-请选择院校-">-请选择院校-</option>
          <%
		  v_cid = request("scollege")
		  if v_cid = "-请选择院校-" or v_cid="" then
		sql = "select * from college_info"
		else
		sql = "select * from college_info where CollegeID <>"&v_cid
		end if
        set rs = server.CreateObject("adodb.recordset")
		rs.open sql,conn,3,2
		do while not rs.eof
		if not rs.eof then
		  
		%>
          <option  value="<%=rs("CollegeID")%>" ><%=rs("CollegeName")%></option>
          <%
		rs.movenext
		end if
		loop
		v_cid = request("scollege")

		if v_cid <> "-请选择院校-" and v_cid<>"" then
		
		sql = "select * from college_info where CollegeID = "&v_cid
        set rs = server.CreateObject("adodb.recordset")
		rs.open sql,conn,3,2
		%>
          <option value="<%=rs("CollegeID")%>" selected><%=rs("CollegeName")%></option>
          <%
		  rs.close
		set rs = nothing
		end if
		
		
		
		
		%>
      </select></td>
    </tr>
  </form>
</table>
<p></p>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
  <form name="depform" method="post" onSubmit="return submitit(this)">
    <tr>
      <td width="28%" align="left" bgcolor="#E1E1E1">&nbsp;<b>系部名称</b></td>
      <td width="28%" height="20" align="left" bgcolor="#E1E1E1"><strong>系部描述</strong></td>
      <td height="20" colspan="2" align="left" bgcolor="#E1E1E1"><strong>所属院校</strong></td>
    </tr>
	<%
	v_cid =request("scollege")
	if v_cid = "-请选择院校-" or v_cid ="" then 
	response.End()
	else

	'sql = "select * from department_info"
	sql = "select * from department_info where College_ID = "&v_cid
    set rs = server.CreateObject("adodb.recordset")
	rs.open sql,conn,3,2
	while not rs.eof
	if not rs.eof then
	%>
    <tr>
      <td   nowrap align="left"><%=rs("DepName")%></td>
      <td nowrap  align="left"><%=rs("DepDesc")%></td>
      <td  nowrap width="30%" align="left">
	  <%
	  sqlc = "select * from college_info where CollegeID ="&rs("College_ID")
	  set rsc =  server.CreateObject("adodb.recordset")
	  rsc.open sqlc,conn,3,2
	  if  not rsc.eof then
	  response.Write(rsc("CollegeName"))
	  end if
	
	  %>
	  </td>
      <td  nowrap width="14%" align="left"><a href="departedit.asp?collID=<%=rs("College_ID")%>&depaID=<%=rs("DepID")%>&collName=<%=rsc("CollegeName")%>&depaDesc=<%=rs("DepDesc")%>&depaName=<%=rs("DepName")%>">更改</a>/<a href="javascript:confirmit(depform,<%=rs("DepID")%>)">   删除</a></td>
    </tr>
   
	<%
	  rsc.close
	  set rsc = nothing
	rs.movenext
	end if
	wend
	rs.close
	set  rs = nothing
	end if
	%>
  </form>
</table>

</body>
</html>
⌨️ 快捷键说明

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