gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\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>