用排序串字段实现树状结构（例程——删除贴子）

　2000-08-08 10:08:21　来源：WEB开发网　　　

核心提示：程序名称：delrec.asp程序功能：删除贴子（剪枝）<%flag=request("flag")keyid=request("keyid")pageno=request

程序名称：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>