asp 论坛日志及毅力值+1方法
set rs=server.createobject("adodb.recordset")
sql="select * from Article_News"
rs.open sql,conn,1,3
'添加一个日记到数据库
rs.addnew
rs("N_title")=N_title
rs("N_content")=N_content
rs("N_author")=Session("UserName")
rs("N_addtime")=now
rs("N_keywords")=N_keywords
rs("N_flag")=1
rs("PostId")=session("PostId")
rs("Province")=session("Province")
rs.update
rs.close
set rs=nothing日

志数据库:Aricle_log
例:今天07:53[35544216]发表了一篇日记
时间N_addtime
发布者N_author
内容N_title
'日志数据库:Aricle_log 增加一记录
set rsLog=server.createobject("adodb.recordset")
sqlLog="select * from Aricle_log"
rsLog.open sqlLog,conn,1,3
rsLog.addnew
rsLog("N_title")="发表了一篇日记"
rsLog("N_author")=Session("UserName")
rsLog("N_addtime")=now
rsLog.update
rsLog.close
set rsLog=nothing

毅力值数据库:Article_Member
注册\发布日志\评论 +1
毅力值M_integral
'毅力值+1
'日志数据库:Article_Member 更新一记录
sqlM="update Article_Member set M_integral=M_integral+1 where M_id="&session("PostId")
conn.execute sqlM