📄 friendsite.asp
字号:
set ad=server.createobject("mswc.adrotator")
%>
<%=ad.getadvertisement("ad/ad.txt")%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<%=ad.getadvertisement("ad/ad.txt")%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" Class="tdbg_left2"></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9"> </td>
<td valign="top" class="tdr" bgcolor="#FFFFFF"> <table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" Class="tdbg_left2"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td height="169" valign="top" > <div align="center">
<table width="498" border="0" align="center" cellpadding="0" cellspacing="0" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="484" height="25" valign="top"><table width="498%" border="0" cellpadding="0" cellspacing="0" class="1">
<!--DWLayoutTable-->
<tr>
<td width="498" height="25" valign="bottom" bgcolor="#fafafa">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="22"><img src="img/tp.gif" width="10" height="10"> </td>
<td><div align="right"><a href="FriendSiteReg.asp">申请友情链接</a> | <a href="FriendSite.asp?LinkType=2">文字链接</a> | <a href="FriendSite.asp?LinkType=1">LOGO链接</a> | <a href="FriendSite.asp">所有链接</a> </div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td width="484" height="100" valign="top"> <table width="483" border="0" align="center" cellpadding="0" cellspacing="5">
<!--DWLayoutTable-->
<tr>
<td width="473" height="100" valign="top" bgcolor="f9f9f9" >
<%
if rsLink.eof and rsLink.bof then
response.write "<table width='100%'align='center'><tr><td height='50'>目前共有 0 个友情链接</td></tr></table>"
else
totalPut=rsLink.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个站点"
else
if (currentPage-1)*MaxPerPage<totalPut then
rsLink.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsLink.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个站点"
else
currentPage=1
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个站点"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="5" bgcolor="#F9F9F9">
<tr>
<td height="50" valign="middle"> <table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" class="border2">
<tr class="tdbg_leftall">
<td width="105" height="22" align="center">网站名称</td>
<td width="110" height="22" align="center">网站LOGO</td>
<td width="146" height="22" align="center">网站简介</td>
<td width="67" height="22" align="center">站长</td>
</tr>
<%
do while not rsLink.eof
%>
<tr>
<td align="center"> <a href="<%=rsLink("SiteUrl")%>" target='blank' title="<%=rsLink("SiteUrl")%>"><%=rsLink("SiteName")%></a></td>
<td width="110" align="center">
<%
if rsLink("LinkType")=1 then
if rsLink("LogoUrl")<>"" and rsLink("LogoUrl")<>"http://" then
if lcase(right(rsLink("LogoUrl"),3))="swf" then
Response.Write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='88' height='31'><param name='movie' value='" & rsLink("ImgUrl") & "'><param name='quality' value='high'><embed src='" & rsLink("LogoUrl") & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='88' height='31'></embed></object>"
else
response.write "<a href='" & rsLink("SiteUrl") & "' target='_blank' title='" & rsLink("LogoUrl") & "'><img src='" & rsLink("LogoUrl") & "' width='88' height='31' border='0'></a>"
end if
else
response.write "<a href='" & rsLink("SiteUrl") & "' target='_blank'><img src='images/nologo.gif' width='88' height='31' border='0'></a>"
end if
else
response.write " "
end if
%>
</td>
<td align="center"><%=rsLink("SiteIntro")%></td>
<td align="center"><a href="mailto:<%=rsLink("Email")%>"><%=rsLink("SiteAdmin")%></a>
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rsLink.movenext
loop
%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<table width='498' border='0' align="center"cellpadding='2' cellspacing='0' class="tde">
<tr>
<td height="20" bgcolor="f2f2f2"> <div align="center">
<%
end sub
%>
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table>
<table width='498' border='0' align="center"cellpadding='2' cellspacing='5' class="tde">
<tr>
<td height="90" bgcolor="f2f2f2"> <div align="center">
<p align="left">本站LOGO：[88*31] <br>
<br>
<img src="Images/nologo.gif" width="88" height="31"> <br>
<br>
<img src="img/banner.jpg" width="468" height="60">
</p>
</div></td>
</tr>
</table>
<table width="98%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="10"></td>
<td></td>
<td></td>
</tr>
</table>
</td>
<td width="5"> </td>
</tr>
<tr>
<td height="4"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="760" height="15" align="center" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="760" height="15" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td height="5"></td>
<td></td>
<td></td>
</tr>
<tr>
<td width="5" height="46"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f2f2f2" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="750" height="44"> <div align="right"><font color="#75754f"> </font><font color="#666666">|</font>
<font color="#666666"><span onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.dadayu.com');" style="CURSOR: hand">设为首页</span>
|
<script language="JavaScript">
function bookmarkit(){window.external.addFavorite('http://www.dadayu.com','│ DaDaYu │ 易天网络 │')}
if (document.all)document.write('<a href="#" onClick="bookmarkit()"><font color="#666666">加入收藏</font></a>')
</script>
| <a href="mailto:www@dadayu.com">联系站长</a> | <a href="FriendSite.asp">友情链接</a>
| <a href="Copyright.asp" target="_blank">版权申明</a> | <a href="gb/" target="_blank">易天留言</a>
|
Copyright©2004-2005 易天网络 Powered by <a href="Admin_login.asp" target="_blank">DaDaYu </a> </font></div></td>
</tr>
</table></td>
<td width="5"></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -