function sk_advhtml(id)  '
  dim rs,sql,i,NewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select * from sk_AD where  ViewFlag  and id="&id&" order by id desc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
  sk_advhtml="  "
  else
  sk_advhtml=rs("Content")   
  end if
  rs.close
  set rs=nothing
end function

对其中的红色部分详细介绍！！！谢谢