<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connbook_STRING Recordset1.Source = "SELECT id, name, words FROM words ORDER BY date DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Function LeftTrue(str,n) If len(str)<=n/2 Then LeftTrue=str Else Dim TStr Dim l,t,c Dim i l=len(str) t=l TStr="" t=0 for i=1 to l c=asc(mid(str,i,1)) If c<0 then c=c+65536 If c>255 then t=t+2 Else t=t+1 End If If t>n Then exit for TStr=TStr&(mid(str,i,1)) next LeftTrue = TStr End If End Function %> 黔西南州红盾信用信息网
　
欢迎访问黔西南州红盾信息网
                                    
  首页 机构职责 办事指南 工商法规 企业信用 公务咨询 企业推介 消费警示 举报申诉反腐倡廉

  

    3月13日，省工商局杨正国局长、王传钧组长一行到黔西南开展调研。杨局长一行来到兴义市种子公司、时代广场、好又多超市及部分从事个体首饰加工、服装经营的店铺，与经营者面对面地交谈，了解黔西南“3•15”期间市场经营情况、经营者的办照情况、工商管理费的收取情况等，征求他们对工商部门的意见和建议。               更多图片...


                          
     办事指南
  企业登记
  个体 私营企业登记

行政执法示意图
  行政处罚程序
  商标注册程序
黔西南州守合同重信用单位
                     工 商 动 态
  广告登记备案程序
    创造良好市场环境 维护公平竞争秩序
  动产抵押登记
◆2006年度省级守合同重信用单位

1 中国人民财产保险股份有限公司兴义支公司

2 中国人民财产保险股份有限公司黔西南分公司

3 中国人寿保险股份有限公司黔西南分公司

4 黔西南州建筑安装工程总公司

5 黔西南州凌云化工公司（原黔西南州化工轻工公司）

6 黔西南州汇源建筑工程有限公司

7 黔西南州鑫海建筑安装工程公司

8 中国农业银行黔西南州分行

9 兴义供电局

10 黔西南州施达房地产开发有限责任公司

11 中国太平洋财产保险股份有限公司黔西南中心支公司

12 黔西南州康汇商贸有限责任公司

13 贵州心意药业有限责任公司

14 贵州醇酒厂

15 兴义市嘉陵摩托车经销服务中心

16 兴义市塑料厂

17 兴义市盘江建筑安装工程有限公司

18 兴义市农资公司

19 兴义市种子公司

20 兴义市黔山度假酒店有限公司

21 黔西南州通用办公设备有限公司

22 兴义市电力有限责任公司

23 兴义市第二建筑安装有限公司

24 黔西南州兴伟汽车运输服务有限公司

25 黔西南州荷豪制衣有限公司

26 黔西南州奇迹实业发展有限公司

27 兴义市乡镇建筑工程公司

28 贵州兴义公路工程有限公司

29 兴仁县黔盛建筑工程有限公司

30 贵州省兴仁县宏达建筑工程有限公司

31 兴仁县供电局

32 兴仁县红石材有限责任公司

33 普安县青山电力公司

34 普安铅矿

35 普安县供电局

36 普安矿治工业有限责任公司

37 晴隆县茶业公司

38 贵州晴隆盘江水泥有限责任公司

39 贞丰县金惠食品有限责任公司

40 黔西南州方程建筑公司

41 贞丰县糖厂

42 中国人寿保险股份有限公司贞丰支公司

43 中国人民财产保险股份有限公司贞丰支公司

44 中国农业银行贞丰县支行

45 贵州省贞丰县仁都水泥厂

46 贵州省新华书店贞丰县支店

47 望谟县邮政局

48 中国农业银行望谟县支行

49 望谟县天马宾馆

50 贵州省电信公司望谟县电信局

51 贵州省册亨县中亨建筑安装工程有限公司

52 中国人民财产保险股份有限公司册亨支公司

53 中国人民财产保险股份有限公司安龙支公司

54 中国人寿保险股份有限公司安龙支公司

55 中国农业银行安龙县支行

56 安龙丽锋建设工程有限公司

57 安龙县邮政局

58 黔西南州鸿建建筑安装工程有限责任公司

59 兴义市精浓饲料厂

60 兴仁县华英超市

61 贵盐（集团）晴隆有限责任公司

62 贵州省电信有限公司晴隆分公司

63 贞丰县联营商场

64 贞丰县供电局

65 安龙县大兴隆超市购物中心

◆ 2006年度黔西南州"守合同重信用"单位合格名单

1.黔西南州协力建设有限公司

2.兴义市富康实业发展有限公司

3.兴义市新亚五金家电商行

4.黔西南州高原交通工程有限公司

5.兴义市三信实业发展有限公司

