- 博客(0)
- 资源 (3)
- 收藏
- 关注
留言版系统留言版系统留言版系统
If Page > 1 Then
Response.Write "<a href='Default.asp?Page=1' title='首页'><font face=webdings>" & 9 & "</font></a>"
Response.Write " <a href='Default.asp?Page="&Page-1&"' title='上一页'><font face=webdings>" & 7 & "</font></a>"
End If
If Rs.PageCount <= 4 Then
For j = 1 To Rs.PageCount
Response.Write " <a href='Default.asp?Page="&j&"'>" & j & "</a>"
Next
Else
For j = 1 To 4
Response.Write " <a href='Default.asp?Page="&j&"'>" & j & "</a>"
Next
If Page < Rs.PageCount Then
Response.Write " <a href='Default.asp?Page="&Page+1&"' title='下一页'><font face=webdings>" & "8" & "</a></font>"
End If
Response.Write " <a href='Default.asp?Page="&Rs.PageCount&"' title='尾页'><font face=webdings>:</font></a>"
End If
2011-05-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人