📄 updatestudent.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<LINK href="Css/style.css" rel=stylesheet>
<TITLE>学生信息修改</TITLE>
</HEAD>
<!--#include file="Include/Conn.Inc" -->
<!--#include file="Include/ControlDate.Inc" -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub SubmitOk_OnClick
Dim TheForm, Err_Code
Set TheForm = Document.FormIAE
If TheForm.StudentID.Value="" Then
MsgBox "编号不能为空，请输入一个数据。"
TheForm.StudentID.focus()
elseIf TheForm.StudentName.Value="" Then
MsgBox "姓名不能为空，请输入一个数据。"
TheForm.StudentName.focus()
elseIf Not IsNumeric(TheForm.CreditHour.Value) Then
MsgBox "已修学分输入错误，请输入一个整数。"
TheForm.CreditHour.focus()
else
TheForm.Submit
End If
End Sub
-->
</SCRIPT>
<% dim i, GoURL, Action, Rs, Sql, SeleSex(2)
dim StudentID, StudentName, Birthday, TheYear, TheMonth
dim TheDay, Sex, ClassID, TelePhone, CreditHour, Pwd
SeleSex(0) = "男"
SeleSex(1) = "女"
Action = Request("Action")
Oper = Request("Oper")
set Rs = Server.CreateObject("ADODB.Recordset")
GoURL = False
if Oper="Add" then ' 添加学生信息
StudentID = ""
StudentName = ""
TheYear = Year(date)
TheMonth = Month(date)
TheDay = Day(date)
Sex = ""
ClassID = ""
TelePhone = ""
CreditHour = 0
Pwd = ""
else ' 修改
StudentID = Request("StudentID")
StudentIDOld = Request("StudentIDOld") '可能修改了学号
if Oper="" then
StudentName = Request("StudentName")
TheYear = CInt(Request("TheYear"))
TheMonth = CInt(Request("TheMonth"))
TheDay = CInt(Request("TheDay"))
Birthday = CreateDate(TheYear, TheMonth, TheDay)
Sex = Request("Sex")
ClassID = Request("ClassID")
TelePhone = Request("TelePhone")
CreditHour = Request("CreditHour")
Pwd = Request("Pwd")
end if
select case Action
case "Update"
i=0
if StudentIDOld<>StudentID then
Rs.Open "Select StudentID From Student Where StudentID='"&StudentID&"'", Conn
if Rs.Eof then
i=1 ' 不存在，可以更新
else
StudentIDOld="该学生编号已存在"
end if
Rs.Close
else
i=1 ' 更新
end if
if i=1 then
Sql="Update Student set StudentID='"&StudentID&"', StudentName='"&StudentName&"'"
Sql=Sql&",Birthday='"&Birthday&"',Sex='"&Sex&"', ClassID='"&ClassID&"'"
Sql=Sql&",TelePhone='"&TelePhone&"',CreditHour='"&CreditHour&"',Pwd='"&Pwd&"'"
Sql=Sql&" Where StudentID='"&StudentIDOld&"'"
Conn.execute(Sql)
StudentIDOld=""
end if
case "Add"
Rs.Open "Select StudentID From Student Where StudentID='"&StudentID&"'", Conn
if Rs.Eof then
Sql="Insert Into Student Values('"&StudentID&"','"&StudentName&"'"
Sql=Sql&",'"&Sex&"','"&Birthday&"','"&ClassID&"'"
Sql=Sql&",'"&TelePhone&"',"&CreditHour&",'"&Pwd&"')"
Conn.execute(Sql)
else
StudentIDOld="该学号已存在"
end if
Rs.Close
case "Delete"
Sql="SELECT * FROM Student Where StudentID='"&StudentID&"'"
Rs.Open Sql, Conn
if Not Rs.Eof then
StudentID = Rs("StudentID")
StudentName = Rs("StudentName")
TheYear = Year(Rs("Birthday"))
TheMonth = Month(Rs("Birthday"))
TheDay = Day(Rs("Birthday"))
Sex = Rs("Sex")
ClassID = Rs("ClassID")
TelePhone = Rs("TelePhone")
CreditHour = Rs("CreditHour")
Pwd = Rs("Pwd")
end if
Rs.Close
Sql="Delete From Student where StudentID='"&StudentID&"'"
Conn.Execute Sql
end select
if Action <> "Delete" then
Sql = "SELECT * FROM Student Where StudentID='"&StudentID&"'"
Rs.Open Sql, Conn
StudentID = Rs("StudentID")
StudentName = Rs("StudentName")
TheYear = Year(Rs("Birthday"))
TheMonth = Month(Rs("Birthday"))
TheDay = Day(Rs("Birthday"))
Sex = Rs("Sex")
ClassID = Rs("ClassID")
TelePhone = Rs("TelePhone")
CreditHour = Rs("CreditHour")
Pwd = Rs("Pwd")
Rs.Close
end if
end if %>
<body bgcolor="#6fbfbf" TOPMARGIN="0" MARGINHEIGHT="0">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#816cdd">
<tr>
<td width="7%"> </td>
<td width="22%">您现在的位置：</td>
<td width="71%"><a href="default.asp"><font color=red><b> 学校教务管理系统</b></font></a>
=> 学生信息修改</td>
</tr>
</table>
<CENTER>
<form action="UpdateStudent.asp" method="Post" name="FormIAE">
<table width="77%" border="1" align=center bordercolor="#3399FF" bgcolor="#F2CFFC" cellpadding="0" cellspacing="0">
<tr> <td align=center colspan="2" height="19">
<input type=hidden name="StudentIDOld" value=<% =StudentID %> >
<% if Oper="Add" then
Response.Write("请添加学生信息")
elseif Oper="Update" then
Response.Write("请修改以下学生信息")
elseif Oper="Delete" then '删除学生信息
Response.Write("删除以下学生信息吗？")
else
if (Action="Update") Or (Action="Add") then
if StudentIDOld<>"" then
Response.Write(StudentIDOld)
else
Response.Write("以下学生信息已提交")
end if
elseif Action="Delete" then
Response.Write("以下学生信息已被删除")
end if
if (Action="Update") Or (Action="Add") Or (Action="Delete") then
GoURL = True
Response.Write("，按返回切换到查询界面")
end if
end if %> </td>
</tr>
<tr valign="middle">
<td height="28" align=center bgcolor=#FBE5CF><strong>学号</strong></td>
<td width="262" height="28">
<% if Session("GuestType")=6 then %>
<input type="Text" name="StudentID" size=16 maxlength=10 value=<% =StudentID %> >
<% Else %>
<input type="Hidden" name="StudentID" value=<% =StudentID %> >
<% Response.Write(StudentID)
End if %> </td>
</tr>
<tr valign="middle">
<td align=center bgcolor=#FBE5CF height="28"><strong>姓名</strong></td>
<td height="28"><input type="Text" name="StudentName" size=16 maxlength=10 value=<% =StudentName %> >
</td>
</tr>
<tr valign="middle">
<td align=center bgcolor=#FBE5CF height="27"><strong>所在班级</strong></td>
<td height="27"><select name="ClassID">
<% Rs.Open "SELECT ClassID, ClassName FROM Class", Conn
do while Not Rs.eof
if Rs("ClassID")=StudentID then %>
<option value=<% StudentName=Rs("ClassName"):Response.Write(Rs("ClassID"))%> selected>
<% =Rs("ClassName")%>
</option>
<% Else %>
<option value=<% =Rs("ClassID")%> > <%=Rs("ClassName")%> </option>
<% End if
Rs.MoveNext
loop
Rs.Close %>
</select></td>
</tr>
<tr valign="middle">
<td align=center bgcolor=#FBE5CF height="28"><strong>性别</strong></td>
<td height="28"> <select name="Sex">
<%for i =0 to 1
if SeleSex(i)=Sex then %>
<option selected> <% =SeleSex(i)%> </option>
<% Else %>
<option> <%=SeleSex(i)%> </option>
<% End if
Next %>
</select> </td>
</tr>
<tr valign="middle">
<td align=center bgcolor=#FBE5CF height="28"><strong>出生年月</strong></td>
<td height="28"><select name="TheYear">
<% for i=1930 to 2050
if TheYear=i then %>
<option selected> <% =i %> </option>
<% Else %>
<option> <% =i %> </option>
<% End if
Next %>
</select>
年
<select name="TheMonth">
<% for i=1 to 12
if TheMonth=i then %>
<option selected> <% =i %> </option>
<% Else %>
<option> <% =i %> </option>
<% End if
Next %>
</select>
月
<select name="TheDay">
<%for i=1 to 31
if TheDay=i then %>
<option selected> <% =i %> </option>
<% Else %>
<option> <% =i %> </option>
<% End if
Next %>
</select>
日 </td>
</tr>
<tr valign="middle">
<td align=center bgcolor=#FBE5CF width=85 height="28"><strong>联系电话</strong></td>
<td height="28"><input type="Text" name="TelePhone" size=20 maxlength=16 value=<% =TelePhone %> >
</td>
</tr>
<tr valign="middle">
<td ALIGN="center" BGCOLOR="#FBE5CF" height="28"><strong>已修学分</strong></td>
<td height="28">
<% if Session("GuestType")=6 then %>
<input type="Text" name="CreditHour" size=10 maxlength=6 value=<% =CreditHour %> >
<% Else %>
<input type="Hidden" name="CreditHour" value=<% =CreditHour %> >
<% Response.Write(CreditHour)
End if %>
</td></tr>
<tr valign="middle">
<td ALIGN="center" BGCOLOR="#FBE5CF" width="85" height="28"><strong>密码</strong></td>
<td height="28"><input type="password" name="Pwd" size=18 maxlength=16 value=<% =Pwd %> ></td>
</tr>
<tr>
<td valign="middle" align="center" colspan="2" height="44">
<%if GoURL = True then
if (Action="Add") then %>
<input type="Button" name="BtnAdd" onclick=top.location.href="UpdateStudent.asp?Oper=Add" value="添加">
<% end if
ReturnUrl="ShowStudent.asp"
if Action<>"Delete" then
ReturnUrl = ReturnUrl + "?SType=StudentName&SeachValue="&StudentName
end if %>
<input type="Button" name="BtnReturn" onclick=top.location.href="<%=ReturnUrl%>" value="返回">
<%else
SubmitButtonDisp = "提交"
if Oper="Add" then %>
<input type=hidden name="Action" value="Add">
<% Elseif Oper="Delete" then
SubmitButtonDisp = "删除" %>
<input type=hidden name="Action" value="Delete">
<% Else %>
<input type=hidden name="Action" value="Update">
<% end if %>
<input type="Button" name="SubmitOk" value="<% =SubmitButtonDisp %>">
<input type=reset name=res value="重置">
<%end if %> </td>
</tr>
</table>
</form>
</CENTER>
<%' Rs.Close '关闭连接
Set Rs=Nothing
conn.Close
Set conn=Nothing %>
</body> </html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -