% Call OpenDataConn
id=trim(request("id"))
Set Rs= Server.CreateObject("Adodb.Recordset")
Sql="select * from News where id= "&id&""
Rs.Open Sql,Conn,1,1
Topic=Rs("Topic")
bigpic=Rs("bigpic")
menuid=Rs("menuid")
Rs.close
Set Rs=Nothing
%>
<%=topic%>—打造国内最清洁开发区 共建共享文明品质新城
<% Set Rs= Server.CreateObject("Adodb.Recordset")
Sql="select menuname from menu where id="&menuid&""
Rs.Open Sql,Conn,1,1
Response.Write(Rs("menuname"))
Rs.Close
Set Rs=Nothing
%>