; html += "[<font color=#cccccc>上一页</font>] "
Else
html += "<a href=?id=" & articleid & "&page=" & (1) & ">[上一页]</a> "
End If
End If
For i = 1 To pagecount
If (i = pp) Then ''''如果是当前页，加粗显示
html += "<b>[" & i & "]</b> "
Else
html += "<a href=?id=" & articleid & "&page=" & i & ">[" & i & "]</a> "
End If
Next
If (pp + 1 > pagecount) Then ''''显示下一页，方便浏览
If pp = pagecount Then
html += "[<font color=#cccccc>下一页</font>] "
Else
html += "<a href=?id=" & articleid & "&page=" & (pagecount) & ">[下一页]</a></p>"
End If
Else
html += "<a href=?id=" & articleid & "&page=" & (pp + 1) & ">[下一页]</a></p>"
End If
End If
Label2.Text = html
End Sub
End Class
上一页 [1] [2] |
