一個女孩懷孕了 她老爸只說了8個字 一個用於網絡的工具函數庫

PHP
/*
PHP Net Toolpack v0.1 08.05.2000，
由waddler(@netlife.fi)
phpnettoolpack.sourceforge.net
根據GNU GPL 分發*/
// whois(主機名稱[,使用者名稱, [連接埠]])
函數whois ($a_server, $a_query="", $a_port=43) {
$sock = fsockopen ($a_server, $a_port, &$errno, &$errstr, 10);
if (!$sock)
{
echo "$errstr ($errno)
n";
} else {
fputs($sock, "$a_queryrn");
while(!feof($sock))
{
$buf = fgets($sock,128);
if (ereg( "Whois 伺服器：", $buf))
{
$a_server = str_replace( "Whois 伺服器：", "", $buf);
$a_server = trim($a_server );
}
}
fclose($sock);
if ($a_server)
{
print "$a_query 已在$a_server 註冊:
";
$sock = fsockopen($a_server, 43, &$errno, &$errstr, 10);
if(!$sock)
{
echo "無法在在連接埠$a_port.n 上開啟與$a_server 的連線";
echo "$errstr ($errno)
n";
} else {
fputs($sock, "$a_queryrn") ;
while(!feof($sock))
{
echo fgets($sock,128);
}
fclose($sock);
}
} else {
echo "找不到$a_query。
";
}
}
}
// Finger(主機名稱[,使用者名稱, [連接埠]])
函數Finger ($a_server, $a_query="", $a_port=79) {
$sock=fsockopen($a_server,$a_port, &$errno, &$errstr, 10) ;
if (!$sock)
{
$ret_str = "$errstr ($errno)
n";
} else {
fputs($sock,"$a_queryn ");
while (!feof($sock)) { $ret_str .= fgets($sock,128); }
fclose($sock);
}
echo $ret_str;
回傳$ret_str;
}
//traceroute(主機名稱)
函數traceroute ($a_query) {
exec("traceroute $a_query",$ret_strs);
exec("traceroute $a_query",$ret_strs);
$str_ = count($ret_strs);
for ($count=0; $count print "$count/$str_count".$ret_strs[$count]."n";
}
// ----------------------------------------- - -----------------
$app_name = "PHP 網路工具包";
$app_version = "0.1";
$TOOLS = array(
"finger" => "Finger",
"traceroute" => "Traceroute",
"whois" => "Whois?"
）；
// 當包含在 內時在html 檔案上..
if ($tool=="listtools")
{
while (list($key, $val) = every($TOOLS)) {
print " < ;OPTION VALUE="".$key."">".$val."n";
}
退出；
}
/ / 印出適當的html 標題
print "";
if ($tool)
{
列印"n" ;
印出「n

」.$tool.」 for “.$query.”..

n”；
} else {
print "n";
print "n

".$app_name."n";
}
// 檢查他們想要使用什麼工具並執行必要的操作
switch($tool) {
case "finger":
if ($ query)
{
印出「

n」；<br>手指($server, $query); <br>印出「

」;
} 其他 {
? >

"方法=“帖子”>
伺服器：

查詢：


表格>
}
中斷；
case "traceroute":
if ($query)
{
print "

n"; <br>traceroute($query); <br>印出「

」;
} 其他 {
?>

"方法=“帖子”>
查詢：


表格>
}
休息；
case "whois":
if ($query)
{
print "

n"; <br>whois($server,$query); <br>印出「

」；
} 其他{
?>  

"方法=“帖子”>
這將找到.com、.org 和.net 域

伺服器：

查詢：


表格>
PHP
}
中斷；
預設：
print "

目前支援的工具有：n";
while (list($key, $val) = every($TOOLS )) {
echo "
• ".$val."
n";
}
列印「

n」；
休息；
}
print "n

---

".$app_name." v".$app_version." n";
印出「n」；
？ > 

以上就介紹了一個女孩懷孕了她老爸只說了8個字一個用於網絡的工具函數庫，包括一個女孩懷孕了她老爸只說了8個字方面的內容，希望對PHP教程有有有興趣的朋友會得到幫助。