📄 mylink.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<HTML><HEAD><TITLE>友情链接</TITLE>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY topMargin=0 style="background-image: url('')">
<!--#include file="top.asp" -->
<!--#include file=bar.asp-->
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" id="table1" height="172">
<tr>
<td bgcolor="#CBDCB6" style="font-size: 14pt">
<p align="center">友情链接</td>
</tr>
<tr>
<td bgcolor="#F1FAE6" height="129">
<div align="center">
<table border="0" width="95%" id="table2">
<%
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
while not rs_new.eof
%>
<tr>
<%for j=0 to 3
if rs_new.eof then
exit for
end if
%>
<td width="25%">
<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='160' height='70' 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>
<p> </td>
</tr>
</table>
</div>
</BODY></HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -