24小时服务电话:0592-6305388
QQ客服: 点击这里给我发消息  点击这里给我发消息
软件销售 其它系统 平台租用 用户手册
  用户名: 密 码: |
无需专业技术,5分钟圆你建站梦!  现在申请 免费适用15天  立即申请  
  当前位置:首页 >> 模板展示

·通用模板

    二列架构      三列架构      自调色彩

·行业模板

·组合模板

    二列架构

 三列架构

 

·网店模板

     网上商店

 ·展厅模板

     网上展厅

·封面模板

     网站封面

 ·外文模板

     外文组合
<% set con=application("company_cic") Sub showLei() sql="select distinct type,len(type) from commoban order by len(type) desc" set rs=server.createobject("adodb.recordset") rs.open sql,con if not rs.eof then htm=""& vbcrlf do while not rs.eof htm=htm&""& vbcrlf htm=htm&""&vbcrlf rs.movenext loop htm=htm&"" htm=htm&"
  "&rs("type")&"
"& vbcrlf sql="select distinct fenlei from commoban where type='"&rs("type")&"'" set rs_1=server.createobject("adodb.recordset") temphtm=""& vbcrlf rs_1.open sql,con if not rs_1.eof then do while not rs_1.eof temphtm=temphtm&""& vbcrlf for i=1 to 4 if NOT rs_1.eof then temphtm=temphtm&""& vbcrlf rs_1.movenext ELSE temphtm=temphtm&""& vbcrlf end if next temphtm=temphtm&""& vbcrlf loop end if set rs_1=nothing temphtm=temphtm&"
"&rs_1("fenlei")&"
"& vbcrlf htm=htm&temphtm& vbcrlf htm=htm&"
网站封面外文组合
"& vbcrlf set rs=nothing response.write htm end if end Sub %><% set con=nothing %>
  厦门市讯海信息科技有限公司 版权所有 软著登字第066843号 闽ISP证闽B2-20100038号 闽ICP备10000675号-3