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"-->