科可派自动化技术有限公司是由留美学生和行业资深工程师于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 %> <% rs.movenext i=i+1 if i >= MaxPerpage then exit do loop %>
" class="news"><%=rs("title")%> [<%=year(rs("adddate"))&"-"&month(rs("adddate"))&"-"&day(rs("adddate"))%>]
>> 更多新闻   
<% 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 %> <% rs.movenext i=i+1 if i >= MaxPerpage then exit do loop %>
" class="news"><%=rs("title")%>
>> 更多   
 
<% 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 %> <% 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 %>
             &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 %>

     
     
 
 
<% maxperpage=30 strfile="product.asp" set rs=server.CreateObject("adodb.recordset") sql="select * from producttype 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 do while not rs.eof %> <% rs.movenext i=i+1 if i >= MaxPerpage then exit do loop %>
         ">" width="147" height="92" border="0" class="kk">

<% if len(rs("typename"))>24 then response.write left(rs("typename"),24) else response.write rs("typename") end if %>