📄 gz-3.asp
字号:
<% Option Explicit
response.buffer=true
%>
<body bgcolor="pink">
<center>
<%
'以下连上数据库，建立一个Connection对象实例db
dim db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("gz.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
'以下删除记录，注意这里是由6-1.asp传过来的要删除的记录的记录编号
Dim varid,strSql
varid=Request.QueryString("id")
%>
<table border=1 width=60%><tr><td align=center>
<form action="" method=post>
<p>请输入删除密码
<p><input type=password name="pass">
<p><input type=submit name="fs1" value=" 确定删除 ">
<input type=submit name="fs2" value=" 取消删除 ">
<input type=submit name="fs3" value=" 返回首页 ">
<p>
</form>
</td></tr></table>
<p>
<%
if request.form("fs1")<>"" then
if request.form("pass")="123" then
strSql="delete from gz where id=" & varid
db.Execute(strSql) '这里利用Execute方法，删除记录
response.write "成功删除"
else
response.write "密码错误"
end if
end if
if request.form("fs2")<>"" or request.form("fs3")<>"" then
response.redirect "gz-1.asp"
end if
%>
</center>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -