www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > link.asp
<!-- #include file="conn.asp" -->
<!-- #include file="inc/function.asp" -->
<!--#include file="include.asp"-->
<!--#include file="inc/asppage.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接 <%=siteName%></title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #000000;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #FFFFFF;
}
a link{white;}
.red{color:#FF0000;}
-->
</style>
</head>
<body>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><img src="images/aboutme_r1_c6.jpg" width="276" height="55" border="0" usemap="#Map2"><map name="Map2"><area shape="rect" coords="144,26,211,43" href="default.asp"><area shape="rect" coords="212,26,266,42" href="link.asp"></td>
</tr>
<tr>
<td align="left">
<table width="100%" height="280" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="2%" valign="bottom"><img src="images/aboutme_r3_c1.jpg" width="57" height="90"></td>
<td width="60%" valign="top">
<table width="100%" height="280" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<%Call main()%>
</td>
</tr>
</table></td>
<td width="38%"><img src="images/aboutme_r2_c5link.jpg" width="386" height="267"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%" rowspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="67%"><img src="images/aboutme_r4_c1link.jpg" width="292" height="165"></td>
<td width="33%" rowspan="2"><img src="images/aboutme_r4_c3.jpg" width="145" height="278"></td>
</tr>
<tr>
<td><img src="images/aboutme_r6_c1.jpg" width="292" height="113"></td>
</tr>
</table></td>
<td width="56%"><img src="images/aboutme_r4_c4.jpg" width="563" height="82" border="0" usemap="#Map"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r1_c1.jpg" width="563" height="93"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r3_c1.jpg" width="563" height="103"></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map"><area shape="rect" coords="297,53,372,77" href="tool.asp">
<area shape="rect" coords="229,40,291,70" href="photo.asp">
<area shape="rect" coords="148,42,229,72" href="Multimedia.asp">
<area shape="rect" coords="80,43,143,73" href="Article.asp">
<area shape="rect" coords="15,44,77,77" href="aboutme.asp">
<area shape="rect" coords="387,48,464,75" href="book.asp">
</map>
</body>
</html>
<%
Sub main()
%>
<table align="left" align="center" width="553" height="275" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" ><strong>文字链接</strong></td>
</tr>
</table>
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
sql="Select * From link Where logo='' and iskey=1 order by ps asc, id desc"
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=15 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Exit for
End If
%>
<td align="left" width="115" height="20"><a href="linkhit.asp?id=<%=rs("id")%>" target="_blank"><%=strtrim(rs("name"),16)%></a></td>
<%
If i Mod 5 =0 Then %>
</tr>
<tr align="center">
<%
End If
rs.MoveNext
Next
%>
</tr>
</table>
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" ><strong>图片链接</strong></td>
</tr>
</table>
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
sql="Select * From link Where logo<>'' and iskey=1 order by ps asc, id desc"
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=10 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Exit for
End If
%>
<td align="left" width="115" height="35">
<a href="linkhit.asp?id=<%=rs("id")%>" target="_blank">
<img src="<%=rs("logo")%>" width="88" height="31" alt="<%=rs("name")%>" border="0"></a></td>
<%
If i Mod 5 =0 Then %>
</tr>
<tr align="center">
<%
End If
rs.MoveNext
Next
%>
</tr>
<tr align="center"><td colspan="5"><%mypage.showpage() %></td></tr>
</table>
</tr>
</tr>
</table>
<%
End Sub
%>