 |
|
 |
| |
<%
dim i,intPage,page,pre,last,filepath
set rsp = server.createobject("adodb.recordset")
productsSQL= "select * from News where TreeID like '%27%' and Putout=true order by Addtime desc"
'rsp.open productsSQL,conn,1,1
rsp.PageSize = 6 '这里设定每页显示的记录数
rsp.CursorLocation = 3
rsp.Open productsSQL,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rsp.PageCount then
intpage = rsp.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rsp.eof then
rsp.AbsolutePage = intpage
end if
%>
<%
if rsp.bof then Response.write" 您还没有添加新闻内容!
"
%>
<%
for i=1 to rsp.PageSize
if rsp.EOF or rsp.BOF then exit for
%>
 |
In the year 2001, becoming the GSM network service supplier of Nokia. |
 |
In the year 2003, becoming the CDMA network service supplier of Bell Samsung. |
 |
In the year 2003, becoming the international machinery system integration service supplier of IBM (China). |
 |
In the year 2005, becoming the NEC-WCDNA network service supplier. |
 |
In the year 2006, becoming one of NSN’S significant cooperators in China. |
 |
In the year 2007, financing successfully. |
<%
rsp.movenext
next
%>
|
|
|
 |
|
 |
|