静态分页，求高手改上两笔！ - Web 开发 / Ajax
这是在网上找的一个分页静态显示的程序，现在显示的效果是
1.标题
2.标题
3.标题
4.标题
5.标题
我现在要的效果是
图片 图片 图片 图片
名称 名称 名称 名称
图片 图片 图片 图片
名称 名称 名称 名称
这种效果，麻烦高手帮改上两笔，用table也可以，先谢了
<%
'Dim pagesize
'sql="select top 1 * from [pagesize] order by id desc"
'rs.open sql,conn,1,1
'pagesize=rs("pagesize")
'rs.Close
If session("pagesize")="" Then session("pagesize")=9
Dim page
page=unescape(Request.QueryString("page"))
If page<>"" Then
sql="select * from [test] order by id asc"
rs.open sql,conn,1,1
If rs.eof Then
Response.Write(escape("还没有任何数据"))
Else
rs.pagesize=session("pagesize")
page=CLng(page)
If page<1 Then
page=1
ElseIf page>rs.pagecount Then
page=rs.pagecount
End If
rs.absolutepage=page
Dim i,str
str=str & "<div style='margin:0'>"
For i=1 To rs.pagesize
str=str & rs("id") & ". <a href='" & rs("weburl") & "' title='前往该网站' target='_blank'>" & rs("webname") & "</a><br />"
rs.movenext
If rs.eof Then Exit For
Next
str=str & "</div><div style='margin-top:10px;line-height:30px;text-align:left;border-top:1px #999 solid'>"
str=str & "<a href='javascript:void(getweblist(1))'><<</a> "
For i=1 To rs.pagecount
If i=page Then
str=str & "<span style='font-weight:bold;color:red;font-size:16px;'>" & i & "</span> "
Else
str=str & "<a href=javascript:void(getweblist(" & i & "))>" & i & "</a> "
End If
Next
str=str & " <a href='javascript:void(getweblist(" & rs.pagecount & "))'>>></a>"
str=str & "</div>"
str=escape(str)
Response.Write(str)
End If
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
Else
Response.Write(escape("Error：页数不能为空！"))
End If
%>
[解决办法]
这难道是失传的。。。asp？
看看改的对不对
- HTML code
rs.open sql,conn,1,1
If rs.eof Then
Response.Write(escape("还没有任何数据"))
Else
rs.pagesize=session("pagesize")
page=CLng(page)
If page <1 Then
page=1
ElseIf page>rs.pagecount Then
page=rs.pagecount
End If
rs.absolutepage=page
Dim i,str
str=str & " <div style='margin:0'>"
For i=1 To rs.pagesize
str = str & " <div style='width:80px;height:70px;text-align:center;float:left'> <img src="#" width="50px" height="50px" /> <br />"
str=str & rs("id") & ". <a href='" & rs("weburl") & "' title='前往该网站' target='_blank'>" & rs("webname") & " </a> </div>"
If i%4==0 then
str=str & " <br/>"
rs.movenext
If rs.eof Then Exit For
Next
[解决办法]
- HTML code
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><title> New Document </title><meta name="Generator" content="EditPlus"><meta name="Author" content=""><meta name="Keywords" content=""><meta name="Description" content=""><style type="text/css"> .oBox { width: 750px;/*宽度和下面的宽度对应 ，每行5个 5*100 + 空隙> 750就会换行*/ height: auto; border: 1px solid red; } .oUl { float: left; height: 200px; width: 100px;/*和上面的对应，超过750 就会自动换行*/ border: 1px solid red; } ul { list-style-type: none; }</style></head><body><div class="oBox"> <!--这里循环你的图片和名称--> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div> <div class="oUl"> <ul> <li><img src="http://t2.baidu.com/it/u=2859999574,1874525755&fm=0&gp=0.jpg"/></li> <li>name</li> </ul> </div><div></body></html>