When you click on the link of the corresponding article, you will enter the processing page of this article:
＜ %
articleid=request("articleid")
boardid=request("boardid")
if session("beenthere")＜ ＞boardidthen ""
Set conn = ("")
"driver={Microsoft AccessDriver (*.mdb)};dbq=" & ("")
Set cmd = ("")
Set = conn
= "Check articles by id"
ReDim param(0)
param(0)= CLng(articleid)//Note: Clng cannot be ignored
Set rs = ( ,param )
author=rs("authorid")
title=rs("Title")
data=rs("date")
rate=rs("recommended")
boardid=rs("Kanban id")
topicid=rs("topicid")
boardname=rs("Kanban name")
topicname=rs("topic name")
content=rs("content")
content=replace(content,vbCrlf,"＜/p＞＜ p＞")
content="＜ p＞" & content& "＜ /p＞"
set cmd=nothing
%＞
＜ html＞
＜ head＞
＜ title＞Untitled Document＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
＜ body bgcolor="#E9E9E4"＞
＜ table width="89%" border="0"cellspacing="0" cellpadding="0"align="center"＞
＜ tr bgcolor="#CCCCCC"＞
＜ td＞Author: ＜ font color="#FF3366">＜a href="?author=＜ %=author%>">＜ %=author%> ＜ /a>＜ /font>Date of publication: ＜ font color="#FF3333">＜%=data%>＜ /font>
Kanban: ＜ font color="#FF3333">＜a href="?boardid=＜ %=boardid%>">＜ %=boardname%>＜ /a>＜ /font> Recommended by the board owner: ＜ font color="#FF3333">#rate#</font>＜ /td>
＜ /tr＞
＜ tr bgcolor="#CCCCCC"＞
＜ td＞Title: ＜ font color="#FF3333">＜%=title%>
Topic: ＜ a href="?topicid=＜%=topicid%＞"＞ ＜ %=topicname%＞＜ /a> ＜ /font>＜ /td>
＜ /tr＞
＜ tr valign="top"＞
＜ td＞
＜ hr＞
＜ font color="#FF3366">Article content: ＜ /font＞＜ br>
＜ br＞
＜ font color=blue＞＜ %%＞＜ /font＞
＜ br＞
＜ hr＞
＜ /td＞
＜ /tr＞
＜ tr valign="top"＞
＜ form method="post" action=""＞
＜ td height="18"＞
＜ table width="100%" border="1"cellspacing="1" cellpadding="1"＞
＜ tr＞
＜ td width="29%"＞
＜ div align="right"＞
＜ input type="hidden" name="boardid"value="＜ %=boardid%＞"＞
＜ input type="hidden" name="topicid"value="＜ %=topicid%＞"＞
＜ input type="hidden" name="articleid"value="＜ %=articleid%＞"＞
Article processing: ＜ /div＞
＜ /td＞
＜ td width="12%" bordercolor="#006666">Delete:
＜ input type="radio" name="manage"value=1＞
＜ /td＞
＜ td width="30%" bordercolor="#006666">Published:
＜ input type="radio" name="manage"value=2＞
Recommended level
＜ select name="select"＞
＜ option value="1"＞1＜/option＞
＜ option value="2"＞2＜/option＞
＜ option value="3" selected＞3＜/option＞
＜ option value="4"＞4＜/option＞
＜ option value="5"＞5＜/option＞
＜ /select＞
＜ /td＞
＜ td width="20%" bordercolor="#006666">Add to the future:
＜ input type="radio" name="manage"value=3＞
＜ /td＞
＜ td width="9%"＞
＜ input type="submit" name="Submit"value="OK">
＜ /td＞
＜ /tr＞
＜ /table＞
＜ /td＞
＜ /form＞
＜ /tr＞
＜ /table＞
＜ /body＞
＜ /html＞
＜ %
set rs=nothing
set conn=nothing
%＞
Note: This page is basically the same as the one in the article display module. It only adds more forms processed by moderators, so I won’t talk about them here.
Next, the corresponding part of the database should be repaired according to the moderator's processing process.
＜ %=true%＞
＜ html＞
＜ head＞
＜ title＞Article processing＜ /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")
'Accept the form content
manage 'Show Bamboo ID
if session("beenthere")＜ ＞boardidthen ""
Set conn = ("")
"driver={Microsoft AccessDriver (*.mdb)};dbq=" & ("")
According to the moderator's operations on the previous page, the corresponding processing will be performed below.
if CLng(request("manage"))=1 then
sql="delete from Content Table where ＜ h1＞The article has been deleted＜/h1＞"
"＜ a href=＞back＜/a＞"
elseif CLng(request("manage"))=2then
sql="update Content Table set Publish=true whereupdate Topic Table set Number of articles=Number of articles+1where ＜ h1＞Article has been published＜/h1＞"
"＜ a href=＞back＜/a＞"
else
"?boardpagenum tc"> Previous page12345678Read the full text