%
on error resume next
dim rs,sql,imgpath
imgpath="uppic/"
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&RtnReplaceInt(request("id"),0)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
response.end
else
%>
<%
set rst=server.CreateObject("adodb.recordset")
sqlt="Select * from newscata order by rootid"
rst.Open sqlt,conn,1,3
do while not rst.EOF
trootid = rst("rootid")
t_child_cataid=split(trootid,",")
t_num = ubound(t_child_cataid)
if t_num=0 then
tempcataStr="