Schließlich habe ich Zeit, etwas Neues zu lernen
Die Verbesserung von ASP ist zu groß.
Es gibt mehr. Lassen Sie uns weniger Unsinn sprechen und sich den Quellcode ansehen.
< % @Page Language = "C#" %>
< % @Assembly name = "System.net" %>
< % @import namespace = "System.net.sockets" %>
< % @import namespace = "System.Text" %>
< % @import namespace = "System.io" %>
< % @import namespace = "System.Collections" %>
<script Language = "C#" Runat = "Server">
void doQuery (Objektabsender, EventArgs E)
{{{{
string strongoMain = txtdomain.text;
char [] chsplit = {'.'};
String [] arrduin = stromain.Split (chSplit);
int nlenth = arrdomain [1] .Length;
Hashtable table = new Hashtable ();
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;
// Wenn das Ende des Domainnamens CN ist, ist der Server cnnic, andernfalls Netzwerkesolutionen
if (arrdomain [arrdomain.length -1] == "cn")
{{{{
strServer = "159.226.6.139";
}
anders
{{{{
StrServer = "whois.netWorksolutions.com";
}
if (Tabelle.ContainsKey (Arrdomain [1]))
{{{{
StrServer = Tabelle [Arrdomain] [1]].
}
sonst wenn (nLength == 2)
{{{{
// Ltter Tld ist immer standardmäßig in Europa reif
StrServer = "whois.ripe.net";
}
String Strresponse;
Bool bsuccess = dowhoislookup (Strdomain, Strserver, out Strresponse);
if (bSuccess)
{{{{
txtresult.Text = strResponse;
}
anders
{{{{
txtresult.text = "SOOKUP fehlgeschlagen";
}
}
Bool DowhoisLokup (String Strdomain, String StrServer, out String Strresponse)
{{{{
Strresponse = "keine";
Bool bsuccess = false;
tcpclient tcpc = new tcpclient ();
if (0 == TCPC.Connect (StrServer, 43))
{{{{
Strdomain += "/r/n";
byte [] arrdomain = coding.ascii.getBytes (stromain.tocharray ());
versuchen
{{{{
Stream S = tcpc.getStream ();
S.Write (Arrdomain, 0, Strdomain.length);
StreamReader sr = new streamReader (tcpc.getStream (), coding.ascii);
StringBuilder strbuilder = new StringBuilder ();
While (-1! = Sr.peek ())
{{{{
Strbuilder.Append (sr.readline ()+"<br>");
}
TCPC.CLOSE ();
bSuccess = true;
strResponse = strbuilder.toString ();
}
fangen (Ausnahme E)
{{{{
strResponse = e.toString ();
}
BSUCCESS zurückgeben;
}
anders
{{{{
StrResponse = "konnte keine Verbindung zum WHOIS -Server herstellen";
False zurückgeben;
}
False zurückgeben;
}
</script>
<html>
<kopf>
<title> </title>
</head>
<body>
<Formular Runat = "Server">
Domänenname: www.
<ASP: Button ID = "BtnQuery" Onclick = "DoQuery" Text = "Abfrage!"
<br> <hr> <br>
<ASP: label id = "txtresult" runat = "server" />
</form>
</body>
</html>