用排序串字段實現樹狀結構（例程——刪除貼子）

2019-11-18 22:30:02

字體：大中小

來源：轉載

供稿：網友

程序名稱：delrec.asp
程序功能：刪除貼子（剪枝）


<%
flag=request("flag")
keyid=request("keyid")
pageno=request("pageno")
passWord=request.form("password")
if flag="1" then
  if password="你的管理密碼" then
   set guestconn=Server.CreateObject("ADODB.connection")
   guestconn.Open lybstr
   set cm = Server.CreateObject("ADODB.Command")
   Set cm.ActiveConnection = guestconn
   cm.CommandText = "lybdel"
   cm.CommandType = 4
   set p = cm.Parameters
   p.Append cm.CreateParameter("@keyid",3,1,4)
   cm("@keyid")=keyid
   cm.execute
   guestconn.close
   set guestconn=nothing
   response.redirect "index.asp?pageno="&pageno
  end if
end if
%>
<html>
<head><title>軟件使用留言薄管理</title>
<style TYPE="text/CSS">

</style>
</head>
<body topmargin=16 background='topbg.gif'>
<br><br><br>
<form name='manage' action='delrec.asp' method='post'>
<input type=hidden name='flag' value='1'>
<input type=hidden name='keyid' value='<% =keyid %>'>
<input type=hidden name='pageno' value='<% =pageno %>'>
<table width=80% align=center>
  <tr>
   <td align=right>請輸入管理密碼：</td>
  <td align=left><input type='password' name='password' size=20 class='submit'></td>
  <td align=center><input type='submit' value='刪除該留言' class='submit'></td>
</tr>
</table>
</form>

上一篇：用排序串字段實現樹狀結構（例程——保存貼子內容）

下一篇：用排序串字段實現樹狀結構（例程——連接字串）