%@ CODEPAGE=65001 %>
サイトー企画セキュリティライブラリ(SaitoKikakuSecLib)デモ
<%
'//テスト用のASPファイル。
Dim obj
Set obj = Server.CreateObject("SaitoKikakuSecLib.SecLib")
Dim ip
ip = Request.QueryString("ip")
If ip = "" Then
ip = Request.ServerVariables("REMOTE_ADDR")
ElseIf ip = "random" Then
Randomize
ip = Int(Rnd * 256) & "." & Int(Rnd * 256) & "." & Int(Rnd * 256) & "." & Int(Rnd * 256)
End If
%>
サイトー企画セキュリティライブラリ(SaitoKikakuSecLib)デモ
結果:
国識別 = <% = Server.HTMLEncode( obj.GetIPCountryJapanese(ip) ) %>
組織名 = <% = Server.HTMLEncode( obj.GetIPOrganization(ip) ) %>