boardid=request("boardid")

　　topicid=request("topicid")

　　manage=request("manage")

　　‘接受表单内容

　　response.write manage ‘显示斑竹ID

　　if session("beenthere")< >boardid then response.redirect "forums.asp"

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　根据上页中斑竹的操作，进行相应的处理。

　　if CLng(request("manage"))=1 then

　　sql="delete from 内容表 where id=" & articleid

　　conn.execute sql

　　response.write "< h1>文章已经被删除< /h1>"

　　response.write "< a href=http://www.dvbbs.net/tech/asp/>back< /a>"

　　elseif CLng(request("manage"))=2 then

　　sql="update 内容表 set 发表=true where id=" & articleid

　　conn.execute sql

　　sql="update 主题表 set 文章数=文章数+1 where id=" & topicid

　　conn.execute sql

　　response.write "< h1>文章已经发表< /h1>"

　　response.write "< a href=http://www.dvbbs.net/tech/asp/>back< /a>"

　　else

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页

在google里搜索更多ASP技术在论坛中的运用(八)（吐血推荐！！！！）

	Web www.51ec.org

上一篇信息学院： ASP技术在论坛中的运用(七)（吐血推荐！！！！）

下一篇信息学院： 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）…