请问以下代码什么意思？

Private Sub ArtMaxID(ClassID)
Rs.open "select id,addtime from Ok3w_Article where IsPass=1 and IsDelete=0 and ClassID="&ClassID&" order by addtime asc",conn,3,3
if not (Rs.eof and Rs.bof )then
Response.Write("show.asp?id="&Rs("ID")&"")
end if
Rs.close
End Sub