<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
InKao 盈訄企业财富全球最大的中文企业库
<%
Dim startTime
dim find_f
if trim(request("find"))<>"" then
session("find_f")=request("find")
end if
startTime=Timer()
set rs_hot=server.createobject("adodb.recordset")
sq4="select top 10 * from [gogodata10]"
'if session("find_f")<>"" then
' sq4=sq4 &" where com like '%"& session("find_f") &"%' "
' else
' sq4=sq4
' end if
rs_hot.open sq4,conn,1,3
dim text,checkpage
text="0123456789"
rs_hot.PageSize=10
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs_hot.PageCount Then CurrentPage = rs_hot.PageCount
Else
CurrentPage= 1
End If
If not rs_hot.eof Then rs_hot.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
mypagesize=rs_hot.pagesize
%>
