< /select>

　　 < /td>

　　 < td width="20%" bordercolor="#006666">以后在处理:

　　 < input type="radio" name="manage" value=3>

　　 < /td>

　　 < td width="9%">

　　 < input type="submit" name="Submit" value="确定">

　　 < /td>

　　 < /tr>

　　 < /table>

　　 < /td>

　　 < /form>

　　 < /tr>

　　< /table>

　　< /body>

　　< /html>

　　< %

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%>

　　这一页和文章显示模块中的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")< >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=>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=>back< /a>"

　　else

　　response.clear

　　response.redirect "boardmanager.asp?boardid=" & boardid

　　end if

　　%>

　　< /body>

　　< /html>

　　< %

　　conn.close

　　set conn=nothing

　　%>

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

上一页  [1] [2]