<%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 title=rsnews("title") if rsnews.eof and rsnews.bof then response.Write("数据库出错") else %>
  新闻中心  
<%=rsnews("TITLE") %>
日期:<%=rsnews("AddDate")%>  点击:<%=rsnews("Hits")%>
<%=rsnews("content") %>
打印 】 【】【返回
<%Call Contextual() %>
<% end if %>