6.兴义市小西门装饰有限公司

7.兴义市李老憨饵块粑加工厂

8.贵阳千色装饰有限公司黔西南分公司

9.黔西南州康泰房地产开发有限责任公司

10.兴义市天山经贸有限责任公司

11. 黔西南州安盛建筑工程有限公司

12.黔西南州安宏建筑工程有限公司

13.黔西南州康海建筑工程公司

14.兴义市效益煤业有限公司

15.普安县建设工程有限责任公司

16.普安县房地产开发有限责任公司

17.贵州省普安普天电冶有限公司

18.贵州省普安县物资供应公司

19.晴隆县邮政局

20.贵州晴隆锑矿

21.贵盐（集团）贞丰有限责任公司

22.贞丰县喜洋洋超市

23.贞丰县华美像馆

24.望谟到栖凤山桐油有限公司

25.中国人寿保险责任有限公司望谟支公司

26.贵州省望谟县腾达油脂有限责任公司

27.贵州省望谟县农村信用联社

28.册亨县农村信用合作联合社

29.册亨县威建细木板厂

30.周航鞋业

31.安龙县农业开发服务公司

32.兴义家家旺日用品有限责任公司安龙分公司

33.贵州顶效经济开发区围山湖自来水公司

34.兴义市电力有限责任公司顶效电力公司

35.贵州顶效开发区贵龙工贸有限责任公司

36.贵州顶效恒瑞达畜禽科技发展中心

37.贵州顶效经济开发区鸿利肉类肉类有限责任公司

37.贵州省电信有限公司黔西南布依族苗族自治州分公司

38.黔西南布依族苗族自治州时进担保中心

39.黔西南州吉鑫贸易有限公司

40.兴义市大不同商贸有限公司

41.兴义市金三角兽药服务部

42.陈老三鱼头王火锅酒楼

43.贵州兴义弛苑食化

44.兴义市好乐多超市

45.萱姿家纺

46.兴义市安达润滑油批发中心

47.兴义市太平洋服饰超市

48.兴义市鑫良经营部

49.兴义市翔翊书店

50.兴义信捷通讯商城

51.兴义市富民化工有限责任公司

52.贵州兴化化工有限责任公司

53.贵州宜化化工有限责任公司
    黔西南州工商机关干部职工掀起学习党的十七大报告热潮
  企业登记表格下载
    黔西南州再次对非法传销说“不”
  登记收费标准
    册亨县消协帮助农民获赔偿8万余元
    黔西南州重拳出击 打击非法传销
　
    黔西南州工商局授予贵州圣都药业有限公司等十四户企业为“黔西南州工
    商行政管理局2006年度免检企业”(2007.06)
                                                            >>>>..更多
                     政 策 文 件
    黔西南州工商局服务地方经济发展若干规定
     行政公告
    国家工商行政管理总局依法行政文明执法、六项禁令
　 <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
　
　 　

          
  企业开业公告
    关于印发黔西南州工商局开展“红盾”宣传活动实施方案的通知
    关于做好“元旦”、“春节”期间食品安全及市场监管工作的通知
  企业变更公告
    关于加强“首届农业产业化优质产品展销会”市场巡查和服务工作的通知
  企业注销公告
  　
  企业吊销公告
                     表 格 下 载
  守合同重信用单位
 

  企业名称预先注册核准申请书    

    企业（公司）申请登记委托书
  Ａ级免检企业公告
    公司设立登记申请书     企业设立登记申请书
    分公司设立登记申请书     营业单位设立登记申请书
　
    企业变更登记申请书     公司变更登记申请书
    分公司变更登记申请书     营业单位变更登记申请书
 
    公司注销登记申请书     企业注销登记申请书
    分公司注销登记申请书     营业单位注销登记申请书
    备案事项申请表     企业集团设立登记申请书
    企业集团变更登记申请书     企业集团注销登记申请书
　

贵州工商红盾信息网 | 贵阳工商红盾信息网 | 遵义市红盾信息网 | 六盘水市红盾信息网
黔东南红盾信息网 | 铜仁红盾信息网| 贵州信息港
黔西南州人民政府 | 兴义之窗
　

黔西南州工商局信息中心(http://qxn.gzgs.gov.cn)
浏览器建议设置为1024*768
电话:0859-3246301传真:0859-3223574
Emai: xxzx3246301@163.com
<% '一个简单的计数器程序 Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count.txt")) count=a.readline response.write " 总的浏览量：" & count count=count+1 Set fs = CreateObject("Scripting.FileSystemObject") Set a=fs.createTextfile(server.mappath("count.txt")) a.writeline (count) %>
　
<% Recordset1.Close() Set Recordset1 = Nothing %>