~~~~~~~~~~~~~
<%
    Set Rs = server.createobject("ADODB.Recordset")
    TodayDate = Qsite.FormatDate(Date())
    strIsLockId = IsLockId("Company")
    Sql = "select top "& Qsite.IndNewzp &"  * from RecruitTbl where IsPause = '0' and ComId not in ("& strIsLockId &") order by EditDate desc"
    Rs.Open Sql , Conn , 1 , 1
If rs.eof and rs.bof then
response.write "<p align='center'><font color='#ff0000'>暂无相关内容</font></p>"
else
%>

<%=Company_Name(Rs("ComId"))%>

~~~~~~~~~

这个本来就应该显示一个的吧。
你又没循环