[ASPNET]反查域名

這個範例用的是 .Net 2.0 的方法,1.1 以前有舊方法,不過要注意,舊方法在 2.0 被標記為過期。
主要程式碼摘錄如下:

Sub Main()

     Dim strIP As String

     strIP = GetClientFromIP()

     If ((Request("REQUEST_METHOD") = "POST") And (Request("CONTENT_LENGTH") > 0)) Then

          strIP = LCase(Request("txtInput"))

          Response.Write("<h2>您查詢" & vbNewLine)

     Else

          Response.Write("<h2>您來自" & vbNewLine)

     End If

     Dim ipInfo As Net.IPHostEntry = Net.Dns.GetHostEntry(strIP)

 

     Response.Write("" & ipInfo.HostName & " (" & strIP & ")" & "</h2><hr />" & vbNewLine)

     Response.Write("<table width=’100%’>" & vbNewLine)

     Response.Write("<tr><th>IPv4</th><th>Broadcast</th><th>Loopback</th><th>IPv6Any</th><th>IPv6Loopback</th><th>IPv6None</th></tr>" & vbNewLine)

 

     For iba As Integer = 0 To ipInfo.AddressList.Length – 1

          With ipInfo.AddressList(iba)

               Response.Write("<tr>" & vbNewLine)

               Response.Write("<td>" & .ToString & "</td>" & vbNewLine)

               Response.Write("<td>" & .Broadcast.ToString & "</td>" & vbNewLine)

               Response.Write("<td>" & .Loopback.ToString & "</td>" & vbNewLine)

               Response.Write("<td>" & .IPv6Any.ToString & "</td>" & vbNewLine)

               Response.Write("<td>" & .IPv6Loopback.ToString & "</td>" & vbNewLine)

               Response.Write("<td>" & .IPv6None.ToString & "</td>" & vbNewLine)

               Response.Write("</tr>" & vbNewLine)

          End With

     Next

     Response.Write("</table>" & vbNewLine)

End Sub

 
廣告
Categories: 技術分享 | 1 則迴響

文章分頁導航

One thought on “[ASPNET]反查域名

  1. Unknown

    Thanks for sharing! You’ve been linked:
    http://www.dotneturls.com/big5/Blogs/20070522/230/default.aspx

    按讚數

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

您的留言將使用 WordPress.com 帳號。 登出 / 變更 )

Twitter picture

您的留言將使用 Twitter 帳號。 登出 / 變更 )

Facebook照片

您的留言將使用 Facebook 帳號。 登出 / 變更 )

Google+ photo

您的留言將使用 Google+ 帳號。 登出 / 變更 )

連結到 %s

在 WordPress.com 建立免費網站或網誌.

%d 位部落客按了讚: