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

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

%>

  

   

  

  

请输入管理密码：