link.asp

来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 26 行

<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E7DB">
<tr>
<TD align=middle width="100%" height=20><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <% sqlF="select top 2 * from friends where F_pass='1' order by id desc"
					   set rsF=conn.execute(sqlF)
					   if rsF.eof and rsF.bof then
					   response.Write"目前还没有任何站点加入"
					   else
					   while not rsF.eof%>
                     <tr>
                    <td><div align="center"> 
                        <a href="<% =rsF("F_addres") %>" target="_blank"><img src="<% =rsF("F_logo")%>" alt="网站名称：<% =rsF("F_name") %><br>网站介绍：<% =rsF("F_readme") %><br>加入日期：<% =rsF("date") %>" name="F" width="88" height="31" border="0"></a>
                      </div></td>
                  </tr>
                  <% rsF.movenext
					 wend
					 end if %>
                </table></TD>
</tr>
<tr>
<td width="100%">
  <p align="center"><a href="friends.asp" target="_blank">链接申请</a></p>
</td>
</tr>
</table>