📄 editstudent.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>EditStudent</title>
<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"--><LINK href="style.css" type="text/css" rel="stylesheet">
</HEAD>
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim stuc_Class,error_Class,gid,gname,ggender,ggrade,gclass,Action
Set stuc_Class = New StudentClass
Set error_Class = New ErrorClass
Action = "" '标识用户是否提交
Action = Trim(Request.QueryString("action"))
gid = Trim(Request.QueryString("id"))
If Action <> "" Then
If getForm() = 1 Then
Call stuc_Class.updateStudent(gid,gname,ggender,ggrade,gclass)
If ERR.number <> 0 Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "更新数据时失败<br>"
Call error_Class.showMessage("Manage.asp","失败")
Else
error_Class.Message = error_Class.Message & "更新学生成功<br>"
Call error_Class.showMessage("Manage.asp","成功")
End If
Else
Call error_Class.showMessage("Manage.asp","输入有误")
End If
Else
If gid<>"" Then
Call stuc_Class.getStudentInf(gid,1)
If not stuc_Class.dbc_Class.Rs.EOF Then
While not stuc_Class.dbc_Class.Rs.EOF
gname = stuc_Class.dbc_Class.Rs("name")
ggender = stuc_Class.dbc_Class.Rs("gender")
ggrade = stuc_Class.dbc_Class.Rs("grade")
gclass = stuc_Class.dbc_Class.Rs("class")
stuc_Class.dbc_Class.Rs.MoveNext()
Wend
End If
stuc_Class.dbc_Class.CloseConn()
End If
End If
'功能：取得用户输入的信息
Function getForm()
gid = trim(Request.Form("StudentID"))
gname = trim(Request.Form("StudentName"))
ggender = trim(Request.Form("Gender"))
ggrade = trim(Request.Form("Grade"))
gclass = trim(Request.Form("Class"))
If gid = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "学号不能为空！<br>"
End If
If gname = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "学生姓名不能为空！<br>"
End If
If ggrade = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "年级不能为空！<br>"
End If
If gclass= "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "班级不能为空！<br>"
End If
If error_Class.Founderr = True Then
getForm = 0
Else
getForm = 1
End If
End Function
%>
<body>
<br>
<br>
<br>
<form id="form1" name="form1" action="EditStudent.asp?action=1" method="post">
<TABLE class="style1" cellSpacing="0" cellPadding="0" width="700" align="center" border="1">
<TR>
<TD align="center"><IMG src="image/toptitle.jpg"></TD>
</TR>
<TR>
<TD align="center" bgColor="#ff9933">编辑学生信息
</TD>
</TR>
<TR>
<TD align="center"><br>
<TABLE WIDTH="400" BORDER="1" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD>学号：</TD>
<TD><INPUT id="StudentID" type="text" name="StudentID" value=<%=gid%>></TD>
</TR>
<TR>
<TD>姓名：</TD>
<TD><INPUT id="StudentName" type="text" name="StudentName" value=<%=gname%>></TD>
</TR>
<TR>
<TD>性别：</TD>
<TD> <INPUT id="Radio1" type="radio" value="1" name="Gender" <%If ggender="男" Then%>checked<%End If%>>男
<INPUT id="Radio2" type="radio" value="0" name="Gender" <%If ggender="女" Then%>checked<%End If%>>女</TD>
</TR>
<TR>
<TD>年级：</TD>
<TD><INPUT id="Grade" type="text" name="Grade" value=<%=ggrade%>></TD>
</TR>
<TR>
<TD>班级：</TD>
<TD><INPUT id="Class" type="text" name="Class" value=<%=gclass%>></TD>
</TR>
<TR>
<TD colspan="2" align="center"><INPUT id="Submit1" type="submit" value="提 交" name="Submit1" class="style1"> <FONT face="宋体">
</FONT><INPUT id="Reset1" type="reset" value="重 填" name="Reset1" class="style1"></TD>
</TR>
</TABLE>
<br>
</TD>
</TR>
<TR>
<TD align="left" bgColor="#ff9930"> <FONT face="宋体"><IMG height="25" src="image/29.gif" width="30" border="0">
<INPUT class="style1" id="Button2" onclick="javascript:window.open('message.asp','message')"
type="button" value="留言本" name="message"> </FONT> </TD>
</TR>
</TABLE>
</form>
<hr width="700" color="#666666" SIZE="1">
<P align="center"><FONT size="2">程序设计——<A href="mailto:ymhdhlf@163.com">黄 雷</A></FONT></P>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -