| About Us |
| <%=left(AboutContent(11),200)%>.. |
| More |
|
|
|
|
| Product |
|
<%
set rsp = server.createobject("adodb.recordset")
productsSQL= "select * from NwebCn_Products order by id desc"
rsp.PageSize =4
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
%>
<%
rsp.movenext
next
%>
<%
dim rdcount,page,mpage,url
url="index.asp"
rdcount=rsp.recordcount
page=intpage
mpage=rsp.PageCount
%>
<%
if page>1 then
response.write " 9"
else
response.write "9"
end if
if page>1 then
response.write "Previous"
else
response.write "Previous"
end if
add=9
if page-int(add/2)<=1 then m=1 else m=page-int(add/2)
if m+add>mpage then
n=mpage
if mpage-add<=1 then m=1 else m=mpage-add
else
n=m+add
end if
for pno=m to n
if pno=cint(page) then
response.write " "&pno&""
else
response.write " "&pno&""
end if
next
response.write " "
if int(page) < int(mpage) then
response.write "Next"
else
response.write "Next"
end if
if int(page) < int(mpage) then
response.write ": "
else
response.write ":"
end if
Response.write " "
%>
|
|
