Akhirnya, saya punya waktu untuk mempelajari sesuatu yang baru
Peningkatan ASP terlalu besar.
Ada lagi. Baiklah, mari kita bicara lebih sedikit omong kosong, lihat kode sumbernya.
< % @page language = "c#" %>
< % @Assembly name = "System.net" %>
< % @import namespace = "system.net.sockets" %>
< % @import namespace = "System.Text" %>
< % @import namespace = "system.io" %>
< % @import namespace = "System.Collections" %>
<bahasa skrip = "c#" runat = "server">
void doquery (pengirim objek, EventArgs e)
{{
string strongomain = txtdomain.text;
char [] chsplit = {'.'};
string [] arrduin = strdomain.split (chsplit);
int nlenth = arrdomain [1] .length;
Tabel hashtable = hashtable baru ();
table.add ("de", "whois.denic.de");
table.add ("be", "whois.dns.be");
table.add ("gov", "whois.nic.gov");
table.add ("mil", "whois.nic.mil");
String Strserver; // Tentukan server whois
// Jika akhir domainName adalah CN server adalah CNNIC, jika tidak, jaringan
if (arrdomain [arrdomain.length -1] == "cn")
{{
strserver = "159.226.6.139";
}
kalau tidak
{{
strserver = "whois.networksolutions.com";
}
if (table.containskey (arrdomain [1]))
{{
strserver = tabel [arrdomain] [1]].
}
lain jika (nlength == 2)
{{
// Ltter TLD selalu default untuk matang di Eropa
strserver = "whois.ripe.net";
}
String Strresponse;
Bool bsuccess = dowhoislookup (strdomain, strserver, out strresponse);
if (bsuccess)
{{
txtresult.text = strresponse;
}
kalau tidak
{{
txtresult.text = "pencarian gagal";
}
}
Bool Dowhoislokup (String Strdomain, String Strserver, Out String Strresponse)
{{
strresponse = "none";
Bool bsuccess = false;
tcpClient tcpc = tcpclient baru ();
if (0 == tcpc.connect (strserver, 43))
{{
strdomain += "/r/n";
byte [] arrdomain = encoding.ascii.getbytes (strdomain.tocharray ());
mencoba
{{
stream s = tcpc.getStream ();
s.write (arrdomain, 0, strdomain.length);
StreamReader sr = streamReader baru (tcpc.getStream (), encoding.ascii);
StringBuilder strbuilder = stringBuilder baru ();
While (-1! = Sr.peek ())
{{
Strbuilder.append (sr.readline ()+"<br>");
}
tcpc.close ();
bsuccess = true;
strresponse = strbuilder.tostring ();
}
Tangkap (pengecualian e)
{{
strresponse = e.tostring ();
}
Mengembalikan bsuccess;
}
kalau tidak
{{
Strresponse = "tidak dapat terhubung ke server whois";
Mengembalikan false;
}
Mengembalikan false;
}
</script>
<Html>
<head>
<title> </title>
</head>
<body>
<Form runat = "server">
Nama domain: www.
<ASP: Tombol ID = "BTNQUERY" ONCLICK = "DOQUERY" TEXT = "Query!"
<br> <hr> <br>
<asp: label id = "txtresult" runat = "server" />
</form>
</body>
</html>