你好,欢迎访问远方教程PC版!
广告位招租
网站首页 >> ASP教程 >> ASP十日速成 >> 文章内容

ASP建站十大常用程序(第六节):论坛系统(第11页)

[日期:2015-03-09]   来源:远方教程  作者:远方教程   阅读:18411次[字体: ] 访问[旧版]
 捐赠远方教程 

下面,要根据版主的处理过程,修该数据库相应部分
< %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没多大的关系,这儿我就不多讲了。

 

图片展示
 
相关评论
站长推荐