delete.asp

来自「用asp写的关于亚运会的网页」· ASP 代码 · 共 32 行

ASP
32
字号
<%@LANGUAGE="VBSCRIPT"%>
<%
session("id")=request("id")
dim cn1
set cn1 = server.CreateObject("ADODB.Connection")
set rsdelete = Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="dsn=asp"
cn1.Open 
rsdelete.LockType = 3
sql = "SELECT * FROM table_liuyan WHERE ID = " & clng(session("id"))
rsdelete.Open sql,cn1
rsdelete.delete
%>
<html>
<head>
<title>删除留言</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"> 
  <p><img src="images/success.gif" width="200" height="256"> </p>
  <form name="form1"action="admin.asp">
    <input type="submit" name="Submit" value="确定">
  </form>
  <p>&nbsp;</p>
</div>
</body>
</html>
<%
rsdelete.Close()
%>

⌨️ 快捷键说明

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