@Blog

検索する

LCCで高知東京間往復（ジェットスター）が2018年内にサービスはじめるよ

2018.08.30

Logging

LCCで高知東京間往復（ジェットスター）が2018年内にサービスはじめるよ。
自分としては待ちに待ったLCCです。
成田から東京まで1000円ちょっとですから、本当、「ちょっと東京まで行ってくる」が
気軽にできるようになります、これは大きいです。
懸念は、高知の治安が少し悪くなるかもしれないということですね。
そこらへんは、分かっているでしょうから対策を打つでしょう。
ただ、日に２便だけぽっい、せめて３便はでてほしいですね。
たぶん、便が増えるにはどれぐらいお客さんが着くかだと思います。
ともあれ、LCC決定して良かった！！
ちなみに一週間前ぐらいに社長から言われた一言で考え方が変わりました。

タグ

2018年内, LCC, サービス, ジェットスター, そこら, どれぐらいお客さん, 一言, 便, 対策, 少し, 懸念, 成田, 旅, 朝日文庫, 治安, 社長, 考え方, 高知東京間往復,

ITの技術は上がっているのに単価が下がっている？様に見える。

2016.07.28

Logging

先日、熱いので涼みに電気店へ行ってきました。何やら店員さんとおじさんがホームページ作成ソフトのことで押問答をしていました。
今日のお題は「ITの技術は上がっているのに単価が下がっている？様に見える。」です。
昔に比べて無料でお手軽に出来ることが増えてきているけれど、無料には大体、落とし穴があって実際、使ってみるとやはり無料だなと感じるところが多い。
無料で利益をあげるひと。
WEBのサイトをテンプレートを無料で配布している人がいる。
無料だけど、必ずテンプレートの中に配布元のリンク先がある。
配布元から言えばSEO対策にもなるし、そのリンクへ行くと広告などが必ず貼っているので、クリックすると配布元の収入になったりする。よく出来た循環だと思う。
無料で良い物を提供するー＞間接的な収入で利益を上げる。WEBだけでは無く。アプリも同じで無料で提供して課金制で収入を上げる方法、この方法もWEBの広告で儲けるのとよく似ている。
どちらも無料でユーザーが使用できるけれど何処かで利益をあげていたりするですね。
こういう循環はWEB広告が登場したあたりから
増えてきているように思えます。
昔からあった手法がITやWEBにも適応されたのだと思うのです・・・。
[画像提供元]フリー写真素材ぱくたそ?

タグ

IT, SEO, web, アプリ, クリック, こと, サイト, ソフト, テンプレート, ところ, どちら, ひと, ホームページ, ユーザー, リンク, るー, 中, 人, 今日, 作成, 先日, 利益, 単価, 収入, 大体, 実際, 対策, 広告, 店員, 循環, 技術, 押問答, 提供, 方法, 昔, 様, 無料, 物, 落とし穴, 課金, 配布, 配布元, 電気店, 題,

これから先のSEO、AI：SEOというものなのかも。

2016.07.02

Logging

これから先のSEO、AI：SEOというものなのかもと下記の記事を
読んでそう思いました。
人工知能はSEOを一変させる―Google RankBrainを知らない対策が危険な理由
今はAIとSEOのハイブリッドみたいなものですけど
今後、AIがサイトの内容を理解していくと、トラフィックの流れや
サイトの内容によって検索順位を変動させることに成ると思います。
もうひとつ言えることは、今でもそうですが
検索順位が意味をなさなくなるという問題もあります。
人や場所によって、検索順位が変動することによって
従来のSEOは意味をなさなくなるという事です。
じゃ、どうすれば良いのかといえば
品質の良い情報を吐き出すことと、SNSの活用することの
２つだと思います。この事が人工知能SEO対策の一番有効な
対策だと感じました。
良いサイト、悪いサイトを人工知能が分別し学習するのは
そんなにも時間はかからないと思います。

タグ

―Google, 2, AI, RankBrain, SEO, SNS, こと, これ, サイト, トラフィック, ハイブリッド, もうひとつ, もの, 一変, 下記, 事, 人, 人工, 今, 今後, 先, 内容, 分別, 危険, 品質, 問題, 場所, 変動, 学習, 対策, 従来, 情報, 意味, 時間, 有効, 検索, 活用, 理由, 理解, 知能, 記事, 順位,

BOT辞めました｛BOTやめるとアクセス減ることは無い？。｝

2015.06.22

Logging

BOT辞めました｛BOTやめるとアクセス減ることは無い？。｝。BOT辞めるとアクセス数は多少減りますが、今後のSEO対策のためにも辞めることにしました。検索会社（googleやyahooなどなど）は、人工知能を検索へ投入する段階へ進んでいます。明らかにボットはSEOからはじかれる存在になります。来年辺りには確実に投入しているじゃないのかな・・・なので辞めます。地道に記事を毎日更新してグーグルに記事を拾われるのを待つことにしました。確かにSNSで発信してボットをつくり、過去記事を再度、SNSへ配信すると人に目にとまる機会は増えますが、やはり何度も同じ記事を目にするということは飽きもきますし、それを見てストレスを感じる人も中に入ると思います。
理由は結構ありますが、ニュース記事でもないので、ボット配信は辞めることに。
追記、撤回、BOTの出現率を調整する事にします(￣^￣)ゞ。 

タグ

