根据域名返回IP地址

最新推荐文章于 2021-05-06 16:22:55 发布

fanenmin

最新推荐文章于 2021-05-06 16:22:55 发布

阅读量518

点赞数

分类专栏： ASP.NET 文章标签： server textbox asp integer button import

本文链接：https://blog.csdn.net/fanenmin/article/details/3945375

版权

ASP.NET 专栏收录该内容

40 篇文章 0 订阅

订阅专栏

http://localhost:3148/test2/DNStoIP.aspx

www.sina.com
218.30.108.183
218.30.108.184
218.30.108.185
218.30.108.186
218.30.108.187
218.30.108.188
218.30.108.189
218.30.108.190
218.30.108.191
218.30.108.63
218.30.108.64
218.30.108.65
218.30.108.66
218.30.108.67
218.30.108.181
218.30.108.182
www.sohu.com
61.135.179.155
61.135.179.160
61.135.179.161
61.135.179.166
61.135.179.184
61.135.179.190
61.135.179.191
61.135.179.146
www.163.com
61.135.253.11
61.135.253.12
61.135.253.13
61.135.253.14
61.135.253.15
61.135.253.16
61.135.253.17
61.135.253.18
61.135.253.9
61.135.253.10
www.qq.com
61.135.167.36
www.baidu.com
220.181.6.18
220.181.6.19
www.google.com
72.14.235.99
72.14.235.104
72.14.235.147

code:

<%@ Import Namespace="System.Net" %>
<script language="vb" runat="server">
    Sub Enter_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim objIPHE As IPHostEntry
        objIPHE = Dns.GetHostByName(txtDNS.text)
        Dim i As Integer
        message.Text &= "<BR>" & txtDNS.Text
        For i = 0 To objIPHE.AddressList.Length - 1
            message.Text &= "<br>" & objIPHE.AddressList(i).ToString
        Next
    End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>无标题页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <asp:TextBox ID="txtDNS" runat="server"></asp:TextBox>
    <asp:Button ID="Enter" Text="确定" OnClick="Enter_Click" runat="server" />
        <br />
        <br />
    <asp:Label ID="message" runat="server"></asp:Label>
    </div>
    </form>
</body>
</html>