www.gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\saveInfo.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
<HEAD>
<TITLE>保存学生资料</TITLE>
<STYLE>
P{FONT-SIZE: 9pt}
.STYLE1 {
color: #FF0000;
font-weight: bold;
font-size: 16pt;
}
</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="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL
Dim StudentNum, StudentName, StudentSex, BirthDate, Department
Dim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, Remark
StudentNum = Trim(Request.Form("txtStudentNum"))
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 StudentNum = "" Or StudentName = "" Then
Response.Redirect "addInfo.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 = "SELECT student_num FROM students WHERE student_num='" & StudentNum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If Not rst.EOF Then
Response.Write "<P>学号“" & rst("student_num") & "”已经存在，请重新输入！</P>"
Else
sSQL = "INSERT into students(student_num, student_name, " & "student_sex, birthdate, department, speciality,"
sSQL = sSQL & "grade, class, home_addr, parent_name, "
sSQL = sSQL & "home_phone, remark) VALUES('"
sSQL = sSQL & StudentNum & "','" & StudentName & "','" & StudentSex & "','" & BirthDate & "','"
sSQL = sSQL & Department & "','" & Speciality & "','" & Grade & "','" & sClass & "','"
sSQL = sSQL & HomeAddr & "','" & ParentName & "','" & HomePhone & "','" & Remark & "')"
cnn.Execute sSQL, , adCmdText
%>
<HR NOSHADE SIZE = "1" COLOR = "red">
<P class="STYLE1">数据保存成功！</P>
<% End If %>
</DIV>
</BODY>
</HTML>