ÀûÓÃASP´òÔìÍøÕ¾ÂÛ̳DIY[9]

µØÉÏÅÜ

µ±µã»÷ÁËÏàÓ¦ÎÄÕµÄÁª½áºó£¬¾Í½øÈë´ËÎÄÕµĴ¦ÀíÒ³Ãæ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"£¾¿´°å£º£¼ font color="#FF3333"£¾£¼ /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£¾