在與一客戶聊天的過程中，客戶告訴我貴陽太卷了，要求優(yōu)化推廣時盡量爭取地區(qū)上的用戶，所以把網(wǎng)站的這個小功能重新寫了一下。

一、首先定義一個數(shù)組，這個數(shù)組里包括了省內(nèi)各市縣名

代碼如下：

   dname="清鎮(zhèn)市,修文縣,息烽縣,開陽縣,赤水市,仁懷市,綏陽縣,桐梓縣,習(xí)水縣,湄潭縣,鳳岡縣,余慶縣,正安縣,務(wù)川縣,道真縣,六枝特區(qū),盤州市,平壩區(qū),普定縣,關(guān)嶺縣,鎮(zhèn)寧縣,紫云縣,七星關(guān)區(qū),赫章縣,晴隆縣,大方縣,織金縣,金沙縣,威寧縣,碧江區(qū),思南縣,江口縣,石阡縣,德江縣,萬山區(qū),印江縣,沿河縣,玉屏縣,松桃縣,凱里市,麻江縣,黃平縣,施秉縣,三穗縣,天柱縣,錦屏縣,黎平縣,從江縣,榕江縣,丹寨縣,岑鞏縣,雷山縣,臺江縣,劍河縣,鎮(zhèn)遠縣,都勻市,龍里縣,貴定縣,福泉市,甕安縣,獨山縣,平塘縣,荔波縣,惠水縣,長順縣,羅甸縣,三都縣,興義市,興仁市,納雍縣,普安縣,冊亨縣,望謨縣,安龍縣,貞豐縣"

二、然后凈數(shù)組里的地區(qū)名讀出并寫入一個數(shù)據(jù)表

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

三、做一個程序頁面，內(nèi)容里涉及地區(qū)的詞用變量代替

四、最后再根據(jù)變量參數(shù)隨機讀取數(shù)據(jù)庫記錄在網(wǎng)站各頁面分布鏈接等待收錄

      這個小功能可以讓網(wǎng)站很快生成針對地區(qū)關(guān)鍵字優(yōu)化的主頁，但是否能達到預(yù)期效果還是面臨不少挑戰(zhàn)的，這取決于落地頁的制作質(zhì)量，內(nèi)容變量的組織，更在于安裝這個插件的網(wǎng)站的權(quán)重，內(nèi)容質(zhì)量等等，所以簡單的事情往需復(fù)雜做。

     要實現(xiàn)目標(biāo)，內(nèi)容落地頁最好寫多個模板，生成不同的內(nèi)容，避免搜索引擎的程序化識別，最終不光目標(biāo)沒達成，反而讓網(wǎng)站受到搜索的懲罰，弄得排名全無。

     經(jīng)測試，采用目錄方式的效果遠差于泛域名的方式。不同的實現(xiàn)方式成本不同。這個做法有點黑帽，建議慎用。