<% keyword=request("keyword") sort_id=request("sort_id") if sort_id<>"" then sql = "select * from classs where sort_id="&sort_id rs.open sql,conn,1,1 if rs.eof then response.end title = rs.fields("title") pagekeyword = rs.fields("keyword") miaoshu = rs.fields("miaoshu") classname = rs.fields("class") classcontent = rs.fields("classcontent") rs.close else title = SiteTitle pagekeyword = Sitekeywords miaoshu = Sitedescription end if %> <%= title %>
  • <% if request("sort_id")="" then sql = "select * from AD where id=4" rs.open sql,conn,1,1 if rs.eof then response.end %> <% if rs.fields("ADurl")<>"#" then %>" <% if rs.fields("newwindow")=1 then %> target="_blank"<% end if %>><% end if %>" title="<%= rs.fields("ADtitle") %>" alt="<%= rs.fields("ADname") %>" border="0" /><% if rs.fields("ADurl")<>"#" then %><% end if %> <% else sql = "select * from classs where sort_id=" & request("sort_id") rs.open sql,conn,1,1 %> " title="<%= rs.fields("class") %>" alt="<%= rs.fields("class") %>" border="0" /> <% end if rs.close %>
  • <% set fsos=Server.CreateObject ("Scripting.FileSystemObject") if sort_id<>"" then sqlwhere=sqlwhere &" and sort_id="&sort_id&"" if keyword<>"" then sqlwhere=sqlwher &" and cpmc like '%"&keyword&"%'" set rs=server.CreateObject("adodb.recordset") sql="select * from products where sort_id<>0 "&sqlwhere&" order by id asc" rs.open sql,conn,1,3 if rs.eof then response.Write "" else %> <% if request("sort_id")<>"" then %> <% end if %>
    暂无产品
    <% if sort_id<>"" then response.write classname else response.write "产品中心" end if %>
    <%= Replace(classcontent,chr(13),"") %>
    <% rs.movefirst if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 end if rs.pagesize=14 if pagecount>rs.pagecount or pagecount<=0 then pagecount=1 end if rs.AbsolutePage=pagecount %> <% j=1 do while not (rs.eof or err) if (j mod 2)=1 then response.write "" end if %> <% if (j mod 2)=0 then response.write "" end if j=j+1 rs.moveNext if j>14 then exit do loop end if %>
    " title="<%=trim(rs("cpmc"))%>" target="_blank">" width="330" height="205" border="0" onload="javascript:DrawImage(this)" />
    " title="<%=trim(rs("cpmc"))%>" target="_blank"><%= left(rs.fields("cpmc"),50) %>
    " title="<%=trim(rs("cpmc"))%>" target="_blank"><%= left(rs.fields("productpagetxt"),50) %>
    <% if rs.pagecount>1 then response.Write "第"&pagecount&"页/共"&rs.pagecount&"页 " if pagecount>=2 then response.write"首页 " end if if pagecount>=2 then response.write"上一页 " end if if pagecount>=10 then response.write"<< " end if q=(cstr(pagecount)-1)\10 if q<0 then q=1 end if p=(q*10)+1 do while p<((q*10)+11) If p=pagecount Then Response.Write p&" " Elseif p<=rs.pagecount then Response.Write ""& p &" " End If p=p+1 loop A=rs.pagecount if (A mod 10)=0 then A=rs.pagecount-1 end if if pagecount<(A\10)*10 then response.write">>" end if if pagecount<(A) then response.write" 下一页" end if if pagecount<(A) then response.write" 尾页" end if End If 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 %>