阿猫的自用资料库

前几天在弄个东西，需要从客户录入的地址中判断出客户的省份，就找了省份和主要地（市）的资料做了个函数，立即解决了问题，有需要的朋友可以拿去用。调用只要用 =shengfen(你的地址)就能得出省份了， 函数如下：

<%

function shengfen(BBS)

if instr(BBS,"北京")>0 then
wds0="北京"
end if

if instr(BBS,"天津")>0 then
wds0="北京"
end if

if instr(BBS,"上海")>0 then
wds0="上海"
end if

if instr(BBS,"重庆")>0 then
wds0="重庆"
end if

if instr(BBS,"台湾")>0 then
wds0="台湾"
end if

if instr(BBS,"香港")>0 then
wds0="香港"
end if

if instr(BBS,"澳门")>0 then
wds0="澳门"
end if

'-------------------------------------------河北
if instr(BBS,"河北")>0 then
wds0="河北"
else
    if instr(BBS,"石家庄")>0 then
      wds0="河北"
    end if

    if instr(BBS,"唐山")>0 then
      wds0="河北"
    end if

    if instr(BBS,"秦皇岛")>0 then
      wds0="河北"
    end if

    if instr(BBS,"邯郸")>0 then
      wds0="河北"
    end if
   
    if instr(BBS,"邢台")>0 then
      wds0="河北"
    end if

    if instr(BBS,"保定")>0 then
      wds0="河北"
    end if

    if instr(BBS,"张家口")>0 then
      wds0="河北"
    end if

    if instr(BBS,"承德")>0 then
      wds0="河北"
    end if

    if instr(BBS,"沧州")>0 then
      wds0="河北"
    end if

    if instr(BBS,"廊坊")>0 then
      wds0="河北"
    end if

    if instr(BBS,"衡水")>0 then
      wds0="河北"
    end if

end if
'-------------------------------------------山西
if instr(BBS,"山西")>0 then
wds0="山西"
else
    if instr(BBS,"太原")>0 then
      wds0="山西"
    end if

    if instr(BBS,"大同")>0 then
      wds0="山西"
    end if

    if instr(BBS,"阳泉")>0 then
      wds0="山西"
    end if

    if instr(BBS,"长治")>0 then
      wds0="山西"
    end if
   
    if instr(BBS,"晋城")>0 then
      wds0="山西"
    end if

    if instr(BBS,"朔州")>0 then
      wds0="山西"
    end if

    if instr(BBS,"晋中")>0 then
      wds0="山西"
    end if

    if instr(BBS,"运城")>0 then
      wds0="山西"
    end if

    if instr(BBS,"忻州")>0 then
      wds0="山西"
    end if

    if instr(BBS,"临汾")>0 then
      wds0="山西"
    end if

    if instr(BBS,"吕梁")>0 then
      wds0="山西"
    end if

end if
'-------------------------------------------内蒙古
if instr(BBS,"内蒙古")>0 then
wds0="内蒙古"
else
    if instr(BBS,"包头")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"呼和浩特")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"乌海")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"赤峰")>0 then
      wds0="内蒙古"
    end if
   
    if instr(BBS,"通辽")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"鄂尔多斯")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"呼伦贝尔")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"巴彦淖尔")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"乌兰察布")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"兴安盟")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"锡林郭勒")>0 then
      wds0="内蒙古"
    end if

    if instr(BBS,"阿拉善")>0 then
      wds0="内蒙古"
    end if
end if
'-------------------------------------------辽宁
if instr(BBS,"辽宁")>0 then
wds0="辽宁"
else
    if instr(BBS,"沈阳")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"大连")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"鞍山")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"抚顺")>0 then
      wds0="辽宁"
    end if
   
    if instr(BBS,"本溪")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"丹东")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"锦州")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"营口")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"阜新")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"辽阳")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"盘锦")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"铁岭")>0 then
      wds0="辽宁"
    end if
   
    if instr(BBS,"朝阳市")>0 then
      wds0="辽宁"
    end if

    if instr(BBS,"葫芦岛")>0 then
      wds0="辽宁"
    end if
end if

