在论坛发帖时,出现了这样的错误.但是刷新页面后,帖子还是能发出来.


错误类型：
(0x80020009)
发生意外。
/poasastfo.asp, 第 447 行



'清空上传限制
session("upcount")=""

sqlnum="update total set r_num=r_num+1,h_replytoday=h_replytoday+1"
cn.Execute (sqlnum)

sqllanmu="update lanmu set l_count= l_count+1 where l_id="&l_id&""
cn.Execute (sqllanmu)
sqluser1="update user set u_todaysend=u_todaysend+1, send=send+1,fen=fen+"&r_fen&",u_beauty=u_beauty+"&h_replybeauty&",u_money=u_money+"&h_replymoney&", lastsend='"&HTMLEncode(r_title)&"',lastsendtime='"&nowtime&"' where username='"&r_username&"'"
cn.Execute (sqluser1)

Session("LastPostTime")=nowtime

sqluser2="select grade,fen,send from user where username='"&r_username&"'"
set rsuser2=cn.Execute (sqluser2)
if not rsuser2.eof then
rsg=rsuser2("grade")-1
if rsuser2("grade")=<4 then
response.redirect"postfo.asp?t_id="&request.querystring("t_id")&"&l_id="&request.querystring("l_id")&"&action=do"
end if
sqlgrade1="select * from grade where g_num="&rsg&""
set rsgrade1=cn.Execute (sqlgrade1)
if rsuser2("fen")<rsgrade1("g_fen") then "这是第447行"
response.redirect"postfo.asp?t_id="&request.querystring("t_id")&"&l_id="&request.querystring("l_id")&"&action=do"
end if
sqlgrade2="update user set grade= grade-1 where username='"&r_username&"'"
cn.Execute (sqlgrade2)
end if
response.redirect"postfo.asp?t_id="&request.querystring("t_id")&"&l_id="&request.querystring("l_id")&"&action=do"