<%Set RsLink=Server.CreateObject("Adodb.RecordSet") SqlLink="Select * from news where NewsClassid=80" RsLink.Open SqlLink,Conn,1,1 Response.Write("
") do while Not RsLink.eof Response.Write RsLink("NewsContent") RsLink.MoveNext Loop RsLink.close Set RsLink=Nothing Set SqlLink=Nothing Response.Write("
") %>