<% owen=request("id") id=cstr(request("id")) Set rsnews=Server.CreateObject("ADODB.RecordSet") sql="update news set hits=hits+1 where id="&id conn.execute sql sql="select * from news where id="&owen rsnews.Open sql,conn,1,1 if rsnews.eof and rsnews.bof then response.Write("数据不存在,或已删除!") else title=rsnews("title") 'SiteContent=rsnews("content") %>
 
 
  首页 >> 新闻中心>> 新闻内容  

<% end if rsnews.close set rsnews=nothing %>
<%= rsnews("title") %>
双击自动滚屏 发布者:<%= rsnews("user") %> 发布时间:<%= rsnews("addDate") %> 阅读:<%= rsnews("hits") %>

<%=rsnews("content") %>
 
 

打印本页 || 关闭窗口