<%call SiteInfo%> <% If request("class")="Industry" Then Atitle="行業分類:"&trim(request("Keyword"))&"" elseif request("class")="Operation" Then Atitle="運營項目分類:"&trim(request("Keyword"))&"" end if %> 福建体彩走势图:<% =Atitle %> - 云南11选5走势图 " />
當前位置 :<%=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云南11选5走势图 ") if(page>") Response.Write "
    "&VbCrLf rs.close set rs=nothing end function %>