WEB(ASP,PHP,...)

Development Platform:
HTML/CSS

Index_link.asp：Code Content
							<div id="bottom" ></div>
<div align="center">
	<table cellpadding="0" cellspacing="0" width="980" height="97">
		<tr>
			<td height="33" background="../Ku_img/link_001.jpg">
			<table cellpadding="0" cellspacing="0" width="975">
				<tr>
					<td height="20" width="29">　</td>
					<td height="20" width="151"><div id="dazi">
						<p align="left"><b>友情链接</b></div></td>
					<td height="20" width="364">　</td>
					<td height="20" width="102"><b>广告链接</b></td>
					<td height="20" width="97"><b>文字链接</b></td>
					<td height="20" width="173"><b><a href="javascript:void(0)" onclick="window.open('Alilink.asp',200,300)">
						<font color="#FF0000">申请链接</font></a></b></td>
					<td height="20" width="59"><a href="?link=more#bottom" >更多&gt;&gt;</a></td>
				</tr>
			</table>
			</td>
		</tr>
		<tr>
			<td height="60" background="../Ku_img/link_002.jpg">
			<%if request("link")="more" then%>
<div align=center>
			<table border="0" width="98%"  cellpadding="1" cellspacing="3" >
<%
	set rskind=server.CreateObject("adodb.recordset")
sqlkind="select top 99 * from Ku_link order by ID desc"
rskind.open sqlkind,conn,1,1
if rskind.eof then
%>
<tr style="border: 1px solid #D0D4D9"><td>没有链接</td></tr>
<% else 
  k=1
%>
<tr align="center" >
<% do while not rskind.eof%>
<td width="11%" style="border: 1px solid #D0D4D9" height="30"><a target="_blank" href="<%if rskind("biaoji")=0 then%>Ku_go.asp?ku_id=<%=rskind("id")%><%else%><%=rskind("url")%><%end if%>" title="网站：<%=rskind("name")%><%if rskind("biaoji")=0 then%>&#13&#10点击：<%=rskind("hits")%><%end if%>"><%=left(rskind("name"),7)%></a> 
</td>
<% if k mod 9 =0 then%> 
</tr><tr align="center">
<% end if%><% k=k+1
   rskind.movenext
   loop
end if
rskind.close
set rskind=nothing
%>
	</tr>
</table>
</div>
			
			<%else%>
			<div align=center>
			<table border="0" width="98%"  cellpadding="1" cellspacing="3" >
<%
	set rskind=server.CreateObject("adodb.recordset")
sqlkind="select top 18 * from Ku_link order by ID desc"
rskind.open sqlkind,conn,1,1
if rskind.eof then
%>
<tr style="border: 1px solid #D0D4D9"><td>没有链接</td></tr>
<% else 
  dim k
  k=1
%>
<tr align="center" >
<% do while not rskind.eof%>
<td width="11%" style="border: 1px solid #D0D4D9" height="30"><a target="_blank" href="<%if rskind("biaoji")=0 then%>Ku_go.asp?ku_id=<%=rskind("id")%><%else%><%=rskind("url")%><%end if%>" title="网站：<%=rskind("name")%><%if rskind("biaoji")=0 then%>&#13&#10点击：<%=rskind("hits")%><%end if%>"><%=left(rskind("name"),7)%></a> 
</td>
<% if k mod 9 =0 then%> 
</tr><tr align="center">
<% end if%><% k=k+1
   rskind.movenext
   loop
end if
rskind.close
set rskind=nothing
%>
	</tr>
</table>
</div>
<%end if%>
			</td>
		</tr>
		<tr>
			<td height="4">
			<img border="0" src="../Ku_img/link_003.jpg" width="980" height="4"></td>
		</tr>
	</table>
</div>

						