 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
当点击了相应文章的联结后，就进入此文章的处理页面managearticle.asp： < % articleid=request("articleid") boardid=request("boardid") 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") Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandText = "按id查询文章" ReDim param(0) param(0) = CLng(articleid)//注：Clng 不可忽略 Set rs = cmd.Execute( ,param ) author=rs("作者id") title=rs("标题") data=rs("日期") rate=rs("推荐度") boardid=rs("看板id") topicid=rs("主题id") boardname=rs("看板名") topicname=rs("主题名") content=rs("内容") 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>作者：< font color="#FF3366"><a href="qauthor.asp?author=< %=author%>">< %=author%> < /a>< /font>发表日期：< font color="#FF3333"><%=data%>< /font> 看板：< font color="#FF3333"><a href="qboard.asp?boardid=< %=boardid%>">< %=boardname%>< /a>< /font>板主推荐：< font color="#FF3333">#rate#</font>< /td> < /tr> < tr bgcolor="#CCCCCC"> < td>标题：< font color="#FF3333"><%=title%> 主题：< a href="qtopic.asp?topicid=<%=topicid%>"> < %=topicname%>< /a> < /font>< /td> < /tr> < tr valign="top"> < td> < hr> < font color="#FF3366">文章内容：< /font>< br> < br> < font color=blue>< %response.writecontent%>< /font> < br> < hr> < /td> < /tr> < tr valign="top"> < form method="post" action="manageresult.asp"> < 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%>"> 文章处理：< /div> < /td> < td width="12%" bordercolor="#006666">删除: < input type="radio" name="manage"value=1> < /td> < td width="30%" bordercolor="#006666">发表: < input type="radio" name="manage"value=2> 推荐等级 < 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">以后再处理: < 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")< >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没多大的关系，这儿我就不多讲了。 返回类别: 教程 上一教程: 不刷新页面查询数据库中数据的方式-XML方式 下一教程: 熟悉ASP内置的对象 您可以阅读与"利用ASP打造网站论坛DIY -6"相关的教程: · 利用ASP打造网站论坛DIY · 利用ASP打造网站论坛DIY -4 · 利用ASP打造网站论坛DIY -5 · 利用ASP打造网站论坛DIY -1 · 利用ASP打造网站论坛DIY -2 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
