<% Dim I,i_rank,S_WeiXin,S_QQ,ResultPro,S_Class,s_eqixiu,i_count,S_ClassSplit,S_ClassCount,sqlWhere,XlResult,CpXl,S_Cname,ChanPinXlYesOrNo,CpResult,txtClounm,txtBnsId CreateConn() Set Rs = Conn.Execute("Select S_Name,S_Des,Cast(S_Cont As VarChar(4000)),S_Logo,S_Video,S_Contact,I_IsOpen,S_LxName,S_Tel,S_Phone,S_QQ,S_Fax,S_Email,S_URL,S_Adr,I_ID,S_Cname,(select i_rank from m_user where i_cmpid=m_bns.i_id),S_WeiXin,I_Flag,s_class,S_Zcont From m_bns Where I_ID = '29344'") S_QQ = Rs(10) i_rank = Rs(17) S_WeiXin = Rs(18) s_class= Rs(20) S_Cname= Rs(16) txtBnsId= Rs(15) txtClounm=8 Result = Rs.GetRows() Rs.CLose() Set Rs = Nothing i_count= Conn.Execute("Select count(i_id) From m_zt Where i_cmpid = '29344'")(0) if i_count>0 then s_eqixiu=Conn.Execute("Select s_bpic From m_zt Where i_cmpid = '29344'")(0) end if %> <%=Result(0,0)%>-好妞妞食品飲料招商網【www.l3i.com.cn】

企業管理登錄

歡迎光臨<%=Result(0,0)%>主打 <% '//讀出該公司三個產品系列 Set Rs = Conn.Execute("Select Top 3 I_ID,S_Name From m_pro Where I_CmpID = '"&Result(15,0)&"' And i_state = '1' Order By I_Order Asc,I_ID Desc") Do While Not Rs.EOF %> <%=Rs(1)%>| <% Rs.MoveNext Loop Rs.Close() Set Rs = Nothing %>

山東甄沃食品科技有限公司便坐落于這座美麗的城市，是一家致力于高端系列飲品研發、生產、銷售于一體的新興民營企業。公司從成立至今，一刻未曾忘卻初心，從單一的飲品代加工，發展到自主品牌的研發、生產，從鄉鎮企業逐步壯大成為地區專業化的重點骨干企業，砥礪奮進酬壯志，一路風雨一路歌。

山東甄沃食品科技有限公司總投資1.58億元，占地150畝，現有員工221人，其中研究生2人，本科生12人，�？粕�30余人。作為魯南地區重要的高端飲品生產基地，公司配備了國內外先進的全自動發酵型乳酸菌直飲生產線4條，兒童系列飲品生產線2條，利樂磚生產線2條，易拉罐生產線2條。憑借自身強大的研發能力和技術優勢，公司現有四大品系100多種產品，擁有“甄沃”、“菌悅”、“椰臣”等自主品牌，并且能夠為客戶提供高品質的產品定制服務，同時承接OEM（代工生產）。

掃描識別二維碼手機找產品更方便

山東甄沃食品科技有限公司

聯系人：王總
移動電話：18963291567
固定電話：06324781777
聯系 QQ：137902684
電子郵件：137902684@qq.com
企業網站：www.sdzhenwo.com
聯系地址：山東省棗莊市薛城區陶莊鎮陶山北路

<% '//讀出該公司三個產品系列 Set Rs = Conn.Execute("Select S_Name,S_Cname,I_ID From m_bnsprotype Where I_CmpId = '"&Result(15,0)&"' Order By I_Order Asc") IF Not Rs.EOF THEN %>

<% CpResult = Rs.GetRows() Rs.Close() Set Rs = Nothing ChanPinXlYesOrNo = "Yes" %>

<% ELSE ChanPinXlYesOrNo = "No" Rs.Close() Set Rs = Nothing END IF '//讀出該公司三個產品系列 %>

<% IF ChanPinXlYesOrNo = "Yes" THEN For I = 0 To Ubound(CpResult,2) %>

<%=CpResult(0,I)%>（<%=Conn.Execute("Select Count(I_ID) From m_pro Where I_CmpID = '"&Result(15,0)&"' And i_xlid = '"&CpResult(2,I)&"' And i_state = '1'")(0)%>個）

<%=ForMatStr(Rs(2),310,1)%>

<% Next %> <% Set CpResult = Nothing '--釋放上邊查詢產品系列的CpResult ELSE %>

<%=ForMatStr(Rs(2),310,1)%>

<% END IF %>

給<%=Result(0,0)%> 留言咨詢合作事宜

<% '企業類別示例：1,12,4,5 S_Class = s_class '把類別以,號分開 S_ClassSplit = Split(s_class,",") '合計有多少個類別 S_ClassCount = Ubound(S_ClassSplit) For I = 0 To S_ClassCount sqlWhere = sqlWhere & "charindex(',"&S_ClassSplit(I)&",',','+ s_class +',') >= 1 Or " Next IF sqlWhere = "" THEN sqlWhere = "" ELSE sqlWhere = "Where ("&Left(sqlWhere,(LEN(sqlWhere)-4))&")" END IF Set Rs = Conn.Execute ("Select Top 8 S_Cname,S_Name From m_bns "&sqlWhere&" Order By I_ID Desc") IF Not Rs.EOF THEN %>

相關企業

<%=Rs(1)%>

<% END IF Rs.Close() Set Rs = Nothing %>

關閉

信譽指數：<% Response.Write Conn.Execute("Select count(i_id) From m_bnshonorpic Where i_cmpid = '"&Result(15,0)&"'")(0)*10+100 %>
工商注冊：
榮譽證書：<% Response.Write Conn.Execute("Select count(i_id) From m_bnshonorpic Where i_cmpid = '"&Result(15,0)&"'")(0) %> 項
認證星級：">
認證時間：<% Response.Write FormatDate(Conn.Execute("Select d_time From m_bns Where i_id = '"&Result(15,0)&"'")(0),"2") %>

立即留言

<%=Result(0,0)%> 食品代理網

<%IF i_rank <> "0" THEN%>

<%IF i_count >0 THEN%>

<%=Result(0,0)%>e企秀

<%End IF%> <%IF S_WeiXin = "" THEN%>

<%=Result(0,0)%>微信圖片

<%ELSE%>

<%END IF%> <%IF S_QQ <> "" THEN%>

<% Dim QQQ For QQQ = 0 To Ubound(Split(S_QQ," ")) Response.Write "客服"&QQQ+1&"" Next%>

<%END IF%> <%END IF%> <% Set Result = Nothing conn.close() set conn = nothing %>

番里h肉3d动漫在线观看_东北妇女露脸50岁作爱_yy6080午夜理论影院

<蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>