<% id=rp(Request("id")) if not isnumeric(id) then goerror(2) End if Dim objrs,strsql strsql="select * from news where id=" & id set objrs=server.createobject("ADODB.Recordset") objrs.open strsql,objconn,1,2,1 if objrs.Recordcount<1 then goerror(1) End if objrs("hits")=objrs("hits")+1 objrs.update %> <%=objrs("topic") %> - 中国洗车器网
新闻资讯
<%=objrs("topic") %>
发布时间:<%=objrs("addtime") %>浏览次数:<%=objrs("hits") %>
<%=objrs("content") %>
[关闭窗口]