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
%>
| 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
%>
|
Spring 2003 |
|
Summer 2002 |
|
Winter 2001 |
|
Summer 2001 |
| |
|
