静态分页，求高手改上两笔！-AJAX教程-爱易网页

静态分页，求高手改上两笔！

日期：2014-05-16　浏览次数：20768 次

静态分页，求高手改上两笔！ - 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 &

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

静态分页，求高手改上两笔！

相关资料更多>

推荐阅读更多>