用排序串字段实现树状结构(例程??删除贴子)
类别: ASP教程 
程序名称：delrec.asp
程序功能：删除贴子（剪枝）
<!-- #include file="lybcon.inc" -->
<%
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">
<!--
a { text-decoration: none}
body {line-height:18px;font-size:9pt;font-family:宋体}
a:hover {color:#FF0000;text-decoration:none}
.submit {line-height:9pt;font-size:9pt;font-family:宋体}
.submit1 {line-height:8pt;font-size:8pt;font-family:宋体}
.selectform {font-family: 宋体; font-size: 9pt;background-color:ffE4E4}
td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF}
.td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2}
.td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0}
.small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt}
-->
</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>
程序功能：删除贴子（剪枝）
<!-- #include file="lybcon.inc" -->
<%
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">
<!--
a { text-decoration: none}
body {line-height:18px;font-size:9pt;font-family:宋体}
a:hover {color:#FF0000;text-decoration:none}
.submit {line-height:9pt;font-size:9pt;font-family:宋体}
.submit1 {line-height:8pt;font-size:8pt;font-family:宋体}
.selectform {font-family: 宋体; font-size: 9pt;background-color:ffE4E4}
td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF}
.td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2}
.td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0}
.small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt}
-->
</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>
