您现在的位置是:首页 > 博客网站制作 > 心得笔记心得笔记
Asp+Access文章如何添加评论功能
杨青2012-05-24【心得笔记】人已围观
简介 网站上线已经有一年多的时间了,但是一直没有把评论这个功能写进去,客观主观原因都很多。一个博客系统,如果没有文章评论这个功能,似乎是一很大的瑕疵。因此昨天我花了半天的时间,把这个功能添加上了。
网站上线已经有一年多的时间了,但是一直没有把评论这个功能写进去,客观主观原因都很多。一个博客系统,如果没有文章评论这个功能,似乎是一很大的瑕疵。因此昨天我花了半天的时间,把这个功能添加上了。其实也是磕磕碰碰的,之所以以前拖拖拉拉没有完成,是因为我觉得这个对于我来说有难度,但是迄今我接触了那么长时间的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值是个关键。
很赞哦! ()
下一篇:asp如何加速网站打开的速度
随机图文
【郑重申明】本站只提供静态模板下载!
本站郑重申明只提供静态模板下载,拒绝伸手党!本站所有能提供的模板均已发布,喜欢就下载!下载是干嘛的?!学习参考!初衷就是让更多喜欢web设计的新手能从中找到乐趣,以及开发设计更多更好的模板!完美解决 IE6 position:fixed 固定定位问题
今天在调试一个网站的时候, 客户要求顶部固定,如果不考虑IE浏览器,写一个postion:fixed 就行了,但是作为一个设计师不能这样抱着侥幸的心理,客户今天用chrome浏览器没出现问题,但不保证其他还在用IE6的用户体验效果也一样,所以,解决这个bug 是事在必行的。解决eWebEditor本地测试无法显示以及上传无法使用的问题
之前做的网站编辑器都是old,后来要求上都有所提高,因此ewebeditor不得不更新,可是面对这个看似很容易的问题,却因为这样那样的问题,整整花了一天的时间,网上百度搜索答案,结果问问题的多过于回答问题的人。科普:如何识别PS的照片
将照片下载到本地,然后访问Google图片搜索,点击搜索框中的相机来上传图片,就可以将类似这张图片的内容搜索出来,通过这种方法可以识别PS照片,百度也有一个名为“识图”的图片搜索和这个类似,不过效果略差。