全乱了求图片的效果
谁有图片这样效果的代码给小弟一份小弟发了个帖子
https://bbs.bccn.net/viewthread.php?tid=327292&highlight=%B7%D6%D2%B3 但问题没解决 我就是想实现图片的那样的效果 一行多记录显示并带分页
这是我自己做的一个 但是分页没法用 记录显示也不行 不对齐
拜求~~
<%
Dim db,strSql,rs
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=background"
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="Select * From news where typestr ='鲁菜'order by id desc"
rs.Open strSql,db,1
%>
<table cellspacing="0" cellpadding="0" width="510" background="../images/tu_di.gif" border="0">
<tr>
<td width="7"><img height="29" src="../images/tu(1).gif" width="7" /></td>
<td ><font color="#ffffff"><b>列表</b></font></span></td>
<td width="7"><img height="29" src="../images/tu1.gif" width="7" /></td>
</tr>
</table>
<%
Rs.PageSize = 3
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1" & Qs
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount & Qs
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo
dim FY_i
FY_i=1
For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
if FY_i=1 or FY_i mod 3=1 then
%>
<table style="BORDER-RIGHT: #1f92ff 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #1f92ff 1px solid; BORDER-BOTTOM: 0px;" cellspacing="0" width="510" border="0" >
<tr height="10"><%end if%>
<td valign="top">
<div align="left"><%
if len(rs("title")) > 8 then
if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
%><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
response.Write left(rs("title"),5)&" ..." %></a> <img src="../images/pic.gif" width="12" height="12"><%
else
%><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
response.Write left(rs("title"),5)&" ..."%></a><%
end if
else
if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
%><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
response.write rs("title")%></a> <img src="../images/pic.gif" width="12" height="12"><%
else
%><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
response.write rs("title")%></a><%
end if
end if
%></div></td> <%
if FY_i mod 3=0 then
%>
</tr>
</table><% end if
FY_i=FY_i+1
rs.movenext
next
%> <table style="BORDER-RIGHT: #1f92ff 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #1f92ff 1px solid; BORDER-BOTTOM: #1f92ff 1px solid" cellspacing="0" width="510" border="0" >
<tr><td> </td></tr>
<tr>
<td align="center">
总[<span class="style1">
<% = Rs.RecordCount%>
</span>]条<strong>|</strong> <span class="style1">
<% = Rs.PageSize%>
</span>条<strong>/</strong>页 <strong>|</strong> 当前<span class="style1">
<% = PageNo%>
</span><strong>/</strong><span class="style1">
<% = Rs.PageCount%>
</span>页 <a href="lb.asp?PageNo=1" >首页</a> <a href="lb.asp?PageNo=" >上一页</a> <a href="lb.asp?PageNo=">下一页</a> <a href="lb.asp?PageNo=<% = Rs.RecordCount%>">尾页</a>
<!--分页代码结束-->
</td>
</tr>
</table>
麻烦帮我看一下红色部分的?PageNo=后面写什么 这个分页的代码是我从网上找的 看的不是太明白
没用