动网积分上限修改 动网7.1.0

从1129行开始对比一下 ....Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text-tMagicTicket
Dvbbs.ToolsLog -88,1,0,tMagicTicket,1,"使用点券购买魔法表情",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text
End If
End If'一下为加分的
'加分插入加分插入加分插入加分插入加分插入加分插入加分插入加分插入加分插入加分插入加分插入加分插入

dim lusql,lurs
lusql="select * from Dv_bbs1 where UserName='"&UserName&"' and chatim=#"&date()&"#"
set lurs=server.CreateObject("adodb.recordset")
lurs.open lusql,conn,1,1
dim shuliang
shuliang=cint(lurs.recordcount)
if shuliang<0 then
shuliang=0
end if
if cint(lurs.recordcount)<10 then'如果小于2个帖子就执行下面