中国美容产业网

<% dim infokind set rs=server.CreateObject("ADODB.RecordSet") rs.Open ("select * from db_issue where i_infokind=6 order by i_infokind,i_edittime Desc"),conn,3,3 'set rs=Conn.Execute("select * from db_issue where i_infokind=6 order by i_infokind,i_edittime Desc") if rs.eof and rs.bof then %> <% else rs.PageSize=8 if request("page")=page then page=1 else page=CLng(request("page")) end if rs.AbsolutePage=page strListPage="hangyexinxi.asp" intTotalPage=rs.PageCount if page<1 then intPagePrevious=1 else intPagePrevious=page-1 end if intPageNext=page+1 if page>intTotalPage then intPageNext=intTotalPage end if end if %> 中国美容产业网 <% function substring(s) if len(s)>13 then s=Left(s,11)&"..." else s=s end if substring = s end function function substring1(s) if len(s)>11 then s=Left(s,9)&"..." else s=s end if substring1 = s end function function substring0(s) if len(s)>34 then s=Left(s,31)&"..." else s=s end if substring0 = s end function %>

站点导航
设为首页
收入收藏夹

黄页大全

美博中心第二期商铺招商现已展开，欢迎各大商家莅临，地址：广州市天河区体育西路189号城建大厦首至五层，招商热线：020-38796828

产品招商

<% '输出信息发布栏--开始 set rs=Conn.Execute("select * from db_issue where i_infokind=8 order by i_infokind,i_edittime Desc") i=0 ig=0 while not rs.eof and i<6 If (DateDiff("d", Now, rs("i_edittime")) > -3) Then %> <% Else %> <% End If i=i+1 ig=ig+1 rs.movenext wend '输出信息发布栏--结束 %>

','detailinfo3<%=ig%>','left=20,width=620,height=525,scrollbars=yes')"><%=Trim(rs("i_title"))%>

美容管理

<% '输出信息发布栏--开始 set rs=Conn.Execute("select * from db_issue where i_infokind=6 order by i_infokind,i_edittime Desc") i=0 ih=0 while not rs.eof and i<6 If (DateDiff("d", Now, rs("i_edittime")) > -3) Then %> <% Else %> <% End If i=i+1 ih=ih+1 rs.movenext wend '输出信息发布栏--结束 %>

','detailinfo4<%=ih%>','left=20,width=620,height=525,scrollbars=yes')"><%=(Trim(rs("i_title")))%>

国际商会

关于商会

成立背景

组织架构

美容培训

<% '输出信息发布栏--开始 set rs=Conn.Execute("select * from db_issue where i_infokind=7 order by i_infokind,i_edittime Desc") i=0 ii=0 while not rs.eof and i<6 If (DateDiff("d", Now, rs("i_edittime")) > -3) Then %> <% Else %> <% End If i=i+1 ii=ii+1 rs.movenext wend '输出信息发布栏--结束 %>

','detailinfo5<%=ii%>','left=20,width=620,height=525,scrollbars=yes')"><%=(Trim(rs("i_title")))%>

政策法规

<% '输出信息发布栏--开始 set rs=Conn.Execute("select * from db_issue where i_infokind=13 order by i_infokind,i_edittime Desc") i=0 ij=0 while not rs.eof and i<6 If (DateDiff("d", Now, rs("i_edittime")) > -3) Then %> <% Else %> <% End If i=i+1 ij=ij+1 rs.movenext wend rs.close '输出信息发布栏--结束 %>

','detailinfo6<%=ij%>','left=20,width=620,height=525,scrollbars=yes')">

<%=(Trim(rs("i_title")))%>

','detailinfo6<%=ij%>','left=20,width=620,height=525,scrollbars=yes')">

<%=(Trim(rs("i_title")))%>

咨询中心