#32004/9/18 15:32:42
就是出先不了,我把这段 <table></table>之间的代码拷贝如下:望指点,Full of thx!
<table width="350" align="center" border="0" cellspacing="0" cellpadding="0">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select top 8 * from 公司资料 where 会员=true order by id desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
name=rs1("帐号")
%>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from 招聘信息 where 公司名称='"&name&"'"
rs.open sql,conn,1,1
IF Not rs.eof THEN
%>
<%
sqlnews="select top 4 * from 新闻 where 类型 order by id desc"
Set rsnews=Server.CreateObject("ADODB.RecordSet")
rsnews.Open sqlnews,conn,1,1
do while not rsnews.eof
%>
<tr>
<td height="30"><img src="pic/03.gif"> <a href="lookdh.asp?id=<%=rsnews("id")%>" target="_blank"><%=rsnews("标题")%>
(<%=rsnews("发布日期")%>)</a></a></td>
</tr>
<%
rsnews.movenext
loop
rsnews.close
set rsnews=nothing
%>
<%
END IF
rs.close
set rs=nothing
rs1.MoveNext
loop
rs1.close
set rs1=nothing
%>
<tr height="20">
<td colspan="3" align="right"><A href="hotcomp.asp"><font color="#FF0000">更多……</a> </td>
</tr>
</table>