'-------------------------------------------吉林
if instr(BBS,"吉林")>0 then
wds0="吉林"
else
    if instr(BBS,"长春")>0 then
      wds0="吉林"
    end if

    if instr(BBS,"四平")>0 then
      wds0="吉林"
    end if

    if instr(BBS,"辽源")>0 then
      wds0="吉林"
    end if
   
    if instr(BBS,"通化")>0 then
      wds0="吉林"
    end if

    if instr(BBS,"白山")>0 then
      wds0="吉林"
    end if

    if instr(BBS,"松原")>0 then
      wds0="吉林"
    end if

    if instr(BBS,"白城")>0 then
      wds0="吉林"
    end if

    if instr(BBS,"延边")>0 then
      wds0="吉林"
    end if

end if
'-------------------------------------------黑龙江
if instr(BBS,"黑龙江")>0 then
wds0="黑龙江"
else
    if instr(BBS,"哈尔滨")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"齐齐哈尔")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"鸡西")>0 then
      wds0="黑龙江"
    end if
   
    if instr(BBS,"鹤岗")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"双鸭山")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"大庆")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"伊春")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"佳木斯")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"七台河")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"牡丹江")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"黑河")>0 then
      wds0="黑龙江"
    end if
   
    if instr(BBS,"绥化")>0 then
      wds0="黑龙江"
    end if

    if instr(BBS,"大兴安岭")>0 then
      wds0="黑龙江"
    end if
end if
'-------------------------------------------江苏
if instr(BBS,"江苏")>0 then
wds0="江苏"
else
    if instr(BBS,"南京")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"无锡")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"徐州")>0 then
      wds0="江苏"
    end if
   
    if instr(BBS,"常州")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"苏州")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"南通")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"连云港")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"淮安")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"盐城")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"扬州")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"镇江")>0 then
      wds0="江苏"
    end if
   
    if instr(BBS,"泰州")>0 then
      wds0="江苏"
    end if

    if instr(BBS,"宿迁")>0 then
      wds0="江苏"
    end if
end if
'-------------------------------------------浙江
if instr(BBS,"浙江")>0 then
wds0="浙江"
else
    if instr(BBS,"杭州")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"宁波")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"温州")>0 then
      wds0="浙江"
    end if
   
    if instr(BBS,"嘉兴")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"湖州")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"绍兴")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"金华")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"衢州")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"舟山")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"台州")>0 then
      wds0="浙江"
    end if

    if instr(BBS,"丽水")>0 then
      wds0="浙江"
    end if
end if
'-------------------------------------------安徽
if instr(BBS,"安徽")>0 then
wds0="安徽"
else
    if instr(BBS,"合肥")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"芜湖")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"蚌埠")>0 then
      wds0="安徽"
    end if
   
    if instr(BBS,"淮南")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"马鞍山")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"淮北")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"铜陵")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"安庆")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"黄山")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"滁州")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"阜阳")>0 then
      wds0="安徽"
    end if
   
    if instr(BBS,"宿州")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"巢湖")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"六安")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"毫州")>0 then
      wds0="安徽"
    end if
   
    if instr(BBS,"池州")>0 then
      wds0="安徽"
    end if

    if instr(BBS,"宣城")>0 then
      wds0="安徽"
    end if
end if
'-------------------------------------------福建
if instr(BBS,"福建")>0 then
wds0="福建"
else
    if instr(BBS,"福州")>0 then
      wds0="福建"
    end if

    if instr(BBS,"厦门")>0 then
      wds0="福建"
    end if

    if instr(BBS,"莆田")>0 then
      wds0="福建"
    end if
   
    if instr(BBS,"三明")>0 then
      wds0="福建"
    end if

    if instr(BBS,"泉州")>0 then
      wds0="福建"
    end if

    if instr(BBS,"漳州")>0 then
      wds0="福建"
    end if

    if instr(BBS,"南平")>0 then
      wds0="福建"
    end if

    if instr(BBS,"龙岩")>0 then
      wds0="福建"
    end if

    if instr(BBS,"宁德")>0 then
      wds0="福建"
    end if

