?? delete.asp
字號:
<%@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> </p>
</div>
</body>
</html>
<%
rsdelete.Close()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -