<%call SiteInfo%> <% If request("class")="Industry" Then Atitle="行业分类:"&trim(request("Keyword"))&"" elseif request("class")="Operation" Then Atitle="运营项目分类:"&trim(request("Keyword"))&"" end if %> <% =Atitle %>
当前位置 :<%=WebLocation()%>  
<% If request("class")="Industry" Then %> 行业分类:<%= request("Keyword") %> <% ElseIf request("class")="Operation" Then %> 运营项目分类:<%= request("Keyword") %> <% End If %>  

时尚产业,服饰,化妆
 

品牌创建与塑造

食品饮料,消费品
 

品牌推广运营

酒店,餐饮,娱乐,休闲
 

品牌形象包装

地产,建筑,生活家居
 

CIS/VIS品牌系统

零售,渠道
 

品牌宣传册

能源,工业,交通,金融,机械
  市政项目整体形象创建
专业服务
  礼仪庆典
医疗,保健,教育,保险,担保
  空间设计
电子,信息技术
  影视广告宣传
文化艺术,非盈利组织   网站建设
<%=WebContent(trim(request("Keyword")),request("class"))%>
 
<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Hm_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID from Hm_ProductSort Where ViewFlag and ParentID=0").eof then response.write "
暂无相关信息
" end if do while not rs.eof If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.asp?SortID="&rs("ID")&"" End If response.write "
  • "&rs("SortName")&"" i=i+1 if i" call WebMenu(rs("ID"),i,level) response.write "" end if i=i-1 response.write "
  • " rs.movenext loop rs.close set rs=nothing end function function WebLocation() WebLocation="首页 - 搜索 - "&VbCrLf If request("class")="Industry" Then WebLocation=WebLocation&"行业分类:["&trim(request("Keyword"))&"]" elseif request("class")="Operation" Then WebLocation=WebLocation&"运营项目分类:["&trim(request("Keyword"))&"]" end if end Function function WebContent(Keyword,Range) if Keyword="all" then response.write "请选择分类!" end if dim idCount dim pages pages=16 dim pagec dim page page=clng(request("Page")) dim pagenc pagenc=5 dim pagenmax dim pagenmin dim pageprevious dim pagenext dim datafrom dim datawhere select case Range case "Industry" datafrom="Hm_Products" datawhere="where ViewFlag and Industry like '%"&KeyWord&"%'" case "Operation" datafrom="Hm_Products" datawhere="where ViewFlag and Operation like '%"&KeyWord&"%'" end select dim sqlid dim Myself,PATH_INFO,QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis taxis="order by id desc " dim i dim rs,sql set rs = server.createobject("adodb.recordset") sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") if(idcount>0) then if(idcount mod pages=0)then pagec=int(idcount/pages) else pagec=int(idcount/pages)+1 end if sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next end if if(idcount>0 and sqlid<>"") Then sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 Response.Write ""&VbCrLf k=1:m=1 while not rs.eof if StrLen(rs("ProductName"))<=18 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),16) end If if rs("FileName")<>"" then ProNames=replace(trim(rs("FileName"))," ","-") else ProNames=replace(trim(rs("ProductName"))," ","-") end if If ISHTML = 1 Then AutoLink = ""&ProNames&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("ID")&"" End If SmallPic=replace(rs("SmallPic"),"../","") BigPic=replace(rs("BigPic"),"../","") SmallPicPath=HtmlSmallPic(rs("GroupID"),SmallPic,rs("Exclusive")) BigPicPath=HtmlSmallPic(rs("GroupID"),BigPic,rs("Exclusive")) Response.Write " " rs.movenext if k mod 4 =0 then response.Write("") k=k+1:m=m+1 wend Response.Write "
    " %> <% Response.Write "
    <%= ProductName %>
    "&VbCrLf else response.write "
    暂无相关信息
    " exit function end If Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "
    "&VbCrLf Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf pagenmin=page-pagenc pagenmax=page+pagenc if(pagenmin<1) then pagenmin=1 if(page>1) then response.write ("< ") if page-(pagenc*2+1)<=0 then pageprevious=1 else pageprevious=page-(pagenc*2+1) end if if(pagenmin>1) then response.write ("< ") if(pagenmax>pagec) then pagenmax=pagec for i = pagenmin to pagenmax if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if page+(pagenc*2+1)>=pagec then pagenext=pagec else pagenext=page+(pagenc*2+1) end if if(pagenmax> ") if(page>") Response.Write "
    "&VbCrLf rs.close set rs=nothing end function %>