<%set fso=Nothing Call SiteInfo If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If %> <% =SiteTitle %>
<%=Folder(0)%>

  • 销售经理:<%=lxr%>
    联系手机:<%=mobile%>
    联系电话:<%=Telephone%>
    图文传真:<%=Fax%>
    客 服 QQ:<%=sygg%>
    客 服MSN:MSN在线咨询

  •   湖北江南东风专用特种汽车改装厂是一九九五年经政府主管部门批准组建成立,注册资金5000万元。企业现有职工783人,其中高级工程师26人,经济师18人,会计师7人,各种专业技术人员85人,具有大中专以上学历的392人。公司生产区占地面积3万平方米,各类配套生产200设施台(套),拥有年生产1500多辆改装车生产的能力,是东风、一汽及重汽专用汽车改装基地,注册商标"江特"牌,产品代码"jdf "。
    公司生产的主要产品有市政、环卫专用车系列(道路清障车、消防车、洒水车、吸粪车、吸污车、高压清洗车、垃圾自卸车、压缩自卸车、随车起重运输车、高空作业车),东风油罐车系列,东风洒水车系列,东风厢式、冷藏、保温系列,散装水泥车系列,及教练车等九大系列,数百品种。车型已全部上国家公告,并通过中国质量认证中心认证。
  • 企业展示

最新资讯

    <%=News("0,")%>

技术支持

    <%=News2("0,")%>
产品推荐
    <%=menup(0)%>
    <%=Products("0,2",2,4)%>
    <%=Products("0,4",2,4)%>
    <%=Products("0,5",2,4)%>
    <%=Products("0,3",2,4)%>
    <%=Products("0,7",2,4)%>
    <%=Products("0,11",2,4)%>
    <%=Products("0,14",2,4)%>
