'===========================
'޸ظ
'===========================
dim sql2,contextid,replynum,sql3
sql="select * from content where parent=0 order by id"
openrs sql
for i=1 to rs.recordcount
contextid=Rs("id")
sql2="select count(*) from content where parent="&contextid&""
replynum=conn.execute(sql2)(0)
sql3="update content set replynum="&replynum&" where id="&contextid&""
conn.execute(sql3)
rs.movenext
next
rs.close
