 |
 |
| 科可派自动化技术有限公司是由留美学生和行业资深工程师于2000年组建，致力于精密自动化制造设备及高精度自动化检测系统核心技术的研发和创新;十多年来我们引进国外先进技术并结合自己的资源优势在SMT组装、太阳能光伏、汽车电子应用工程等行业取得卓越成就;…… |
| >>详细简介 |
|
 |
|
 |
<%
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
%>
|
| >> 更多新闻 |
|
 |
|
 |
<%
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
%>
|
| >> 更多 |
|
 |
|
|
 |
|
 |
<%
maxperpage=30
strfile="product.asp"
set rs=server.CreateObject("adodb.recordset")
sql="select * from product where pic<>'' order by paixu"
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="0" 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
%>
|
