<% 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 %> 东莞电脑培训_东莞网页设计培训_东莞动态网页培训_东莞网页三剑客_东莞WEB设计_东莞网站推广_东莞网站SEO_东莞网站维护培训
<%=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 %>