繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 我在桌面上删帖子
- ASP
- asp+的页面指示标识
- asp+文件上传增强实例
- 让ASP也可以连接MYSQL
- ASP文件操作--列出目录及文件
- 将站点加入频道栏源代码
- 如何在页面上动态的生成 WebForm控件
- 避免表单的重复提交又一方法（js）
- 灵活实用的页面广告实例
- 如何用javascript识别Netscape 6 浏览器
- 使用javascript实现邮箱快速登录的方法!!
- 如何从数据库得到一个列表表单
- 使用Cookie来跟踪用户
- 用DHTML来模拟实现下拉菜单
- javascript做的数据校验（校验IP地址等）
- 通过网络域名得到这台主机的IP地址
- 如何在ASP中使用类
- SQL Server中单引号的两种处理技巧
- Display data From database into 2 Column
- 存储过程对页面访问速度的影响
- 在ASP中使用类
ASP 中的 我在桌面上删帖子
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 168 ::
收藏到网摘: n/a
option explicit
dim message,result
dim title,text1,text2
message="请输入要删除帖子的ID"
title="帖子删除"
text1="你取消了操作！"
result =inputbox(message,title,"请输入要删除帖子的ID")
if result ="" then
Wscript.echo text1
elseif isnumeric(result)=false then
Wscript.echo "请输入正确的ID!"
ElseIf trim(cint(result))<>trim(result) then
Wscript.echo "请输入正确的ID!"
Else
dim result1
result1=msgbox("你确定要删除帖子"&result&vbcrlf&"这一操作将删除帖子本身及帖子的所有子贴",48+1+256,"按 确定 删除，按 取消 放弃！")
if result1=vbok then
dim conn
Set conn = Wscript.CreateObject("ADODB.Connection")
conn.Open"driver={sql server};server=111.111.111.111;uid=11;pwd=11;"&"database=11;"
dim sql,rs,sql2,rs2,sql3
sql="select rootid,deep,ordernum from bbs where mianid ="&cint(result)
set rs=conn.execute(sql)
if not rs.eof then
if rs(0)=0 then
sql3="delete bbs where rootid="&result&" or mianid= "&result
else
sql2="select top 1 ordernum from bbs where rootid="&rs(0)&" and deep<="&rs(1)&" and ordernum >"&rs(2)&"order by ordernum "
set rs2=conn.execute(sql2)
if not rs2.eof then
sql3="delete bbs where ordernum >="&rs(2)&" and ordernum < "&rs2(0)&" and rootid="&rs(0)
else
sql3="delete bbs where ordernum >="&rs(2)&" and rootid="&rs(0)
end if
end if
dim introws
conn.execute(sql3),introws
if introws >0 then
Wscript.echo "删除成功 !"
else
Wscript.echo "删除失败 !"
end if
else
Wscript.echo"你要删除的帖子不存在！"
End if
else
Wscript.echo "你放弃了删除！"
end if
end if
评论 (0) All
