<% strCurrMenu="14977" %>
 
 
 
标题 内容
 


 宜生公司办公室地址:

   美国办公室: 1012 Keystone trail Drive
   Chesterfield, Missouri 63005, USA
   电话: (636)675 8560
   传真: (636)536 6668
   网站: www.easen-china.com

   上海公司: 长宁区长宁路 988 号花园大厦 5F
   中国,上海 200051
   电话: (86-21)5273 8396
   传真: (86-21)5273 8395

   北京公司: 科技大厦 C 座 26 楼
   清华大学,海淀区的东门
   中国,北京 100084
   电话: (86-10)8215 0326
   传真: (86-21)8215 0335

   武汉公司: 徐东大街 7 号 A 座 1207 室
   中国湖北省武汉市武昌区 430063 ,
   电话: (86-27)86819561 / 8682 6990
   传真: (86-21)8682 8197

   安徽办公室: 环城南路 28 号
   中国安徽省合肥市 230001
   电话: (86-551)2634601/2654911
   传真: (86-551)2654911

<% '开始输出分类 strcode="" for i=1 to Len(SourCode) \ 4 strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'" next if strcode<>"" then strcode="(1<>1"&strcode&" or Len(c_code)=4)" else strcode=" Len(c_code)=4" end if strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & " Order by c_code" 'response.Write(strsql) Set rsClass=Server.CreateObject("ADODB.RecordSet") rsClass.open strSQL,conn,1,1 for i=1 to rsClass.recordcount Level=(Len(rsClass("c_code"))/4-1)*3 %> <% rsClass.movenext next %>
<% If Len(rsClass("c_code"))>4 Then Response.Write "├" Response.Write String(Level,"-") %> &classname=<%=trim(rsClass("c_name"))%>"><%=trim(rsClass("c_name"))%>

留言板
Copyright© 2006 年 Easen International Company, Ltd. 美国宜生国际有限公司版权所有
上海公司: 长宁区长宁路 988 号花园大厦 5F   
 电话:(86-21)5273 8396 传真:(86-21)5273 8395
更新于