用排序串字段实现树状结构(例程——删除贴子)
程序名称: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> 上一篇:用排序串字段实现树状结构(例程——连接字串) 下一篇:用排序串字段实现树状结构(例程——保存贴子内容) 更多相关文章
|
推荐文章
精彩文章
|