Asp+Access文章如何添加评论功能
网站上线已经有一年多的时间了,但是一直没有把评论这个功能写进去,客观主观原因都很多。一个博客系统,如果没有文章评论这个功能,似乎是一很大的瑕疵。因此昨天我花了半天的时间,把这个功能添加上了。其实也是磕磕碰碰的,之所以以前拖拖拉拉没有完成,是因为我觉得这个对于我来说有难度,但是迄今我接触了那么长时间的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值是个关键。
本站所有文章、数据、图片均来自互联网,一切版权均归源网站或源作者所有。
如果侵犯了你的权益请来信告知我们删除。邮箱:dacesmiling@qq.com
上一篇:asp如何加速网站打开的速度