查看linux版本内核 Linux内核版本的变化

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'数据分页显示 strUrl 设置成自己本页
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep)
Dim pgnum,page
page=Request("page")
objRs.PageSize = listSize
pgnum=objRs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then objRs.AbsolutePage=page
If page=1 Then
Response.Write " 首 页 | 上一页 | "
Else
Response.Write " <a class="& cssClass &" href="&strUrl&"page=1>首 页</a><span class="& cssSep &"> | </span>"
Response.Write "<a class="& cssClass &" href="&strUrl&"page="&page-1&"> 上一页</a><span class="& cssSep &"> | </span>"
End if
If objRs.pagecount-page<1 Then
Response.Write "下一页 | 尾 页"
Else
Response.Write "<a class="& cssClass &" href="&strUrl&"page="&page+1&">下一页</a><span class="& cssSep &"> | </span>"
Response.Write "<a class="& cssClass &" href="&strUrl&"page="&objRs.pagecount&">尾 页</a>"
End if
Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页"
End Function