gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\deleteInfo.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
<HEAD>
<TITLE>删除学生资料</TITLE>
<STYLE>
P, TABLE, INPUT{FONT-SIZE: 9pt}
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style3 {color: #FFFFFF}
.style4 {color: #003399}
</STYLE>
</HEAD>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<BODY>
<p>
<%
If Session("UserName")="" Or Session("Level") < 2 Then
Response.Redirect "你没有访问本页面的权限！"
Response.End
End If
%>
</p>
<p align="center"><img src="image/logo.gif" width="500" height="200"></p>
<P align="center"><A HREF = "index.asp" >返回首页</A>|
<A HREF = "addInfo.asp" >添加资料</A>|
<A HREF = "editInfo.asp" >修改资料</A>|
<A HREF = "browseInfo.asp" >查询资料</A></P>
<DIV ALIGN = "center">
<FORM METHOD = "post" ACTION = "deleteInfo.asp">
<table width="100%" border="0" align="center">
<tr>
<td width="830" bordercolor="#003399" bgcolor="#003366"><div align="center" class="style3">请输入学号：
<input type = "text" name = "txtStuNum" size="20">
<input type = "submit" value = "提交" name = "btnSubmit">
</div></td>
</tr>
</table>
</FORM>
<!-- #include file="inc\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=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
If StuNum <> "" Then
sSQL = "SELECT * FROM students WHERE student_num = '" & StuNum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If rst.EOF Then
%>
<P align="center"><FONT COLOR = "red">没有找到符合条件的记录！</FONT></P>
<% Else %>
<TABLE BORDER = "1" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
</TABLE>
<TABLE width="623" BORDER = "0" align="center" cellpadding="0" cellspacing="0" bordercolor="#003366" bgcolor="#CCCCCC">
<tr bgcolor="#003399">
<td colspan="6"><div align="center" class="style1">学号为“
<% = StuNum %>
”的学生资料如下： </div></td>
</tr>
<TR bgcolor="#CCCCCC">
<TD width="79" NOWRAP NumWRAP><span class="style4">学号：</span></TD>
<TD width="125"><span class="style4">
<% = rst("student_num") %>
</span></TD>
<TD width="79"><span class="style4">姓名：</span></TD>
<TD width="124"> <span class="style4">
<% = rst("student_name") %>
</span></TD>
<TD width="93"><span class="style4">性别：</span></TD>
<TD width="123"><span class="style4">
<% = rst("student_sex") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style4">出生日期：</span></TD>
<TD><span class="style4">
<% = rst("birthdate") %>
</span></TD>
<TD><span class="style4">所在院系：</span></TD>
<TD><span class="style4">
<% = rst("department") %>
</span></TD>
<TD><span class="style4">所在专业：</span></TD>
<TD><span class="style4">
<% = rst("speciality") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style4">年级：</span></TD>
<TD><span class="style4">
<% = rst("grade") %>
</span></TD>
<TD><span class="style4">班级：</span></TD>
<TD><span class="style4">
<% = rst("class") %>
</span></TD>
<TD><span class="style4">家长姓名：</span></TD>
<TD><span class="style4">
<% = rst("parent_name") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style4">家庭住址：</span></TD>
<TD COLSPAN = "3"><span class="style4">
<% = rst("home_addr") %>
</span></TD>
<TD><span class="style4">住宅电话：</span></TD>
<TD><span class="style4">
<% = rst("home_phone") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style4">备注：</span></TD>
<TD COLSPAN = "5"><span class="style4">
<% = rst("remark") %>
</span></TD>
</TR>
</TABLE>
<P align="center"><A HREF = "deleteInfo2.asp?stu_num=<% =rst("student_num") %>">
删除记录</A></P>
<% End If %>
<% End If %>
<DIV>
</BODY>
</HTML>