网站上线已经有一年多的时间了，但是一直没有把评论这个功能写进去，客观主观原因都很多。一个博客系统，如果没有文章评论这个功能，似乎是一很大的瑕疵。因此昨天我花了半天的时间，把这个功能添加上了。其实也是磕磕碰碰的，之所以以前拖拖拉拉没有完成，是因为我觉得这个对于我来说有难度，但是迄今我接触了那么长时间的asp再看这个能否实现的功能的时候，我又觉得简单了...
第一步：新建一个form表格，提交事件响应的页面是newspl_tj.asp。<%=D_ID%>是获取当前文章的ID值。
〈form action="newspl_tj.asp" method="post" name="form2〉
…
〈input type="hidden" value=“〈%=D_ID%〉”〉
…
第二步：newspl_tj.asp
〈%
dim Cname
dim Ccontent
dim D_ID
Cname=cstr(trim(request.Form("Cname")))
Ccontent=cstr(trim(request.Form("Ccontent")))
D_ID=cint(trim(request.Form("D_ID")))
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from commend"
rs.open sql,oconn,1,3
rs.addnew
rs("Cid")=htmlencode(D_ID)
rs("Cname")=htmlencode(Cname)
rs("Ccontent")=htmlencode(Ccontent)
rs("Ctime")=now()
%〉
第三步：获取评论内容
〈%
sSql="Select * From Commend where cid="&ArtID&" order by id desc"
set ors=Server.CreateObject("ADODB.RecordSet")
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
%〉
〈%
Do While Not oRs.Eof
%〉
〈=oRs("Cname")%〉：〈%=oRs("CContent")%〉
〈%
oRs.MoveNext
Loop
%〉
〈%
End If
oRs.Close
%〉
PS：主要理清楚这个功能的思路就行了，留言版的内容相对来说简单，但是如果要获取某篇文章的评论，就需要一个ID值，获取文章的ID值是个关键。
本文链接：http://so.lmcjl.com/news/2517/