<%
call ShowTop(3,5,"")
Dim con_
Dim rst_
Dim uppage
Dim downpage
Dim lngPageNum
Dim lngTNum
Dim lngPNum
Dim lngTemp_jy
Dim strSort
strSort=request("strSort")
lngPageNum=request("lngPageNum")
If strSort = "" Then strSort = "Id"
Set con_ = Server.CreateObject("ADODB.CONNECTION")
Set rst_ = Server.CreateObject("ADODB.recordset")
con_.Open con_gongs
If lngPageNum = "" Then lngPageNum = 1
rst_.Open "select count(*) as num from 公司", con_, 2, 4
lngTNum = rst_("num")
rst_.Close
Set rst_ = Nothing
con_.Close
Set con_ = Nothing
If lngTNum Mod lngPerPageNum = 0 Then
lngPNum = lngTNum / lngPerPageNum
Else
lngPNum = Int(lngTNum / lngPerPageNum) + 1
End If
uppage = 0
downpage = 0
If CLng(lngPageNum) < lngPNum Then downpage = lngPageNum + 1
If CLng(lngPageNum) > 1 Then uppage = lngPageNum - 1
Response.Write " "
Call ShowTop_GD
Call Show_List((lngPageNum - 1) * lngPerPageNum + 1, lngPerPageNum)
Call ShowTop_GD
Sub Show_List(lngStart, lngNum)
%>
<%
Dim con_
Dim rst_
Dim lngTemp
Dim lngTemp1
Set con_ = Server.CreateObject("ADODB.CONNECTION")
Set rst_ = Server.CreateObject("ADODB.recordset")
con_.Open con_gongs
rst_.Open "select * from 公司 order by " & strSort, con_, 2, 4
If Not rst_.EOF Then
For lngTemp = 1 To lngStart - 1
If Not rst_.EOF Then
rst_.MoveNext
Else
Exit For
End If
Next
lngTemp = 0
Do Until rst_.EOF
%>