www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\main8.asp
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!--
A{text-transform: none; text-decoration: none; color: green;}
A:hover {color: #ff0000;text-decoration:derline}
body, table {font-size:9pt;font-family: Verdana, 宋体;color: #666666;}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="1" cellpadding="4">
<tr>
<td background="img/line1.gif" colspan=5></td>
</tr>
<tr align="center" bgcolor="#f9f9f9" style="color:#333333;">
<td width="10%" height="28"> 热诚欢迎大家参加本站的友情链接 </td>
</tr>
<tr>
<td background="img/line1.gif" colspan=5></td>
</tr>
<tr>
<td><table width="100%" cellpadding="5" cellspacing="0">
<tr>
<td> 1、拒绝色情网站，拒绝反动网站，拒绝包含恶意代码的网站！ </td>
</tr>
<tr>
<td> 2、本站支持链接文字和图片，图片大小必须为：88*31 </td>
</tr>
<tr>
<td> 3、本站会不定期检查链接网站，若发现你站没有本站链接，将彻底删除贵站的链接！</td>
</tr>
<tr>
<td> 4、本站有权利拒收任何网站！本站有最终解释权！ </td>
</tr>
<tr>
<td> 5、要和本站做固定友情链接的朋友请先做好本站的链接后再到本站留言申请，否则本站一</td>
</tr>
<tr>
<td> 律不予链接！</td>
</tr>
<tr>
<td> 6、本站名称：<font color="#FF6600">源代码下载</font> 本站地址：www.ydaima.com</td>
</tr>
<tr>
<td>本站LOGO： LOGO地址：http://www.ydaima.com/img/logo.gif</td>
</tr>
</table></td>
</tr>
<tr>
<td background="img/line1.gif" colspan=5></td>
</tr>
<tr align="center" bgcolor="#f9f9f9" style="color:#333333;">
<td width="10%" height="28">+ 文 字 链 接 +</td>
</tr>
<tr>
<td background="img/line1.gif" colspan=5></td>
</tr>
<tr>
<td colspan=5><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from link where l_type='文字' and status='0' order by id desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write ("<td colspan=5>暂时没有内容</td>")
else
i=1
do while not rs.eof
%>
<td align="center"><a href="<%=rs("l_url")%>" target="_blank" title="<%=rs("l_content")%>"><%=rs("l_name")%></a></td>
<%
if i mod 4=0 then response.write ("</tr>")
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
<tr align="center" bgcolor="#f9f9f9" style="color:#333333;">
<td width="10%" height="28">+ 图 片 链 接 +</td>
</tr>
<tr>
<td background="img/line1.gif" colspan=5></td>
</tr>
<tr>
<td colspan=5><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<%
set rs1=server.CreateObject("adodb.recordset")
sql="select * from link where l_type='图片' and status='0' order by id desc"
rs1.open sql,conn,1,3
if rs1.eof and rs1.bof then
response.write ("<td colspan=5>暂时没有内容</td>")
else
y=1
do while not rs1.eof
%>
<td align="center"> </td>
<%
if y mod 4=0 then response.write ("</tr>")
y=y+1
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</tr>
</table></td>
</tr>
</table>
</body>
</html>