BOT, Google, nbsp, SEO, SNS, Yahoo, アクセス, グーグル, こと, ストレス, それ, ため, ニュース, ボット, 中, 事, 人, 人工, 今後, 何度, 再度, 出現, 地道, 存在, 対策, 投入, 撤回, 更新, 来年, 検索, 機会, 段階, 毎日, 理由, 発信, 目, 知能, 記事, 調整, 追記, 過去, 配信,

スマホ対策をしないと収益につながらないみたいだ。

2015.05.21

Logging

スマホ対策をしないと収益につながらないみたいです。いま、このサイトを訪問してくれてる半分の人がスマホ、あとの半分がPC、そしてその他２％の人がタブレットというアクセス結果になっています。アクセスの大半は映画ネタとPGネタが大半です。とくに映画ネタへのアクセスは好評です、有難いものですが・・・・いまのところ、収益にはつながっていないのが現状。むかし、違うブログサイトを運営していた時はスマホなんてものが無かったので訪問者のほぼ大半がPCでした。その為、いまと変わらないアクセス数で収益につながっていました。いまはスマホに広告を掲載していないので収益に繋がっていないというのは、分かっているのですが今のところ広告掲載はせずアクセス数を増やすことを考えいきたいです。ちなみにGoogleがリアルタイム検索サービス（モバイル版で）を復活させましたので、日本でもサービスが近日中に使用できるようになると思います。そうなったら結構、アクセス数が上がるじゃないかと期待しています(^^ゞ
 

タグ

2, Google, PC, PG, アクセス, あと, いま, こと, サービス, サイト, スマホ, その他, タブレット, ところ, ネタ, ブログ, むかし, もの, モバイル, リアルタイム, 人, 今, 使用, 半分, 収益, 大半, 好評, 対策, 広告, 復活, 掲載, 日本, 映画, 時, 検索, 為, 現状, 結果, 訪問, 訪問者, 近日, 運営,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]

Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
    Dim x As Long
    Dim y As Long
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge(999, 999) As Variant
    Dim val_n As Variant
    Dim val As Variant
    Set db = CurrentDb
    sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    Do Until RS.EOF
        For y = 0 To UBound(tal_valname)
            hoge(x, y) = RS.Fields(tal_valname(y))
        Next y
        RS.MoveNext
        x = x + 1
    Loop
    Set db = CurrentDb
    sql = "SELECT MAX(ID) as maxs  FROM " & tablename & ";"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    max = RS.Fields("maxs")
    db_x = x - 1
    Set db = Nothing
    sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge_valname As String
    Dim hoge_val As String
    Dim hoge As Variant
    If chk = True Then
        For i = 0 To UBound(tal_valname)
            hoge_valname = hoge_valname & tal_valname(i) & ", "
        Next i
        hoge_val = sql_str(tal_val, "", "", True)
        sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
    Else
        hoge_valn_val = sql_str("", tal_valname, tal_val, False)
        sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
    End If
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge As Variant
    sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
    Dim i As Long
    Dim hoge_str As Variant
    If chk = True Then
        For i = 0 To UBound(hoge)
            If IsNumeric(hoge(i)) Then
                hoge_str = hoge_str & hoge(i) & ", "
            Else
                hoge_str = hoge_str & "'" & hoge(i) & "', "
            End If
        Next i
    Else
        For i = 0 To UBound(tal_valname)
            If IsNumeric(tal_val(i)) Then
                hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
            Else
                hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
            End If
        Next i
    End If
    sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function

↑クラスdbソースコード

Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
    Dim db As db_db
    Dim val_name As Variant
    Dim x As Long
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    val_val = db.sel_all("tableone", val_name)
    max = db.max + 1
    If cmb.ListCount > 0 Then
        For x = 0 To cmb.ListCount - 1
            cmb.RemoveItem 0
        Next
    End If
    For x = 0 To db.db_x
        cmb.AddItem val_val(x, 1)
    Next
    Set db = Nothing
End Sub
Private Sub cmb_Click()
    If cmb.ListIndex >= 0 Then
        Viw cmb.ListIndex
    End If
End Sub
Private Sub del_btn_Click()
    Dim db As db_db
    Dim hoge As Variant
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    If ID > 0 And max > 1 Then
        hoge = db.del("tableone", "ID", ID)
    End If
    Set db = Nothing
    lod
End Sub
Private Sub in_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("ID", "表題", "数値", "文字")
    val = Array(max, cmb, suuzi, moji)
    Set db = New db_db
    hoge = db.up_in(True, "tableone", val_name, val, max)
    Set db = Nothing
    lod
End Sub
Private Sub upd_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("表題", "数値", "文字")
    val = Array(cmb, suuzi, moji)
    Set db = New db_db
    If ID > 0 And max > 1 Then
        hoge = db.up_in(False, "tableone", val_name, val, ID)
    End If
    Set db = Nothing
    lod
End Sub
Sub Viw(i As Long)
    ID = val_val(i, 0)
    suuzi = val_val(i, 2)
    moji = val_val(i, 3)
End Sub
Sub chkchk()
    If IsNumeric(suuzi) Then
        If suuzi > 9999 Then
            suuzi = 9999
        End If
    Else
        suuzi = 0
    End If
    If IsNumeric(moji) Then
        moji = "文字が不正＞" & moji
    End If
    If IsNumeric(cmb) Then
        cmb = "文字が不正＞" & cmb
    End If
End Sub

↑formソースコード

タグ

35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,