<%@language="vbScript"%> <% set rs=server.createobject("adodb.recordset") '记录点击数 click = "update news set clicks=clicks+1 where newsid=" & request("id") conn.execute click '记录点击数结束 sql="select * from news where newsid=" & request("id") rs.Open sql,conn,1,1 %> <%=rs("title")%>∥统计排行∥中国国际战略研究网


首页 >> 统计排行 >> <%=rs("title")%>
<% if rs.eof then response.write "此新闻已经被删除" else title=Replace(rs("title"), Chr(13), "
" ) pubdate=Replace(rs("pubdate"), Chr(13), "
" ) content=Replace(rs("content"),Chr(13), "

" ) content=Replace(rs("content"),"''", "'" ) content=Replace(content," ", "  ") %>

<%=title%>
<%=pubdate%>

<%=content%>
<%end if%>


关闭窗口