<!--#include file="conn.asp" -->
<%
Set rc=Server.CreateObject("ADODB.Recordset")
sql="Select * from hp_shows order by Shows_id desc"
rc.open sql,conn,1,1
rc.pagesize=5
dim showspage
showspage=1
if request("showspage")<>"" then
showspage=cint(request("showspage"))
end if
if not rc.EOF and not rc.bof then
rc.absolutepage=showspage
end if
count=rc.pagesize
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>酷站推荐</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #005151;
}
a {
font-size: 12px;
color: #000000;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
color: #000000;
}
a:active {
text-decoration: none;
color: #000000;
}
-->
</style>
<link href="link.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="900" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"><table width="890" height="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right" valign="bottom" background="images/kz_logo.jpg"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="550" height="100">
<param name="movie" value="images/yu.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="images/yu.swf" width="550" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object></td>
</tr>
</table></td>
</tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="26" align="left" bgcolor="#000000" class="bai12"> 您当前的位置：首页 → 酷站推荐</td>
</tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<% if rc.eof then
Response.Write("暂无作品！")
end if
do while not rc.eof and count>0%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="125" align="center" valign="middle"><a href="Click.asp?Shows_id=<%=rc("Shows_id")%>" target=_blank><img src="<%=rc("shows_pic")%>" width="145" height="95" border="0"></a></td>
</tr>
</table>
<%
rc.movenext
count=count-1
loop
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#003737"></td>
</tr>
<tr>
<td height="1" bgcolor="#007B7B"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="38%" align="left" valign="middle" bgcolor="#005151" class="bd">Copyright All Rights Reserved </td>
<td width="60%" height="27" colspan="3" align="right" valign="middle" bgcolor="#005151" class="font">共<%=rc.pagecount%>页 <%=rc.pagesize%>个/页 目前第<%=Showspage%>页 <a href="?Showspage=1">首页</a>
<%if Showspage>1 then%>
<a href="?Showspage=<%=Showspage-1%>">上页</a>
<%else%>
上页
<%end if%>
<%if Showspage <rc.pagecount then %>
<a href="?Showspage=<%=Showspage+1%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?Showspage=<%=rc.pagecount%>>尾页</a> </td>
</tr>
</table>
<table width="98%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30"> </td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
大家帮忙看一下,这个页面,我想实现每页显示5行,第行显示5个,而且要横向排列的,它现在是竖向排列的.
求各位帮帮忙了!
急~~~~~
在线等~~~~~
