|
|
|
|
|
 |
| |
| 企業命名與涵義 |
| |
|
「行動主義」為開發行動商務(Mobile Commerce)創新應用的軟體服務公司。關於未來的新行動生活價值，我們提倡了一些主張。而這些主張正是日本正在發生，台灣即將
實踐的行動生活型態。
|
| |
| |
| 企業定位 |
|
|
|
| |
<%
mode = LCASE(Request("mode"))
gif = Request("gif")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
IF CSTR(RS("DATE")) <> CSTR(DATE()) THEN ' 如果日期已過了一天
RS("DATE") = DATE() ' 將日期改為今天
RS("YESTERDAY") = RS("TODAY") ' 將今日人數與昨日人數交換
RS("TODAY") = 1 ' 重新計算今日登入人數
RS.Update ' 儲存資料
END IF
IF LASTIP <> NEWIP THEN ' 比對 IP ,不使用灌水式
RS("TOTAL") = RS("TOTAL") + 1 ' 總數加一
RS("TODAY") = RS("TODAY") + 1 ' 重新計算今日登入人數
RS("LASTIP") = NEWIP ' 將新登入者的 IP 寫入
RS.Update ' 儲存資料
END IF
response.write "行動人氣指標: "
GCounter( RS("TOTAL") )
CONN.CLOSE ' 關閉資料庫
Function GCounter( counter )
Dim S, i, G
S = CStr( counter ) ' 先將數值轉成字串 S
' 逐一取出字串 S 的每一個字元，然後串成  的圖形標示
For i = 1 to Len(S)
G = G & "![](./counter/") "
Next
response.write G
End Function
%>
|
|
|
|
|
|
|
|
就行動商務產業結構的分類上，本公司定位在於內容層中的數位娛樂內容。以行動商務的五層架構觀點，內容層的競爭將最為劇烈。然而卻也是最具獲利能力的產業別。內容層是專門化的分散性市場，競爭的關鍵點在於品質與創意。 |
|
|
|
|
|
|
|
| 企業識別標語 |
|
|
|
|
|
|
|
|
|
|
|
行 動 享 樂 主 義