<% if not isEmpty(request.QueryString("id")) then id=request.QueryString("id") else id=1 end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From news where id="&id, conn,3,3 '纪录访问次数 rs("counter")=rs("counter")+1 rs.update nCounter=rs("counter") '定义内容 content=ubbcode(rs("content")) %>
       新闻信息  
<%=rs("title")%>
发布日期:[<%=rs("Infotime")%>]  
    <%=content%> <%rs.close%>
 
【 字体: 】【打印此页】 【返回】【顶部】【关闭