end if
'-------------------------------------------江西
if instr(BBS,"江西")>0 then
wds0="江西"
else
    if instr(BBS,"南昌")>0 then
      wds0="江西"
    end if

    if instr(BBS,"景德镇")>0 then
      wds0="江西"
    end if

    if instr(BBS,"萍乡")>0 then
      wds0="江西"
    end if
   
    if instr(BBS,"九江")>0 then
      wds0="江西"
    end if

    if instr(BBS,"新余")>0 then
      wds0="江西"
    end if

    if instr(BBS,"鹰潭")>0 then
      wds0="江西"
    end if

    if instr(BBS,"赣州")>0 then
      wds0="江西"
    end if

    if instr(BBS,"吉安")>0 then
      wds0="江西"
    end if

    if instr(BBS,"宜春")>0 then
      wds0="江西"
    end if

    if instr(BBS,"抚州")>0 then
      wds0="江西"
    end if

    if instr(BBS,"上饶")>0 then
      wds0="江西"
    end if
end if
'-------------------------------------------山东
if instr(BBS,"山东")>0 then
wds0="山东"
else
    if instr(BBS,"济南")>0 then
      wds0="山东"
    end if

    if instr(BBS,"青岛")>0 then
      wds0="山东"
    end if

    if instr(BBS,"淄博")>0 then
      wds0="山东"
    end if
   
    if instr(BBS,"枣庄")>0 then
      wds0="山东"
    end if

    if instr(BBS,"东营")>0 then
      wds0="山东"
    end if

    if instr(BBS,"烟台")>0 then
      wds0="山东"
    end if

    if instr(BBS,"潍坊")>0 then
      wds0="山东"
    end if

    if instr(BBS,"济宁")>0 then
      wds0="山东"
    end if

    if instr(BBS,"泰安")>0 then
      wds0="山东"
    end if

    if instr(BBS,"威海")>0 then
      wds0="山东"
    end if

    if instr(BBS,"日照")>0 then
      wds0="山东"
    end if
   
    if instr(BBS,"莱芜")>0 then
      wds0="山东"
    end if

    if instr(BBS,"临沂")>0 then
      wds0="山东"
    end if

    if instr(BBS,"德州")>0 then
      wds0="山东"
    end if

    if instr(BBS,"聊城")>0 then
      wds0="山东"
    end if

    if instr(BBS,"滨州")>0 then
      wds0="山东"
    end if

    if instr(BBS,"菏泽")>0 then
      wds0="山东"
    end if

end if
'-------------------------------------------河南
if instr(BBS,"河南")>0 then
wds0="河南"
else
    if instr(BBS,"郑州")>0 then
      wds0="河南"
    end if

    if instr(BBS,"开封")>0 then
      wds0="河南"
    end if

    if instr(BBS,"洛阳")>0 then
      wds0="河南"
    end if
   
    if instr(BBS,"平顶山")>0 then
      wds0="河南"
    end if

    if instr(BBS,"安阳")>0 then
      wds0="河南"
    end if

    if instr(BBS,"鹤壁")>0 then
      wds0="河南"
    end if

    if instr(BBS,"新乡")>0 then
      wds0="河南"
    end if

    if instr(BBS,"焦作")>0 then
      wds0="河南"
    end if

    if instr(BBS,"濮阳")>0 then
      wds0="河南"
    end if

    if instr(BBS,"许昌")>0 then
      wds0="河南"
    end if

    if instr(BBS,"漯河")>0 then
      wds0="河南"
    end if
   
    if instr(BBS,"三门峡")>0 then
      wds0="河南"
    end if

    if instr(BBS,"南阳")>0 then
      wds0="河南"
    end if

    if instr(BBS,"商丘")>0 then
      wds0="河南"
    end if

    if instr(BBS,"信阳")>0 then
      wds0="河南"
    end if

    if instr(BBS,"周口")>0 then
      wds0="河南"
    end if

    if instr(BBS,"驻马店")>0 then
      wds0="河南"
    end if

end if
'-------------------------------------------湖北
if instr(BBS,"湖北")>0 then
wds0="湖北"
else
    if instr(BBS,"武汉")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"黄石")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"十堰")>0 then
      wds0="湖北"
    end if
   
    if instr(BBS,"宜昌")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"襄樊")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"鄂州")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"荆门")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"孝感")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"荆州")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"黄冈")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"咸宁")>0 then
      wds0="湖北"
    end if
   
    if instr(BBS,"随州")>0 then
      wds0="湖北"
    end if

    if instr(BBS,"恩施")>0 then
      wds0="湖北"
    end if

