link.asp

一套现成的分类信息网站发布系统

<!--#include file="conn.asp"-->
<LINK href="css.css" type=text/css rel=stylesheet>
<%  
dim rs_new,sqlwto,j                                    
'最新样品的显示:                
Set rs_new = Server.CreateObject("ADODB.Recordset")    
sqlwto="select  * from link where yanz=1 order by jrsj desc "
'response.write sqltext
'response.end                                                             
     rs_new.open sqlwto,conn,3,2                                                        
%> 
<div align="center">
<table border="0" width="44%">
<%
			while not rs_new.eof
			%>
<tr>
<%for j=0 to 4                                      
                    if rs_new.eof then                                      
                       exit for                                      
                    end if                                      
                  %>          
<td width="81%">
<p align="center"><span style="font-size: 9pt">
<%if rs_new("logo")<>"" and rs_new("logo")<>"http://" then %> 
<a target="_blank" title="<%=rs_new("web")%>-<%=rs_new("webabout")%>" href="<% =rs_new("url") %>">
<img src="<%=rs_new("logo")%>" width='88' height='31' style="border: 0px solid #C0C0C0; padding: 0" ></a><a target="_blank" title="<%=rs_new("webabout")%>" href="<% =rs_new("url") %>"><br><% =rs_new("web") %></a>
<%else%>
<a target="_blank" title="<%=rs_new("web")%>--暂时没有图片" href="<% =rs_new("url") %>"><img src="img/nologo.gif" width='88' height='31' style="border: 0px solid #C0C0C0; padding: 0" ></a><a href="<% =rs_new("url") %>" target="_blank"><br><%=rs_new("web")%></a>
<%end if%></span></td>
<%rs_new.movenext                                                                             
next                                                        
%>            
</tr>
<%
wend
rs_new.close
%>
</table>  </div>