会计培训-东莞会计培训-大朗会计培训-厚街会计培训-长安会计培训-常平会计培训-樟木头会计培训-横沥会计培训-寮步会计培训

<% 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="&cstr(request("id")) rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "" response.end else %> 会计培训-东莞会计培训-大朗会计培训-厚街会计培训-长安会计培训-常平会计培训-樟木头会计培训-横沥会计培训-寮步会计培训

<%=rs("title")%>

发布时间： <%=rs("addtime")%> 被阅览数： <%=rs("hits")%> 次

<% if request("page")="" then pagenum=0 else pagenum=request("page") end if content=rs("content") contentstr=split(content,"|") for i=pagenum to pagenum response.Write(contentstr(i)) next %>

<% for p=0 to ubound(contentstr) %> &page=<%=p%>">[<%=p+1%>] <%next j=pagenum+1 k=ubound(contentstr) if j>k then j=k end if %> &page=<%=j%>">下一页

上两条同类新闻：
<% cata=rs("cataid") rs.close sql="select top 2 id,title from news where cataid="&cata&" and id<"&request("id")&" order by id desc" rs.open sql,conn,1,1 for i=1 to 2 if not rs.bof then response.write "

"&rs("title")&"

" rs.movenext end if next %>

打印本页 |

关闭窗口

<% set rs=Nothing end if %>