<%
              Set rs=Server.CreateObject("ADODB.RecordSet")
              sql="select top 10 * from news where sort=19 order by hits desc"
              rs.open sql,conn,1,1
              i=1
              do while (not rs.eof) and (i < 10)
              response.write("<img src='icon/"&i&".gif'/>&nbsp;<a href='../hy/"&rs("moban")&"/ViewInfo.asp?idd="&rs("id")&"&id="&rs("UserID")&"'>"&mid(rs("title"),1,15)&"</a>&nbsp;<font color=ff0000>点击："&rs("hits")&"次</font><br>")
              i=i+1
              rs.movenext
                          loop
              %>
写成这样 OK了