Object ' gtm api のエンドポイント Dim url As String = "/amp.json?gtm.url=www.ikyu.com/kankou/kyoto/" ' gtm.jsonを取得 Dim jsonStr = "{var: .... }" ' _ga が既にあればそれを使用、 ' なければAMPで発行されたAMP_ECID_GOOGLEを使用 ' Client IDがある時は変数をその IDに置換する If Not String.IsNullOrEmpty(cid) Then jsonStr = Replace(jsonStr, "CLIENT_ID(AMP_ECID_GOOGLE,,_ga)", "${clientId}") End If ' 修正したしたgtm.jsonをデシリアライズ Dim obj_data = JavaScriptSerializer.Deserialize(Of AmpJsonModel)(jsonStr) ' extraUrlParamsを使う加工など obj_data.extraUrlParams.Add("cm", "organic") Return obj_data End Function
If Me.HasAdParams Then Me.DocumentReferrer = Me._params("referrer") If Me._params("ikCo") <> String.Empty Then obj_data.extraUrlParams.Add("cm", "cpc") obj_data.extraUrlParams.Add("cs", Me._params("ikCo")) obj_data.extraUrlParams.Add("dr", Me.DocumentReferrer) End If End If End Sub