📄 deleteinfo1.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>删除学生资料</TITLE>
<STYLE>
P, TABLE, INPUT{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<%
If Session("UserName")="" Or Session("Level") < 2 Then
Response.Redirect "你没有访问本页面的权限！"
Response.End
End If
%>
<P><A HREF = "index.asp" >返回首页</A>|
<A HREF = "addInfo.asp" >添加资料</A>|
<A HREF = "editInfo1.asp" >修改资料</A>|
<A HREF = "browseInfo.asp" >查询资料</A></P>
<DIV ALIGN = "center">
<FORM METHOD = "post" ACTION = "deleteInfo1.asp">
<P>请输入学号：<INPUT TYPE = "text" NAME = "txtStuNum" SIZE="20">
<INPUT TYPE = "submit" VALUE = "提交" NAME = "btnSubmit"></P>
</FORM>
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn, rst, sSQL, StuNum
StuNum = Trim(Request.Form("txtStuNum"))
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
If StuNum <> "" Then
sSQL = "SELECT * FROM students WHERE student_num = '" & StuNum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If rst.EOF Then
%>
<P><FONT COLOR = "red">没有找到符合条件的记录！</FONT></P>
<% Else %>
<TABLE BORDER = "1">
<CAPTION><B>学号为“<% = StuNum %>”的学生资料如下：</B></CAPTION>
<TR>
<TD NumWRAP NOWRAP>学号：</TD><TD><% = rst("student_num") %></TD>
<TD>姓名：</TD><TD> <% = rst("student_name") %></TD>
<TD>性别：</TD><TD><% = rst("student_sex") %></TD>
</TR>
<TR>
<TD NOWRAP>出生日期：</TD><TD><% = rst("birthdate") %></TD>
<TD>所在院系：</TD><TD><% = rst("department") %></TD>
<TD>所在专业：</TD><TD><% = rst("speciality") %></TD>
</TR>
<TR>
<TD NOWRAP>年级：</TD><TD><% = rst("grade") %></TD>
<TD>班级：</TD><TD><% = rst("class") %></TD>
<TD>家长姓名：</TD><TD><% = rst("parent_name") %></TD>
</TR>
<TR>
<TD NOWRAP>家庭住址：</TD>
<TD COLSPAN = "3"><% = rst("home_addr") %></TD>
<TD>住宅电话：</TD><TD><% = rst("home_phone") %></TD>
</TR>
<TR>
<TD NOWRAP>备注：</TD>
<TD COLSPAN = "5"><% = rst("remark") %></TD>
</TR>
</TABLE>
<P><A HREF = "deleteinfo2.asp?stu_num=<% =rst("student_num") %>">
删除记录</A></P>
<% End If %>
<% End If %>
<DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -