link.asp

信息类网站的不错选择

<table width="100%"  border="0" cellspacing="0" cellpadding="3">
<%
dim linkrs,linksql
set linkrs=server.createobject("adodb.recordset")
linksql = "select top 10 * from link where yanz=1 order by jrsj desc"
linkrs.open linksql,conn,1,1
do while not linkrs.eof
%>
<tr><td width="172" height="0" align="center"><%if linkrs("logo")<>"" and linkrs("logo")<>"http://" then %><a target="_blank" title="<%=linkrs("web")%>-<%=linkrs("webabout")%>" href="<% =linkrs("url") %>">
<img src="<%=linkrs("logo")%>" width='160' height='70' style="border: 0px solid #C0C0C0; padding: 0" ></a><%else%><a href="<% =linkrs("url") %>" target="_blank" title="<%=linkrs("webabout")%>"><%=linkrs("web")%></a>
<%end if%></td></tr>
<%
linkrs.movenext
loop
%>
</table>


<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" height="56">
	<tr>
		<td align="center" height="27"><p><span lang="zh-cn">
		<a href="mylink.asp">全部链接</a></span></td>
	</tr>
	<tr>
		<td align="center"><a href="addlink.asp">申请链接</a></td>
	</tr>
</table>