<% sql = "select * from AD" rs.open sql,conn,1,1 if rs.eof then response.end i=0 do while not rs.eof and i<3 %> ">" width="1353" height="350" alt="<%= rs.fields("ADname") %>" /> <% rs.movenext i = i+1 loop rs.close %>

热门关键词: <% set rs=server.CreateObject("adodb.recordset") sql = "select top 4 * from titleurl" rs.open sql,conn,1,1 do while not rs.eof %> " target="_blank" title="<%= rs.fields("titlename") %>"><%= rs.fields("titlename") %>西安办公家具厂 <% rs.movenext loop rs.close %>

典致产品分类


PRODUCT CLASSIFICATION

<% set rs=server.CreateObject("adodb.recordset") set rs1=server.CreateObject("adodb.recordset") sql = "select * from bigclass" rs.open sql,conn,1,1 do while not rs.eof %>
  • <%= rs.fields("bigclassname") %>

    <% sql = "select * from classs where bigclassid=" & rs.fields("id") rs1.open sql,conn,1,1 do while not rs1.eof %> <% rs1.movenext loop rs1.close rs.movenext loop rs.close %>
  • 企业定制服务列表

    <% set rsx=server.CreateObject("adodb.recordset") sql = "select * from class1 order by paixu asc" rsx.open sql,conn,1,1 i=1 do while not rsx.eof if rsx.fields("eclass")="" then classlink="/class/keshi"&rsx.fields("class1_id")&".html" else classlink="/class/"&rsx.fields("eclass")&".html" end if %> <% rsx.movenext loop rsx.close %>
  • DIANZHIJIAJU

  • 典致热销排行:

  • <% set rsx=server.CreateObject("adodb.recordset") sql = "select * from classs order by paixu asc" rsx.open sql,conn,1,1 i=1 do while not rsx.eof and i<6 if rsx.fields("eclass")="" or rsx.fields("eclass")="0" then classlink="/class/class"&rsx.fields("sort_id")&".html" else classlink="/class/"&rsx.fields("eclass")&".html" end if %> <%= rsx.fields("class") %> <% rsx.movenext i=i+1 loop rsx.close %>
  • <% set fsos=Server.CreateObject ("Scripting.FileSystemObject") set rs=server.CreateObject("adodb.recordset") sql="select * from products where indexshow='1' order by id asc" rs.open sql,conn,1,3 pronum = 0 do while not rs.eof and pronum<9 if rs.fields("pagename")<>"" then filename = rs.fields("pagename") else filename = "product-" & rs.fields("id") end if fpath=server.MapPath ("product/" & filename & ".html") if fsos.FileExists(fpath) then nowfileurl = "product/" & filename & ".html" else nowfileurl = "product_show.asp?id=" & rs.fields("id") end if %> <% pronum = pronum+1 rs.movenext loop rs.close %>
    典致办公家具西安办公家具批发 西安办公家具定制 西安办公家具厂 典致办公家具
    <% sql = "select * from AD where id=9" rs.open sql,conn,1,1 if rs.eof then response.end %> " alt="<%= rs.fields("ADname") %>" target="_blank">" /> <% rs.close %>

    <%= tong1 %>

    上班头疼,下班就好

    <%= tong2 %>

    <%= tong3 %>

    龟速发货,毫无效率

    <%= tong4 %>

    <%= tong5 %>

    木纹开裂,炸皮开胶

    <%= tong6 %>

    <% sql = "select * from AD where id=10" rs.open sql,conn,1,1 if rs.eof then response.end %> " alt="<%= rs.fields("ADname") %>" target="_blank">
    ); background-repeat:no-repeat;background-position:center;height:344px;padding-top:90px;border-bottom:dashed #ddd 2px;" >
    <%rs.close%>

    <%= liyou1 %>


    <%= liyoutxt1 %>

    <%= liyou2 %>


    <%= liyoutxt2 %>

    <% sql = "select * from AD where id=9" rs.open sql,conn,1,1 if rs.eof then response.end %>
    " title=""> <% rs.close %>

    <%= liyou3 %>


    <%= liyoutxt3 %>

    <%= liyou4 %>


    <%= liyoutxt4 %>

    <%= liyou5 %>


    <%= liyoutxt5 %>

    西安办公家批发
    西安办公家批发

    看看用过的客户怎么说

    MORE+
    <% Function RemoveHTMLTag(fString) '//功能:去参数字符串中的所有 HTML 标签元素 Dim ObjReg If(Isnull(fString))Then fString="" fString = Replace(Replace(fString,"<","<"),">",">") '//预处理 Set ObjReg = New RegExp '//建立正则对象 ObjReg.Pattern = "<[^>]+>|]+>" '//设置正则模式 ObjReg.Global = true '//是否全局 fString = ObjReg.Replace(fString,"") '//使用正则替换 RemoveHTMLTag = fString End Function %> <% sql="select * from custuser" rs.open sql,conn,1,3 custnum = 0 do while not rs.eof and custnum<4 %> <% rs.movenext custnum = custnum+1 loop rs.close %>
    西安办公家具厂
    <% sql = "select * from AD where id=11" rs.open sql,conn,1,1 if rs.eof then response.end %>
    " alt="<%= rs.fields("ADname") %>" target="_blank">" />
    <%rs.close%>
  • 走进典致家俱

  • MORE+
  • 典致家俱简介
  • <% set rsw=server.CreateObject("adodb.recordset") rsw.Open "select * from about where id=28",conn,1,3 if not rsw.eof then response.Write(rsw("about")) else response.write("栏目不存在,或管理员还没有添加信息!") end if %>
  • 查看详情>>
  • 典致新闻动态

  • MORE+
  • <% set fsos=Server.CreateObject ("Scripting.FileSystemObject") Set rs = Server.CreateObject("ADODB.RecordSet") sql="SELECT * FROM news where classid=1 and (showlater=0 or latertime<=date) order by id desc" rs.Open sql, Conn, 1,1 if rs.eof then response.Write("暂无信息") 'response.End() end if newsnum = 1 do while not rs.eof and newsnum<15 if rs.fields("pagename")<>"" then filename = rs.fields("pagename") else filename = "news-" & rs.fields("id") end if fpath=server.MapPath ("news/" & filename & ".html") if fsos.FileExists(fpath) then newslink="" else newslink="" end if %>
  • <%=newslink%>><%=rs("title")%>
  • <% newsnum = newsnum+1 rs.movenext() loop rs.close %>