📄 admin_studentinfo.asp

📁 源代码竟供大家参考
💻 ASP
字号:
<!--
=========================================================
超e工作室(http://www.chaoe.com)
用专业的心，做专业的事。。。
==========================================================
本系统是超e工作室专门为黑龙江广厦学院开发的高考录取程序，没有参照任何脚本,盗用必追究其法律责任。
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
作者：徐佳
QQ：95973
邮件：jia@chaoe.com
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-->
<%if session("adminuser")<>"" then%>
<!--#include file="conn.asp"-->
<%
   dim rs,rsbook
   dim sql,action,zj,jiondate
   dim i,j
%>
<html>
<head>
<title>黑龙江广厦学院高考录取查询系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="JavaScript">
function checkname()
{
  if (myform.studentname.value=="")
  {
   alert("请输入考生姓名！！");
  myform.studentname.focus();
  return false;
  }
  if (myform.zjnumber.value==""){
  alert("请输入准考证号！！");
  myform.zjnumber.focus();
  return false;
  }
 var j=myform.studentname.value.indexOf("=");
 if(j!=-1){
  alert("用户名中有非法字符");
  myform.studentname.focus();
  return false;
 }
var i=myform.studentname.value.indexOf("'");
if (i!=-1){
  alert("用户名中有非法字符");
  myform.studentname.focus();
  return false
}
var b=myform.zjnumber.value.indexOf("=");
if(j!=-1){
   alert("准考证号中有非法字符");
  myform.zjnumber.focus();
  return false;
}
var c=myform.zjnumber.value.indexOf("'");
if (c!=-1){
  alert("准考证号中有非法字符");
  myform.zjnumber.focus();
  return false;
}
   document.myform.submit();
}
</script>
<SCRIPT>
function showtime(divname)
{  
	var targetDiv =eval("document.all." + divname);
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
		}else{
			targetDiv.style.display="none";
	}
}
</SCRIPT>
<link href="ccs/style.css" rel="stylesheet" type="text/css"> 
<%
action=request("action")
select case action
case "add"
call add()
case "addto"
call addto()
case "update"
call update()
case "edit"
call edit()
case else
call main()
end select
%>

<body>
<%
sub main()
%>


<form action="admin_studentinfo.asp?action=addto" method="post" name="myform" id="myform">
  <br>
  <br>
  <table width="567" height="133" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#E1E1E1">
    <tr> 
      <td height="21" colspan="2">[<strong>增加考生信息</strong>]</td>
    </tr>
    <tr> 
      <td width="19%" height="20">考生姓名:</td>
      <td width="81%"><input name="studentname" type="text" id="studentname"></td>
    </tr>
    <tr> 
      <td height="20">准考证号:</td>
      <td><input name="zjnumber" type="text" id="zjnumber"></td>
    </tr>
    <tr> 
      <td>录取专业:</td>
      <td valign="top"> <table width="469" height="28" border="0" align="left" cellpadding="0" cellspacing="0">
        <%
	  set rsbook=server.createobject("Adodb.recordset")
	  sql="select * from bookclass"
	  rsbook.open sql,conn,1,1
	  if not rsbook.eof or not rsbook.bof then
	  do while not rsbook.eof %>          <tr>
            <td width="137" height="21"><input type="checkbox" name="bookclass" value="<%=rsbook("name")%>" onclick="showtime('div<%=rsbook("id")%>')"> 
        <%=rsbook("name")%> </td>
            <td width="332"> <DIV name="div<%=rsbook("id")%>" id="div<%=rsbook("id")%>" style="BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: black 1px solid; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; MARGIN-LEFT: 18px; BORDER-LEFT: black 1px solid;  COLOR: black; PADDING-TOP: 2px; WIDTH:313px;BORDER-BOTTOM: black 1px solid;display:none;BACKGROUND-COLOR: lightyellow">录取时间: 
 	<select name="<%=rsbook("name")%>" >
