📄 editinfo2.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
<HEAD>
<TITLE>保存学生资料</TITLE>
<STYLE>
P{FONT-SIZE: 9pt}
.STYLE1 {
color: #FF0000;
font-weight: bold;
}
</STYLE>
</HEAD>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<BODY>
<div align="center">
<%
If Session("UserName")="" Or Session("Level") < 2 Then
Response.Write "你无权访问本页面！"
Response.End
End If
%>
<img src="image/logo.gif" width="500" height="200">
</div>
<P align="center"><A HREF = "index.asp">返回首页</A>|
<A HREF = "addInfo.asp">添加资料</A>|
<A HREF = "editInfo.asp">修改资料</A>|
<A HREF = "deleteInfo.asp">删除资料</A>|
<A HREF = "browseInfo.asp">查询资料</A></P>
<DIV ALIGN = "center">
<!-- #include file="inc\adovbs.inc" -->
<%
Dim cnn, rst, sSQL
Dim StudentNum, StudentName, StudentSex, BirthDate, Department
Dim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, Remark
NewStuNum = Trim(Request.Form("txtStudentNum"))
OldStuNum = Trim(Request.Form("txtOldStuNum"))
StudentName = Trim(Request.Form("txtStudentName"))
StudentSex = Request.Form("optStudentSex")
BirthDate = Trim(Request.Form("txtBirthDate"))
Department = Trim(Request.Form("txtDepartment"))
Speciality = Trim(Request.Form("txtSpeciality"))
Grade = Trim(Request.Form("txtGrade"))
sClass = Trim(Request.Form("txtClass"))
ParentName = Trim(Request.Form("txtParentName"))
HomeAddr = Trim(Request.Form("txtHomeAddr"))
HomePhone = Trim(Request.Form("txtHomePhone"))
Remark = Trim(Request.Form("txtRemark"))
If NewStuNum = "" Or StudentName = "" Then
Response.Redirect "editInfo.asp"
End If
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
sSQL = "UPDATE students SET student_num='" & NewStuNum & "', student_name='"
sSQL = sSQL & StudentName & "', student_sex='" & StudentSex & "', birthdate='"
sSQL = sSQL & BirthDate & "', department='" & Department & "', speciality='"
sSQL = sSQL & Speciality & "',grade='" & Grade & "', class='" & sClass & "', home_addr='"
sSQL = sSQL & HomeAddr & "', parent_name='" & ParentName & "', home_phone='"
sSQL = sSQL & HomePhone & "', remark='" & Remark & "' "
sSQL = sSQL & " WHERE student_num='" & OldStuNum & "'"
cnn.Execute sSQL, , adCmdText
%>
<HR NOSHADE SIZE = "1" COLOR = "red">
<P class="STYLE1">所做的修改保存成功！</P>
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -