Asp+Access文章如何添加评论功能

Asp+Access文章如何添加评论功能

第一步：新建一个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值是个关键。