www.gusucode.com > 盐城分类信息网asp源码程序 > links.asp
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%><!--#include file="inc/conn.asp"-->
<LINK href="inc/Style.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,logo asc"
rs_new.open sqlwto,conn,1,1
%> <div align="center"><table border="0"><%
while not rs_new.eof
%> <tr><%for j=0 to 4
if rs_new.eof then
exit for
end if
%> <td><p align="center"><span style="font-size: 12px"><%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> <%else%> <a title="<%=rs_new("web")%>-<%=rs_new("webabout")%>" href="<% =rs_new("url") %>" target="_blank"><%=rs_new("web")%></a> <%end if%></span></td><%rs_new.movenext
next
%> </tr><%
wend
rs_new.close
%> </table></div><%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%>