当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用排序串字段实现树状结构(例程:删除贴子)

ASP
ASP漏洞集-跨站Script攻击和防范
利用JSP的思想来做ASP
asp的19个基本技巧
自定义aspnet_client的位置
编码的风格和如何设置调试代码
RS.GETROWS使用详解
Adodb.Stream 组件的使用说明
在ASP.Net中实现RSA加密
关于水晶报表10 的字报表数据填充和显示
DataList里套DataGrid,DataBind
ASP.NET验证控件详解
ASP网站漏洞解析及黑客入侵防范方法
产生一个密码,并记录到数据库,然后发送给用户
ASP内置对象 Request对象 详解
ASP 中 DateDiff 函数详解
几个常用的小函数
在记录集中加入判断使之灵活
会员系统“找回密码”的制作方法
一个分页代码例子
常见的错误及其解决方法

ASP 中的 用排序串字段实现树状结构(例程:删除贴子)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 150 ::
收藏到网摘: n/a

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