deleteInfo2.asp ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) - ASP源码程序

gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\deleteInfo2.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
<HEAD>
<TITLE>删除成功</TITLE>
<STYLE>
P{FONT-SIZE: 9pt}
.STYLE1 {color: #FF0000}
</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>
<!-- #include  file="inc\adovbs.inc" -->
<%
Dim cnn, sSQL
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
sSQL = "DELETE * from students WHERE student_num='" & Request.QueryString("stu_num") & "'"
cnn.Execute sSQL, , adCmdText
%>
<DIV ALIGN = "center">
<HR NOSHADE SIZE="1" COLOR="red">
<P><B>学号为“<% = Request.QueryString("stu_num") %>”的学生<span class="STYLE1">资料已被删除</span>！</B></P>
</DIV>
</BODY>
</HTML>