www.gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminInStu.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">
<script language="javascript">
		function openChild(webname,k) 
{ 
  var picname=window.showModalDialog(webname,window,"dialogWidth:350px;status:no;dialogHeight:110px"); 
  if(k == 1)//判断是否刷新 
 { 
 if(picname!=undefined)
document.Frm.UserPic.value=picname;
}
 } 

</script>
<table width="779" height="450" border="0" align="center" cellpadding="0" cellspacing="1" class="TableAll">
  <tr bgcolor="#FFFFFF">
    <td width="161" valign="top" class="w9pt"><!--#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="Frm" id="Frm" onSubmit="return Search();">
              <table  border="0" cellpadding="5" cellspacing="1" class="TableAll">
                <tr class="TrBody">
                  <td align="right">姓名</td>
                  <td><input name="UserName" type="text" id="UserName" style="width:100px ">
                      <font color="#FF0000">*</font> </td>
                  <td>笔名</td>
                  <td><input name="UserPenName" type="text" id="UserPenName" style="width:100px "></td>
                </tr>
                <tr class="TrBody">
                  <td align="right">年龄</td>
                  <td><input name="UserAge" type="text" id="UserAge" style="width:100px "></td>
                  <td>性别</td>
                  <td><select name="UserSex" id="UserSex" style="width:100px ">
                      <option selected>男</option>
                      <option>女</option>
                    </select></td>
                </tr>
                <tr class="TrBody">
                  <td align="right">学历</td>
                  <td><select name="UserEdu" id="UserEdu" style="width:100px ">
                      <option>小学</option>
                      <option>初中</option>
                      <option>高中</option>
                      <option selected>大专</option>
                      <option>本科</option>
                      <option>其他</option>
                    </select></td>
                  <td>类型</td>
                  <td><select name="UserType" id="UserType" style="width:100px ">
                      <option selected>毕业</option>
                      <option>结业</option>
                      </select></td>
                </tr>
                <tr class="TrBody">
                  <td align="right">专业</td>
                  <td><select name="XcDepID" id="select2" style="width:100px" >
                      <% Str="Select * From XcDepartMent"
			Set Rs=Conn.execute(Str)
			Do while Not Rs.eof
		    Response.Write("<option >" & Rs("DepName") & "</option>")
			Rs.MoveNext
			Loop
			%>
                    </select></td>
                  <td>班级</td>
                  <td><select name="XcClass" id="select2" style="width:100px" >
                      <% Str="Select * From XcClass"
			Set Rs=Conn.execute(Str)
			Do while Not Rs.eof
		    Response.Write("<option >" & Rs("ClassName") & "</option>")
			Rs.MoveNext
			Loop
			%>
                    </select>
                  </td>
                </tr>
                <tr class="TrBody">
                  <td align="right">学号</td>
                  <td><input name="UserNum" type="text" id="UserNum" style="width:100px ">
                      <font color="#FF0000">*</font></td>
                  <td>电话</td>
                  <td><input name="UserTel" type="text" id="UserTel" style="width:100px "></td>
                </tr>
                <tr class="TrBody">
                  <td align="right">学制</td>
                  <td><select name="UserTest" id="UserTest" style="width:100px ">
                      <option selected>一年</option>
                      <option>一年半</option>
                      <option>两年</option>
                      <option>两年半</option>
                      <option>三年</option>
                      <option>三年半</option>
                      <option>四年</option>
                    </select></td>
                  <td>照片</td>
                  <td><input name="UserPic" type="text" id="UserPic"  value="Upload/empty.jpg" maxlength="100">
                    <input type="button" name="Submit3" value="上传" onClick="openChild('UpLoadPick.asp',1);"></td>
                </tr>
                <tr class="TrBody">
                  <td align="right">家庭住址</td>
                  <td colspan="3"><input name="UserAddr" type="text" id="UserAddr" size="50"></td>
                </tr>
                <tr class="TrBody">
                  <td align="right">备注</td>
                  <td colspan="3"><textarea name="UserNote" cols="60" rows="5" id="UserNote"></textarea></td>
                </tr>
                <tr align="center" class="TrBody">
                  <td colspan="4"><input type="submit" name="Submit" value="开始添加">
                     
                    <input type="reset" name="Submit2" value="重新填写"></td>
                </tr>
                <script language="javascript">
function Search()
{
if(Frm.UserName.value==""){
alert('请输入学生姓名!');
Frm.UserName.focus();
return false;
}
if(Frm.UserNum.value==""){
alert('请输入学生学号!');
Frm.UserNum.focus();
return false;
}
return true;
}
</script>
              </table>
            </form></td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
</table>
<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserNum=ReplaceBadChar(Request.Form("UserNum"))
'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr)
IF UserName<> "" And UserNum <> "" Then
UserPenName=ReplaceBadChar2(Request.Form("UserPenName"))
UserAge=ReplaceBadChar2(Request.Form("UserAge"))
UserSex=ReplaceBadChar2(Request.Form("UserSex"))
UserEdu=ReplaceBadChar2(Request.Form("UserEdu"))
UserType=ReplaceBadChar2(Request.Form("UserType"))
UserTest=ReplaceBadChar2(Request.Form("UserTest"))
UserTel=ReplaceBadChar2(Request.Form("UserTel"))
UserPic=Request.Form("UserPic")
UserNote=ReplaceBadChar2(Request.Form("UserNote"))
UserAddr=ReplaceBadChar2(Request.Form("UserAddr"))
Udep=ReplaceBadChar2(Request.Form("XcDepID"))
Uclass=ReplaceBadChar2(Request.Form("XcClass"))
'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr & Udep & UClass)
	Call IsOpr()
	StrSql="Select * From XcClass Where ClassName='" + Uclass + "'"
	RsClass=Conn.execute(StrSql)
	UserIn=RsClass("Intime")
	UserOut=RsClass("Outtime")
	'Response.Write(UserIN)
	
	StrSql="Select * From XcUserInfo Where UNumber='" & UserNum & "'"
	Set Rsu=Conn.Execute(StrSql)
		IF Rsu.Eof Then
		'------------------------------------------
		StrSql="Insert Into XcUserInfo(UserName,UNumber,PenName,Usex,Uage,UTel,UAddr,Udep,UClass,Edu,EduType,Pic,UOther,Intime,OutTime,UserTest) Values('"
		StrSql=StrSql & UserName & "','" & UserNum & "','" & UserPenName & "','" & UserSex & "','"
		StrSql=StrSql & UserAge & "','" & UserTel & "','" & UserAddr & "','" &  UDep & "','" & UClass & "','" &  UserEdu & "','" 
		StrSql=StrSql & UserTYpe & "','" &  UserPic & "','" &  UserNote & "','" & UserIn & "','" & UserOut & "','" & UserTest & "')"
		'Response.Write(StrSql)
		Conn.execute(StrSql)
		'------------------------------------------
		Call UserOpr(" 增加学生:" & UserName)
        Call ShowMessAge("增加学生成功!","AdminInstu.asp")
		Else
		ShowMess("学生学号存在,请选择其他的学生学号!")
		End IF

End IF
'===========================================

%>
<!--#include file="Foot.asp"-->