end if
'-------------------------------------------湖南
if instr(BBS,"湖南")>0 then
wds0="湖南"
else
    if instr(BBS,"长沙")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"株洲")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"湘潭")>0 then
      wds0="湖南"
    end if
   
    if instr(BBS,"衡阳")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"邵阳")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"岳阳")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"常德")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"张家界")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"益阳")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"郴州")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"永州")>0 then
      wds0="湖南"
    end if
   
    if instr(BBS,"怀化")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"娄底")>0 then
      wds0="湖南"
    end if

    if instr(BBS,"湘西")>0 then
      wds0="湖南"
    end if
end if
'-------------------------------------------广东
if instr(BBS,"广东")>0 then
wds0="广东"
else
    if instr(BBS,"广州")>0 then
      wds0="广东"
    end if

    if instr(BBS,"韶关")>0 then
      wds0="广东"
    end if

    if instr(BBS,"深圳")>0 then
      wds0="广东"
    end if
   
    if instr(BBS,"珠海")>0 then
      wds0="广东"
    end if

    if instr(BBS,"汕头")>0 then
      wds0="广东"
    end if

    if instr(BBS,"佛山")>0 then
      wds0="广东"
    end if

    if instr(BBS,"江门")>0 then
      wds0="广东"
    end if

    if instr(BBS,"湛江")>0 then
      wds0="广东"
    end if

    if instr(BBS,"茂名")>0 then
      wds0="广东"
    end if

    if instr(BBS,"肇庆")>0 then
      wds0="广东"
    end if

    if instr(BBS,"惠州")>0 then
      wds0="广东"
    end if
   
    if instr(BBS,"梅州")>0 then
      wds0="广东"
    end if

    if instr(BBS,"汕尾")>0 then
      wds0="广东"
    end if

    if instr(BBS,"河源")>0 then
      wds0="广东"
    end if

    if instr(BBS,"阳江")>0 then
      wds0="广东"
    end if

    if instr(BBS,"清远")>0 then
      wds0="广东"
    end if

    if instr(BBS,"东莞")>0 then
      wds0="广东"
    end if

    if instr(BBS,"中山")>0 then
      wds0="广东"
    end if
   
    if instr(BBS,"潮州")>0 then
      wds0="广东"
    end if

    if instr(BBS,"揭阳")>0 then
      wds0="广东"
    end if

    if instr(BBS,"云浮")>0 then
      wds0="广东"
    end if
end if
'-------------------------------------------广西
if instr(BBS,"广西")>0 then
wds0="广西"
else
    if instr(BBS,"南宁")>0 then
      wds0="广西"
    end if

    if instr(BBS,"柳州")>0 then
      wds0="广西"
    end if

    if instr(BBS,"桂林")>0 then
      wds0="广西"
    end if
   
    if instr(BBS,"梧州")>0 then
      wds0="广西"
    end if

    if instr(BBS,"北海")>0 then
      wds0="广西"
    end if

    if instr(BBS,"防城港")>0 then
      wds0="广西"
    end if

    if instr(BBS,"钦州")>0 then
      wds0="广西"
    end if

    if instr(BBS,"贵港")>0 then
      wds0="广西"
    end if

    if instr(BBS,"玉林")>0 then
      wds0="广西"
    end if

    if instr(BBS,"百色")>0 then
      wds0="广西"
    end if

    if instr(BBS,"贺州")>0 then
      wds0="广西"
    end if
   
    if instr(BBS,"河池")>0 then
      wds0="广西"
    end if

    if instr(BBS,"来宾")>0 then
      wds0="广西"
    end if

    if instr(BBS,"崇左")>0 then
      wds0="广西"
    end if

end if
'-------------------------------------------海南
if instr(BBS,"海南")>0 then
wds0="海南"
else
    if instr(BBS,"海口")>0 then
      wds0="海南"
    end if

    if instr(BBS,"三亚")>0 then
      wds0="海南"
    end if

