<% dim sqlpage dim rsPage,hits hits=cint(request("hits")) Set rsPage = Server.CreateObject("ADODB.Recordset") sqlpage="update news set hits=hits+1 where id="&cstr(request("id")) conn.execute sqlpage sqlpage="select * from News where id=" & request.querystring("id") rsPage.open sqlpage,conn,1,1 catid=rsPage("catid") %> <%=rsPage("Title")%>-<%=SiteTitle%> <%=Keywords%><%else%><%=rsPage("key")%><%end if%>"> <%=Description%><%else%><%=rsPage("descriptions")%><%end if%>">

<%=rsPage("Title")%>

作者:<%=rsPage("User")%>  发表时间:<%= FormatDateTime(rsPage("AddDate"),2) %>  点击数:<%=rsPage("Hits")%>次
<%=rsPage("Content")%>

上一篇:<% call ShowPrevNews(200) %>

下一篇:<% call ShowNextNews(200) %>