利用ASP打造网站论坛DIY(3)

核心提示： 注：这一页和文章显示模块中的article.asp基本上是一样的，仅仅是多加入了版主处理的窗体，利用ASP打造网站论坛DIY(3)(6)，在这儿就不多讲了，下面，不过那都是HTML的内容了，和ASP没多大的关系，要根据版主的处理过程，修该数据库相应部分＜ %response.buffer=

注：这一页和文章显示模块中的article.asp基本上是一样的，仅仅是多加入了版主处理的窗体，在这儿就不多讲了。

下面，要根据版主的处理过程，修该数据库相应部分

＜ %response.buffer=true%＞
＜ html＞
＜ head＞
＜ title＞文章处理＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
＜ body bgcolor="#E9E9E4"＞
＜ %
articleid=request("articleid")
boardid=request("boardid")
topicid=request("topicid")
manage=request("manage")
'接受窗体内容
response.write manage '显示斑竹ID
if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.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=＞back＜/a＞"
elseif CLng(request("manage"))=2then
sql="update 内容表 set 发表=true whereid=" & articleid
conn.execute sql
sql="update 主题表 set 文章数=文章数+1where id=" & topicid
conn.execute sql
response.write "＜ h1＞文章已经发表＜/h1＞"
response.write "＜ a href=＞back＜/a＞"
else
response.clear
response.redirect "boardmanager.asp?boardid="& boarded
end if
%＞
＜ /body＞
＜ /html＞
＜ %
conn.close
set conn=nothing
%＞

经过上面几步，所有的部分就算是基本完成了，当然，这时还不能拿来用，摆不上台面的。如果想要能够拿得出来的话，还要在版面设计，客户端资料验证等方面多下一些功夫。不过那都是HTML的内容了，和ASP没多大的关系，这儿我就不多讲了。