パーキング
<% jptype=trim(request("jptype"))%>
<% if jptype="" then %>
  • 「簡単」「明確」「低価格」が目的の、空いている駐車スペースを案内するシステムです。
        《期待される導入効果》
            □ 駐車場利用効率の向上
            □ 駐車スペースの均等化促進
            □ 駐車場内の安全走行の確保
            □ 駐車場内走行の時間短縮
            □ 排気ガス、騒音の削減
<% end if %> <% if jptype="1" then %>
  • 「簡単」「明確」「低価格」が目的の、空いている駐車スペースを案内するシステムです。
        《期待される導入効果》
            □ 駐車場利用効率の向上
            □ 駐車スペースの均等化促進
            □ 駐車場内の安全走行の確保
            □ 駐車場内走行の時間短縮
            □ 排気ガス、騒音の削減
<%end if%> <% if jptype="2" then %>
  •     個々の駐車スペースに設置したセンサーは、車両の有無をリアルタイムで収集し、その結果をコントローラが自動的に計算して、LED情報表示板に判りやすく標示します。
        センサーの車両有無データは、ブロック毎のノードコントローラで収集し、一定の規則に基づいてメインコントローラに伝えます。メインコントローラでは収集した情報を的確に処理して表示データとして案内板に送信します。
        パソコンを接続した場合は、メインコントローラから、データベースに保存され、同時にパソコンの画面に必要な情報を表示します。また、パソコンを利用しなくても動作するような独立設計となっています。

<% end if%> <% if jptype="3" then %>
  •     ◇ 電子地図の機能
            パソコンで利用する管理システムソフトウェアは、駐車場全体の平面図を表示して使用状況が一目で把握出来ます。これは、駐車場内のすべての駐車スペースに設置してあるセンサーと、パソコンの画面上の駐車スペースがリアルタイムで連動しているからです。

        ◇ 統計機能
            本システムは、センサーからの反応情報をコントローラで受信して、駐車場の利用率を集計します。
            駐車場の使用率を月単位、日単位、時間単位で集計します。

    利用台数(台/時間)


    駐車場利用率(日別)
<% end if%> <% if jptype="4" then%>
    <% ctype=trim(request("ctype")) %> <% if ctype="1" then %>
  • <% rs.AbsolutePage = iPage for i=0 to rs.pagesize-1 if rs.eof or rs.bof then exit for %> <% rs.movenext 'loop next %>
    <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from effect where ctype=1 order by date_time desc ",conn,1,1 rs.PageSize = 6 '第一次显示没有页码,默认显示第一页 If Request("page") <> "" Then iPage = Cint(Request("page")) If iPage < 1 Then iPage = 1 '页码小于1,则显示第一页 '当大于总页数的时候,显示最后一页 If iPage > rs.PageCount Then iPage = rs.PageCount Else iPage = 1 End If Response.Write("当前第" & iPage & "页,共" & rs.PageCount & "页") %>
    中華人民共和国台数
    <%response.Write rs("title_top")%> <%response.Write rs("num")%> ">
  • <% If iPage <> 1 Then %> <% End If '当前是最后一页的时候,不显示"最后页" IF iPage <> rs.PageCount Then %> <%End If%>
  • <% rs.close set rs=nothing %> <% end if %> <% if ctype="2" then %>
  • <% rs.AbsolutePage = iPage for i=0 to rs.pagesize-1 if rs.eof or rs.bof then exit for %> <% rs.movenext 'loop next %>
    <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from effect where ctype=2 order by date_time desc ",conn,1,1 rs.PageSize = 6 '第一次显示没有页码,默认显示第一页 If Request("page") <> "" Then iPage = Cint(Request("page")) If iPage < 1 Then iPage = 1 '页码小于1,则显示第一页 '当大于总页数的时候,显示最后一页 If iPage > rs.PageCount Then iPage = rs.PageCount Else iPage = 1 End If Response.Write("当前第" & iPage & "页,共" & rs.PageCount & "页") %>
    シンガポール共和国台数
    <%response.Write rs("title_top")%> <%response.Write rs("num")%> ">
  • <% If iPage <> 1 Then %> <% End If '当前是最后一页的时候,不显示"最后页" IF iPage <> rs.PageCount Then %> <%End If%>
  • <% rs.close set rs=nothing %> <% end if %>
<% end if%> <% if ctype="3" then%>
  • インドネシア共和国台数
    名称未公開 400
    アラブ首長国連邦(ドバイ)
    名称未公開 8,000
  • <% end if %>