📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -