<% dim myCnt,myRS,sTime,pageSize,recordFrom,pgNow,iCount,iRecords
pageSize=30
pgNow=request.querystring("pg")
if pgNow="" then pgNow=1
recordFrom=pageSize*(pgNow-1)
set myCnt=server.createobject("ADODB.connection")
myCnt.Open "driver={SQL Server};server=******;uid=******;pwd=******;database=******"
set myRS=server.createobject("ADODB.RecordSet")
myRS.Open "select cid,cname,ctime from company order by ctime DESC",myCnt,3,2
iRecords=myRS.recordcount
response.write "<div align=center>"
if pgNow>1 then response.write "<A href='/index.asp?pg="&pgNow-1&"'>上一页</A> "
if pageSize*pgNow < iRecords then response.write "<A href='/index.asp?pg="&pgNow+1&"'>下一页</A>"
response.write "(第"&pgNow&"/"&Int(iRecords/pageSize)+1&"页, 共"&iRecords&"条记录)"
response.write "</div>"
%>