delete.asp

来自「这是一个关于留言本的ASP程序设计,本人也是在网上找的,在这里提供大家学习用!」· ASP 代码 · 共 28 行

ASP
28
字号
<% option explicit%>
<%Response.Buffer=True%>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
	<title>删除留言</title>
</head>
<body>
	<form method="post" action="" name="form1">
		<p align="center">请输入删除密码:
		<input type="password" name="password">
		<input type="submit" value=" 确 定 ">
	</form>
	<%
	If Request("password")="123456" Then           '如果输入密码为123456,则执行删除
		Dim sql,guest_id
		guest_id=Request.QueryString("guest_id")            '返回要删除的留言记录号
		sql="Delete From guest Where guest_id =" & guest_id 
		db.Execute(sql)                                  '删除记录
		db.Close                                        '关闭对象
		Response.Redirect  "index.asp"                     '重定向回首页
	ElseIf Request("password")<>"" Then                     '如果输入密码有误,输出信息
		Response.Write "密码错误,请重新输入"
	End If
	%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?