<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from huodong where id="&cint(request("id"))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
huodongcontent="对不起，您所查看的新闻不存在！"
else
huodongtitle=rs("title")
huodongtime=rs("time")
huodongcontent=rs("content")
end if
rs.close
set rs=nothing
%>