<% Function menup(id) Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType Set rs=server.CreateObject("adodb.recordset") sql="select top 7 * From Qianbo_ProductSort where CommendFlag=1 and ParentID="&id&" order by sort" rs.open sql,conn,1,1 if id=0 and rs.recordcount=0 then response.write ("
暂无产品分类
") exit function end if i=1 while not rs.eof ChildCount=conn.execute("select count(*) from Qianbo_ProductSort where CommendFlag=1 and ParentID="&rs("id"))(0) if ChildCount=0 then if i=rs.recordcount then FolderType="SortFileEnd" else FolderType="SortFile" end if FolderName=rs("SortName") onMouseUp="" else if i=rs.recordcount then FolderType="SortEndFolderClose" ListType="SortEndListline" onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');" else FolderType="SortFolderClose" ListType="SortListline" onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');" end if FolderName=rs("SortName") end If datafrom="Qianbo_ProductSort" If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.asp?SortID="&rs("ID")&"" End If ' response.write(""&FolderName&"") if i-1=0 then response.write "
  • "&FolderName&"
  • " else response.write "
  • "&FolderName&"
  • " end if if ChildCount>0 then %> <% menup(rs("id")) %> <% end if rs.movenext i=i+1 wend rs.close set rs=nothing end Function %> <% Function Folder(id) Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType Set rs=server.CreateObject("adodb.recordset") sql="select top 14 * From Qianbo_ProductSort where ParentID="&id&" order by sort" rs.open sql,conn,1,1 if id=0 and rs.recordcount=0 then response.write ("
    暂无产品分类
    ") exit function end if i=1 while not rs.eof ' ChildCount=conn.execute("select count(*) from Qianbo_ProductSort where ParentID="&rs("id"))(0) ChildCount=conn.execute("select count(*) from Qianbo_ProductSort where ParentID="&rs("id"))(0) if ChildCount=0 then if i=rs.recordcount then FolderType="SortFileEnd" else FolderType="SortFile" end if FolderName=rs("SortName") onMouseUp="" else if i=rs.recordcount then FolderType="SortEndFolderClose" ListType="SortEndListline" onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');" else FolderType="SortFolderClose" ListType="SortListline" onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');" end if FolderName=rs("SortName") end If datafrom="Qianbo_ProductSort" If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.asp?SortID="&rs("ID")&"" End If response.write""&FolderName&""&VbCrLf if ChildCount>0 then %> <% Folder(rs("id")) %> <% end if rs.movenext i=i+1 wend rs.close set rs=nothing end Function %> <% function viewjj() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_About where id=1 " rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "没有企业简介内容" else response.write ""&Left(rs("Content"),576)&"..." end if rs.close set rs=nothing end Function %> <% function News(SortPath) dim rs,sql,NewsName,NewFlag set rs = server.createobject("adodb.recordset") ' sql="select top 12 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by sort desc" sql="select top 12 * from Qianbo_News where ViewFlag=1 and CHARINDEX('"&SortPath&"',SortPath)>0 order by sort desc" rs.open sql,conn,1,1 if rs.eof then Response.Write " 暂无相关信息"&VbCrLf else do while not rs.eof newsname2=rs("newsname") if now()-rs("addTime")<=2 then NewsName=StrLeft(rs("NewsName"),39) NewFlag=" " else NewsName=StrLeft(rs("NewsName"),40) NewFlag="" end If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.asp?ID="&rs("id")&"" End If ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf' Response.Write "
      "&NewsName&""&NewFlag&"  "&FormatDate(rs("Addtime"),14)&"
    "&VbCrLf ' Response.Write "
  • "&NewsName&""&NewFlag&"
  • "&VbCrLf ' response.write "
  • "&FormatDate(rs("Addtime"),14)&" "&NewsName&""&NewFlag&"
  • " response.write "
  • "&NewsName&""&NewFlag&"
  • "&VbCrLf rs.movenext loop end if rs.close set rs=nothing end Function Function Products(SortPath,trs,tds) dim rs,sql,tr,td,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") ' sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and CommendFlag order by sort desc" sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag=1 and CommendFlag=1 and CHARINDEX('"&SortPath&"',SortPath)>0 order by sort desc" ' sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write "暂无相关信息" else for tr=1 to trs for td=1 to tds if StrLen(rs("ProductName"))<=24 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),22) end If If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("id")&"" End If SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.write ""&ProductName&""&VbCrLf rs.movenext if rs.eof then exit for next ' Response.Write "
    "&VbCrLf if rs.eof then exit for next ' Response.Write "
    "&VbCrLf end if rs.close set rs=nothing End Function Function FriendLinks(trs,tds) dim rs,sql,tr,td,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select top "&trs*tds&" * from Qianbo_FriendLink where ViewFlag=1 order by ID desc" rs.open sql,conn,1,1 if rs.eof then response.write "暂无相关信息" else Response.Write ""&VbCrLf for tr=1 to trs Response.Write " "&VbCrLf for td=1 to tds if StrLen(rs("LinkFace"))<=18 then LinkFace=rs("LinkFace") else LinkFace=StrLeft(rs("LinkFace"),16) end if Response.Write " "&VbCrLf Response.Write " "&VbCrLf rs.movenext if rs.eof then exit for next Response.Write " "&VbCrLf if rs.eof then exit for next Response.Write "
    "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "
    " If rs("LinkType") = 0 Then Response.Write ""&LinkFace&"" Else Response.Write ""&VbCrLf End If Response.Write "
    "&VbCrLf end if rs.close set rs=nothing End Function function News2(SortPath) dim rs,sql,OthersName,NewFlag set rs = server.createobject("adodb.recordset") sql="select top 12 * from Qianbo_Others where ViewFlag=1 and CHARINDEX('"&SortPath&"',SortPath)>0 order by sort desc" rs.open sql,conn,1,1 if rs.eof then Response.Write " 暂无相关信息"&VbCrLf else do while not rs.eof OthersName2=rs("OthersName") if now()-rs("addTime")<=2 then OthersName=StrLeft(rs("OthersName"),39) NewFlag=" " else OthersName=StrLeft(rs("OthersName"),40) NewFlag="" end If If ISHTML = 1 Then AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "OtherView.asp?ID="&rs("id")&"" End If ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write " "&VbCrLf ' Response.Write "
      "&OthersName&""&NewFlag&"  "&FormatDate(rs("Addtime"),14)&"
    "&VbCrLf ' Response.Write "
  • "&OthersName&""&NewFlag&"
  • "&VbCrLf response.write "
  • "&OthersName&""&NewFlag&"
  • "&VbCrLf rs.movenext loop end if rs.close set rs=nothing end Function %>