|
Haliant
Technologies company news:
<%
Set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
rs.open"select * from news"
rs.pagesize=10
'读取参数
page=Clng(request.queryString("Page"))
'处理无效页码
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
'设置当前页
rs.absolutePage=page
for i=1 to rs.pagesize
varNo=(page-1)*rs.pagesize+i
%>
|
<%
rs.movenext
if rs.eof then exit for
next
%>
Coming Soon
|
|
Press Releases:
|
<%
Set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
rs.open"select * from news"
rs.pagesize=10
'读取参数
page=Clng(request.queryString("Page"))
'处理无效页码
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
'设置当前页
rs.absolutePage=page
for i=1 to rs.pagesize
varNo=(page-1)*rs.pagesize+i
%>
|
|
<%
rs.movenext
if rs.eof then exit for
next
%>
|
Newsletters:
|
<%
Set rs=server.CreateObject("adodb.recordset")
set rs.activeconnection=conn
rs.cursortype=3
rs.open"select * from news"
rs.pagesize=10
'读取参数
page=Clng(request.queryString("Page"))
'处理无效页码
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
'设置当前页
rs.absolutePage=page
for i=1 to rs.pagesize
varNo=(page-1)*rs.pagesize+i
%>
|
|
<%
rs.movenext
if rs.eof then exit for
next
%>
|
|
|
|
|
|
|
|
|
|
