www.gusucode.com > QCMS小型网站管理系统 1.4 SP1 UTF-8 ACCESS源码程序 > inc/review.asp

    <%
Class review
Public did
Public posttime
Public poster
Public dcontent
Public newsid
Public rs
Private strsql

'获取所有回复
Public Sub did_all()
set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
sql="select discuss.*,news.* from discuss left join news on discuss.newsid=news.newsid"
rs.open(sql)
End Sub

'获取指定新闻的回复
Public Sub did_get(id)
set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
sql="select * from discuss where newsid="&id&" order by did desc"
rs.open(sql)
End Sub

'删除回复
Public Sub did_del(id)
strsql="delete from discuss where did in("&id&")"
conn.execute(strsql)
End Sub

'插入新记录
public sub did_add()
sql="insert into discuss (poster,dcontent,posttime,newsid)values('"&poster&"','"&dcontent&"','"&posttime&"','"&newsid&"')"
conn.execute(sql)
end Sub

Public  function review_id_count(id)
set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
sql = "SELECT count(*) FROM discuss where newsid="&id&""
rs.open sql
review_id_count=rs(0)
End Function

End class
%>