<%
yeari=cstr(year(now()))
for i=1990 to 2030
%>
<option value="<%=i%>" <%if yeari=cstr(i) then%>selected<%end if%> ><%=i%></option>
<%next%>
</select>
        年 
        <select name="<%=rsbook("name")%>" size="1" >
		<%monthi=cstr(month(now()))
		for i=1 to 12%>
          <option value="<%=i%>" <%if monthi=cstr(i) then%>selected<%end if%>><%=i%></option>
        <%next%>
		</select>
        月 <select name="<%=rsbook("name")%>" size="1">
		<%
		dayi=cstr(day(now()))
		for i=1 to 31%>
          <option value="<%=i%>" <%if dayi=cstr(i) then%>selected<%end if%>><%=i%></option>
        <%next%>
		</select>
        日 
        </div></td>
          </tr>        <%
	   rsbook.movenext
	   loop
	   else
	   Response.write "请先增加专业再增加考生信息"
	   end if
	   rsbook.close
	  %>  </table>
      </td>
    </tr>
    <tr align="center"> 
      <td height="23" colspan="2"><input type="button" name="Submit" value="增加" onclick="checkname()">
                                  <input type="reset" name="Submit2" value="重写"></td>
    </tr>
  </table>
</form>
<%end sub
sub addto()%>
<%studentname=request.Form("studentname")
  zjnumber=request.Form("zjnumber")%>
<br>
<br>
<br>
<table width="537" height="144" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#E1E1E1">
  <tr> 
    <td height="24" colspan="2">[<strong>考生信息</strong>]</td>
  </tr>
  <tr> 
    <td width="118" height="28">考生姓名：</td>
    <td width="406"><%=studentname%></td>
  </tr>
  <tr> 
    <td height="28">准考证号：</td>
    <td><%=zjnumber%></td>
  </tr>
  <tr> 
    <td height="28">录取专业及时间：</td>
    <td> 
      <%
		if request.form("bookclass")="" then
		response.write "<script language=javascript>"
		response.write "alert('请选择专业');"
		response.write "javascript:history.go(-1);"
		response.write "</script>"
		else
	  set rs=server.createobject("adodb.recordset")
 		sql="select * from studentinfo where zjnumber='"&trim(zjnumber)&"'"
		rs.open sql,conn,1,3
		if rs.eof or rs.bof then
		rs.addnew
		rs("studentname")=studentname
		rs("zjnumber")=zjnumber
		rs.update
		else
		 response.write "<script language=javascript>"
		 response.write "alert('已有此准考证号码不能再增加了！');"
		 response.write "javascript:history.go(-1);"
		 response.write "</script>"
		end if
		rs.close
		sql="select top 1 id from studentinfo order by id desc"
        set rs=conn.execute(sql)
		studentid=rs("id")
		rs.close
     for each str in request.form("bookclass")
        response.Write "<font color='red'>所录取的专业:</font>"&str &"  "
		zj=cdate(trim(replace (trim(request(str)),", ","-")))
		set rsbookclass=server.CreateObject("Adodb.recordset")
		sql="select * from bookinfo where bookclass='"&str&"' and studentid=" & cstr(studentid)
		rsbookclass.open sql,conn,1,3
		if rsbookclass.eof or rsbookclass.bof then
		rsbookclass.addnew
		rsbookclass("bookclass")=str
		rsbookclass("getbookdate")=zj
		rsbookclass("studentid")=studentid
		rsbookclass.update
		rsbookclass.close
		else
		rsbookclass.close
		 response.write "<script language=javascript>"
		 response.write "alert('此考生已经存在');"
		 response.write "javascript:history.go(-1);"
		 response.write "</script>"
		end if
		jiondate=year(zj)&"年"&month(zj)&"月"&day(zj)&"日"
		response.write  "<font color='red'>录取时间为：</font>"&jiondate&"<BR>"
   next

 end if
  %>
    </td>
  </tr>
  <tr align="right"> 
    <td height="28" colspan="2" class="tl150"><a href="admin_studentinfo.asp">返回</a></td>
  </tr>
</table>
 
<%end sub%>
<%closeconn%>
</body>
</html><%
else
 response.write "<script language=javascript>"
 response.write "alert('管理员操作超 时..........');"
 response.write "javascript:history.go(-1)"
 response.write "</script>"
end if%>
💿 文件大小 68 K
👤 上传用户 haorenkv3
📂 所属分类 *行业应用
🏷️ 相关标签

#源代码 #家
⌨️ 快捷键说明

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