end if
'-------------------------------------------四川
if instr(BBS,"四川")>0 then
wds0="四川"
else
    if instr(BBS,"成都")>0 then
      wds0="四川"
    end if

    if instr(BBS,"自贡")>0 then
      wds0="四川"
    end if

    if instr(BBS,"攀枝花")>0 then
      wds0="四川"
    end if
   
    if instr(BBS,"泸州")>0 then
      wds0="四川"
    end if

    if instr(BBS,"德阳")>0 then
      wds0="四川"
    end if

    if instr(BBS,"绵阳")>0 then
      wds0="四川"
    end if

    if instr(BBS,"广元")>0 then
      wds0="四川"
    end if

    if instr(BBS,"遂宁")>0 then
      wds0="四川"
    end if

    if instr(BBS,"内江")>0 then
      wds0="四川"
    end if

    if instr(BBS,"乐山")>0 then
      wds0="四川"
    end if

    if instr(BBS,"南充")>0 then
      wds0="四川"
    end if
   
    if instr(BBS,"眉山")>0 then
      wds0="四川"
    end if

    if instr(BBS,"宜宾")>0 then
      wds0="四川"
    end if

    if instr(BBS,"广安")>0 then
      wds0="四川"
    end if

    if instr(BBS,"达州")>0 then
      wds0="四川"
    end if

    if instr(BBS,"雅安")>0 then
      wds0="四川"
    end if

    if instr(BBS,"巴中")>0 then
      wds0="四川"
    end if

    if instr(BBS,"资阳")>0 then
      wds0="四川"
    end if
   
    if instr(BBS,"阿坝")>0 then
      wds0="四川"
    end if

    if instr(BBS,"甘孜")>0 then
      wds0="四川"
    end if

    if instr(BBS,"凉山")>0 then
      wds0="四川"
    end if
end if
'-------------------------------------------贵州
if instr(BBS,"贵州")>0 then
wds0="贵州"
else
    if instr(BBS,"贵阳")>0 then
      wds0="贵州"
    end if

    if instr(BBS,"六盘水")>0 then
      wds0="贵州"
    end if
   
    if instr(BBS,"遵义")>0 then
      wds0="贵州"
    end if

    if instr(BBS,"安顺")>0 then
      wds0="贵州"
    end if
   
    if instr(BBS,"铜仁")>0 then
      wds0="贵州"
    end if

    if instr(BBS,"黔西")>0 then
      wds0="贵州"
    end if
   
    if instr(BBS,"毕节")>0 then
      wds0="贵州"
    end if

    if instr(BBS,"黔东")>0 then
      wds0="贵州"
    end if

    if instr(BBS,"黔南")>0 then
      wds0="贵州"
    end if
end if

'-------------------------------------------云南
if instr(BBS,"云南")>0 then
wds0="云南"
else
    if instr(BBS,"昆明")>0 then
      wds0="云南"
    end if

    if instr(BBS,"曲靖")>0 then
      wds0="云南"
    end if

    if instr(BBS,"玉溪")>0 then
      wds0="云南"
    end if
   
    if instr(BBS,"保山")>0 then
      wds0="云南"
    end if

    if instr(BBS,"昭通")>0 then
      wds0="云南"
    end if

    if instr(BBS,"丽江")>0 then
      wds0="云南"
    end if

    if instr(BBS,"思茅")>0 then
      wds0="云南"
    end if

    if instr(BBS,"临沧")>0 then
      wds0="云南"
    end if

    if instr(BBS,"楚雄")>0 then
      wds0="云南"
    end if

    if instr(BBS,"红河")>0 then
      wds0="云南"
    end if

    if instr(BBS,"文山")>0 then
      wds0="云南"
    end if
   
    if instr(BBS,"版纳")>0 then
      wds0="云南"
    end if

    if instr(BBS,"大理")>0 then
      wds0="云南"
    end if

    if instr(BBS,"德宏")>0 then
      wds0="云南"
    end if

    if instr(BBS,"怒江")>0 then
      wds0="云南"
    end if

    if instr(BBS,"迪庆")>0 then
      wds0="云南"
    end if

    if instr(BBS,"普洱")>0 then
      wds0="云南"
    end if
end if
'-------------------------------------------西藏
if instr(BBS,"西藏")>0 then
wds0="西藏"
else
    if instr(BBS,"拉萨")>0 then
      wds0="西藏"
    end if

    if instr(BBS,"昌都")>0 then
      wds0="西藏"
    end if
   
    if instr(BBS,"山南")>0 then
      wds0="西藏"
    end if

    if instr(BBS,"日喀则")>0 then
      wds0="西藏"
    end if
   
    if instr(BBS,"那曲")>0 then
      wds0="西藏"
    end if

    if instr(BBS,"阿里地区")>0 then
      wds0="西藏"
    end if
   
    if instr(BBS,"林芝地区")>0 then
      wds0="西藏"
    end if

end if

'-------------------------------------------陕西
if instr(BBS,"陕西")>0 then
wds0="陕西"
else
    if instr(BBS,"西安")>0 then
      wds0="陕西"
    end if

    if instr(BBS,"铜川")>0 then
      wds0="陕西"
    end if
   
    if instr(BBS,"宝鸡")>0 then
      wds0="陕西"
    end if

    if instr(BBS,"咸阳")>0 then
      wds0="陕西"
    end if
   
    if instr(BBS,"渭南")>0 then
      wds0="陕西"
    end if

    if instr(BBS,"延安")>0 then
      wds0="陕西"
    end if
   
    if instr(BBS,"汉中")>0 then
      wds0="陕西"
    end if

    if instr(BBS,"榆林")>0 then
      wds0="陕西"
    end if

    if instr(BBS,"安康市")>0 then
      wds0="陕西"
    end if
   
    if instr(BBS,"商洛")>0 then
      wds0="陕西"
    end if
end if

'-------------------------------------------甘肃
if instr(BBS,"甘肃")>0 then
wds0="甘肃"
else
    if instr(BBS,"兰州")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"嘉峪关")>0 then
      wds0="甘肃"
    end if
   
    if instr(BBS,"金昌")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"白银市")>0 then
      wds0="甘肃"
    end if
   
    if instr(BBS,"天水")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"武威")>0 then
      wds0="甘肃"
    end if
   
    if instr(BBS,"张掖")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"平凉")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"酒泉")>0 then
      wds0="甘肃"
    end if
   
    if instr(BBS,"庆阳")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"定西")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"陇南")>0 then
      wds0="甘肃"
    end if

    if instr(BBS,"临夏")>0 then
      wds0="甘肃"
    end if
   
    if instr(BBS,"甘南")>0 then
      wds0="甘肃"
    end if
end if

'-------------------------------------------青海
if instr(BBS,"青海")>0 then
wds0="青海"
else
    if instr(BBS,"西宁")>0 then
      wds0="青海"
    end if

    if instr(BBS,"海东")>0 then
      wds0="青海"
    end if
   
    if instr(BBS,"海北")>0 then
      wds0="青海"
    end if

    if instr(BBS,"黄南")>0 then
      wds0="青海"
    end if
   
    if instr(BBS,"海南")>0 then
      wds0="青海"
    end if

    if instr(BBS,"果洛")>0 then
      wds0="青海"
    end if
   
    if instr(BBS,"玉树")>0 then
      wds0="青海"
    end if

    if instr(BBS,"海西")>0 then
      wds0="青海"
    end if
end if

'-------------------------------------------宁夏
if instr(BBS,"宁夏")>0 then
wds0="宁夏"
else
    if instr(BBS,"银川")>0 then
      wds0="宁夏"
    end if

    if instr(BBS,"石嘴山")>0 then
      wds0="宁夏"
    end if
   
    if instr(BBS,"吴忠")>0 then
      wds0="宁夏"
    end if

    if instr(BBS,"黄南")>0 then
      wds0="宁夏"
    end if
   
    if instr(BBS,"固原")>0 then
      wds0="宁夏"
    end if

    if instr(BBS,"中卫")>0 then
      wds0="宁夏"
    end if
   
end if

'-------------------------------------------新疆
if instr(BBS,"新疆")>0 then
wds0="新疆"
else
    if instr(BBS,"乌鲁木齐")>0 then
      wds0="新疆"
    end if

    if instr(BBS,"克拉玛")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"吐鲁番")>0 then
      wds0="新疆"
    end if

    if instr(BBS,"哈密")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"昌吉")>0 then
      wds0="新疆"
    end if

    if instr(BBS,"博尔塔拉")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"巴音郭楞")>0 then
      wds0="新疆"
    end if

    if instr(BBS,"阿克苏")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"克孜勒苏")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"喀什")>0 then
      wds0="新疆"
    end if

    if instr(BBS,"和田")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"伊犁")>0 then
      wds0="新疆"
    end if

    if instr(BBS,"塔城")>0 then
      wds0="新疆"
    end if
   
    if instr(BBS,"巴阿勒泰")>0 then
      wds0="新疆"
    end if
end if
'-----------------------------------------
shengfen=wds0
end function

%>

注：本文发自云南电子商务研究站(http://www.xiongmaotou.com),转载请附带本说明，谢谢