📄 delete.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
sub page_load()
dim delid as string =request.querystring("id")
dim conn as oledbconnection
dim sql as string
sql="delete * from notice where id="&delid
conn=new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source="+Server.MapPath("notice.mdb"))
dim cmd as oledbcommand = new oledbcommand(sql,conn)
conn.open()
cmd.executenonquery()
conn.close()
label1.text="删除成功!"
end sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<div align="center"><asp:Label id="Label1" runat="server"></asp:Label>
</div>
<div align="center">
<asp:HyperLink id="HyperLink1" runat="server" NavigateUrl="more.aspx">返回管理</asp:HyperLink>
</div>
<!-- Insert content here -->
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -