 |
 |
CAPAC (ShenZhen) Automation system CO., LTD. U.S.A
students by senior engineers
And industry set up in 2000, Is committed to advanced foreign technology and localization in China.
With our strong scientific and technological strength innovation enthusiasm, dedication and hard work, the spirit of “sound faith and forge ahead, never following the operation,” the concept of maturity In order to provide our valued customers more convenient, efficient, thoughtful, comprehensive professional services.
Section may be initiate by: precision, stability, speed, and never damaged design concept.
Section may be represented by pursuit by the pursuit of .Advanced technology of the low-cost, high-tech equipment to break the myth of high price for the customer orders and continued to win the honor.
|
| >>Details |
|
 |
|
 |
<%
dim maxperpage,totalnumber,strfile
maxperpage=6
strfile="news.asp"
set rs=server.CreateObject("adodb.recordset")
sql="select * from news1 where nclassid=0 order by paixu"
rs.open sql,conn,1,1
totalnumber=rs.recordcount
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
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.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
i=0
do while not rs.eof
%>
 |
" class="news"><%=rs("title")%> |
[<%=year(rs("adddate"))&"-"&month(rs("adddate"))&"-"&day(rs("adddate"))%>] |
<%
rs.movenext
i=i+1
if i >= MaxPerpage then exit do
loop
%>
|
| >> More news |
|
 |
|
 |
<%
maxperpage=6
strfile="jszc.asp"
set rs=server.CreateObject("adodb.recordset")
sql="select * from news2 where nclassid=0 order by id desc"
rs.open sql,conn,1,1
totalnumber=rs.recordcount
text="0123456789"
Rs.PageSize=MaxPerPage
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.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
i=0
do while not rs.eof
%>
|
" class="news"><%=rs("title")%> |
<%
rs.movenext
i=i+1
if i >= MaxPerpage then exit do
loop
%>
|
| >> More |
|
 |
|
|
 |
|
 |
<%
maxperpage=30
strfile="product.asp"
set rs=server.CreateObject("adodb.recordset")
sql="select * from product where pic<>'' order by id desc"
rs.open sql,conn,1,1
totalnumber=rs.recordcount
text="0123456789"
Rs.PageSize=MaxPerPage
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.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
i=0
rowi=1
do while not rs.eof
if rowi<=1 then
response.write ""
end if
%>
&typeid=<%=rs("protypeid")%>"> " width="138" height="84" border="1" class="kk">
<% if len(rs("proname"))>24 then
response.write left(rs("proname"),24)
else
response.write rs("proname")
end if
%> |
<%
if rowi>=3 then
%>
| |
|
|
<%
rowi=1
else
rowi=rowi+1
end if
rs.movenext
i=i+1
if i >= MaxPerpage then exit do
loop
if rowi>1 then
do while (rowi>1 and rowi<=4)
response.write " | "
rowi=rowi+1
loop
%>
| |
|
|
<%
end if
rs.close
set rs=nothing
%>
|
