产品展示   应用案例   最新下载  
<% dim i i=0 set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from chanpin order by chanpin_id asc" rs.open sql,conn,1,1 If Rs.Eof and Rs.Bof Then response.Write("
  暂时没有产品!") else do while not rs.eof %> <% i=i+1 rs.movenext loop end if %>
   更多...   
 
<%a=0 set rs=server.CreateObject("adodb.recordset") sql="select top 30 * from sever where type_id=15 order by news_id desc" rs.open sql,conn,1,1 do while not rs.eof %> <% a=a+1 if a mod 2 = 0 then response.write("") rs.movenext loop %>
·" target="_blank"> <%if len(rs("title"))>30 then%> <%=left(rs("title"),30)%>.. <%else%> <%=rs("title")%> <%end if%>
   更多...   
<%set rs=server.CreateObject("adodb.recordset") sql="select top 15 * from download order by px desc,news_id desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop %>
·" title="<%=rs("title")%>" target="_blank"> <%if len(rs("title"))>50then%> <%=left(rs("title"),50)%>.. <%else%> <%=rs("title")%> <%end if%> <%=rs("content")%>
【<%=left(rs("addtime"),10)%>】
   更多...