📄 studel.aspx
字号:
<%@ page language="vb" debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="vb" runat="server" >
sub Btn_del(sender as Object, e as Eventargs)
Dim conn as new OleDbConnection()
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
Server.MapPath("基本信息.mdb")
dim str as String = "delete from student where 学号 = '" & inf.text & " '"
conn.open()
Dim cmd As new OleDbcommand(str,conn)
if cmd.ExecuteNonQuery() = 1 then
showMeg.text = "删除成功!"
else
showMeg.text = "该数据不存在!"
end if
conn.Close()
end sub
</script>
<html>
<head><title>删除学生信息界面</title></head>
<body><center>
<H1 Align="Center">请 输 入 删 除 的 信 息</H1>
<Hr color="#003366" Border="2"><br>
<form runat="server">
输入要删除的学生学号:<Asp:TextBox Runat="Server" Id="inf" Columns="10"/>
<asp:button runat="server" Text="删除" OnClick="Btn_del" />
<br><br><br>
<asp:Label runat="server" ID="showMeg" />
</form></center></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -