在与一客户聊天的过程中，客户告诉我贵阳太卷了，要求优化推广时尽量争取地区上的用户，所以把网站的这个小功能重新写了一下。

一、首先定义一个数组，这个数组里包括了省内各市县名

代码如下：

   dname="清镇市,修文县,息烽县,开阳县,赤水市,仁怀市,绥阳县,桐梓县,习水县,湄潭县,凤冈县,余庆县,正安县,务川县,道真县,六枝特区,盘州市,平坝区,普定县,关岭县,镇宁县,紫云县,七星关区,赫章县,晴隆县,大方县,织金县,金沙县,威宁县,碧江区,思南县,江口县,石阡县,德江县,万山区,印江县,沿河县,玉屏县,松桃县,凯里市,麻江县,黄平县,施秉县,三穗县,天柱县,锦屏县,黎平县,从江县,榕江县,丹寨县,岑巩县,雷山县,台江县,剑河县,镇远县,都匀市,龙里县,贵定县,福泉市,瓮安县,独山县,平塘县,荔波县,惠水县,长顺县,罗甸县,三都县,兴义市,兴仁市,纳雍县,普安县,册亨县,望谟县,安龙县,贞丰县"

二、然后净数组里的地区名读出并写入一个数据表

pname = Split(dname, ",") 
   set rs=server.CreateObject("adodb.recordset")
   rs.open "select * from diquxxx",Connect,1,3
   For i = 0 To UBound(pname)
       rs.addnew   
rs("name")=pname(i)
   rs.update
    Next

三、做一个程序页面，内容里涉及地区的词用变量代替

四、最后再根据变量参数随机读取数据库记录在网站各页面分布链接等待收录

      这个小功能可以让网站很快生成针对地区关键字优化的主页，但是否能达到预期效果还是面临不少挑战的，这取决于落地页的制作质量，内容变量的组织，更在于安装这个插件的网站的权重，内容质量等等，所以简单的事情往需复杂做。

     要实现目标，内容落地页最好写多个模板，生成不同的内容，避免搜索引擎的程序化识别，最终不光目标没达成，反而让网站受到搜索的惩罚，弄得排名全无。

     经测试，采用目录方式的效果远差于泛域名的方式。不同的实现方式成本不同。这个做法有点黑帽，建议慎用。