<%dy=request("id")
if isnumeric(dy)=0 then
response.write "不要这样哦，大家都是混口饭吃"
response.end
end if%>
<%
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&dy
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
中国经济社会理事会大事记
