📄 saveinfo.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>保存学生资料</TITLE>
<STYLE>
P{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<%
If Session("UserName")="" Or Session("Level") < 2 Then
Response.Write "你没有访问本页面的权限！"
Response.End
End If
%>
<P><A HREF = "index.asp">返回首页</A>|
<A HREF = "addinfo.asp">添加资料</A>|
<A HREF = "editinfo1.asp">修改资料</A>|
<A HREF = "deleteinfo1.asp">删除资料</A>|
<A HREF = "browseinfo.asp">查询资料</A></P>
<DIV ALIGN = "center">
<!-- #include virtual = "/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=SQLOLEDB;DATA SOURCE=g6;" & _
"UID=sa;;DATABASE=test"
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,grade,class,home_addr, parent_name,home_phone, remark) "
sSQL = sSQL & " VALUES('" & StudentNum & "','" & StudentName & "','" & _
StudentSex & " ',' " & BirthDate & " ', '" & Department & " ',' " & Speciality & " ' ,' " & Grade & " ','" & sClass & "','"
sSQL = sSQL & HomeAddr & "','" & ParentName & "','" & HomePhone & "','" & Remark & " ')"
cnn.Execute sSQL, , adCmdText
%>
<HR NOSHADE SIZE = "1" COLOR = "red">
<P><B>数据保存成功！</B></P>
<% End If %>
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -