军警车辆事业部
电话：022 82120300/82100883 82128100-2209
传真：022 82119157 销售热线：13381221905
E-mail：milipol@centechsv.com　

医用车辆销售 电话：010-59275050
E-mail：medivan@centechsv.com

海外事业部　
电话:022 82126391　 手机:13820705476　
传真:022 82128134
E-mail: info@centechsv.com

广电及通讯产品事业部
电话:022 82128100-1017,82120432 手机:13920360196
传真:82119157
E-mail:wangjl@centechsv.com　

 

 

请留下您的联系方式,我们会及时与您联系!

姓名: *
电话: *
email: *请输入正确的E-mail
通迅地址:
备注:
　

 

北京中天高科特种车辆有限公司　地址:北京市朝阳区姚家园路105号2号楼（观湖国际大厦B座）5层 　　电话:010-59275050
　　销售热线：13911116793 　　E-mail：sales@centechsv.com

　　　　　医用车辆销售 　电话：010-59275050 　E-mail：medivan@centechsv.com
　　　　　军警车辆事业部 电话：022 82120300/82100883 82128100-2209 传真：022 82119157 　 销售热线：13381221905
　　　　　　　　　　　　 E-mail： milipol@centechsv.com
　　　　　海外事业部　　 电话:022 82126391　传真:022 82128134 手机:13820705476　E-mail: info@centechsv.com
　　　　　广电及通讯产品事业部　电话:022 82128100-1017,82120432　传真:82119157 手机:13920360196
　　　　　　　　　　　 　E-mail:wangjl@centechsv.com　　　　　　　　　　
<%Sub IndexSAQ() dim sql,rs,tempID '活动 dim burchid burchid=131214 set rs=server.CreateObject("adodb.recordset") %>
<%sql="Select top 8 * from Articles where ArticleID<>'" &tempID& "' and classID Like '"&BurchID&"%' order by pubTime desc" rs.open sql,sqlconn,1,1%> <%while not rs.EOF %> <%rs.movenext Wend rs.close%>
·" target="_blank"><%=dotitle(rs("title"),45)%><%if rs("ifImg")=1 then Response.Write "(图)" end if%>
<% End Sub%> <%Sub IndexPagePic(BurchID) dim sql,rs,tempID set rs=server.CreateObject("adodb.recordset") %> <% end sub%> <% Function doTitle(tit, co) '公共函数 Dim i Dim av Dim c c = 0 If co = "" Then co = 20 ' On Error GoTo errh If Trim(tit) = "" Then doTitle = "": Exit Function For i = 1 To Len(tit) av = Asc(Mid(tit, i, 1)) If av >= 0 And av <= 256 Then c = c + 1 Else c = c + 2 End If If (c = co And lenT(tit) > c) Or ((c = (co + 1)) And lenT(tit) > (c + 1)) Or ((c = (co + 2)) And lenT(tit) > (c + 2)) Then doTitle = Left(tit, i) & "..." Exit Function End If Next doTitle = tit Exit Function 'errh: ' response.write (Err.Description) End Function '--------------------------- Function lenT(a) Dim i Dim av Dim c For i = 1 To Len(a) av = Asc(Mid(a, i, 1)) If av >= 0 And av <= 256 Then c = c + 1 Else c = c + 2 End If Next lent=c End Function %>