澳门新葡萄京官网注册一个从别的网站抓取信息的例子(域名查询)

? if (isset($xx)) {
$dodo=@file($fqdn.&domain=.$domain.&root=.$root.&cdomain=2.7); $i=0;
while($dodo[$i]) { echo $dodo[$i]; $i++; } exit; } ? ? if
(isset($submit)) { if ($domain==) { echo 请输入域名; exit; }
$dom=@file($domain.&root=.$root); $dom1=substr($dom[13],19);
$dom1=chop($dom1); switch($dom1) { case 对不起!该域名已被注册/FONT:
for($i=0;$i32;$i++) { #i echo $dom[$i]; } ? CENTER FORM METHOD=POST
ACTION=? echo $PHP_SELF; ? INPUT TYPE=hidden NAME=fqdn VALUE=? echo
$domain.$root ? INPUT TYPE=hidden NAME=domain VALUE=? echo $domain.$root
? INPUT TYPE=hidden NAME=root VALUE=? echo $root ? INPUT TYPE=submit
VALUE=显示域名注册的详细信息 name=xx /FORM /CENTER? exit; break; case
对不起!您所输入的是域名名称错误/FONT: $i=0; while($i42) { echo
$dom[$i]; $i++; } $i=51; while($dom[$i]){ echo $dom[$i]; $i++; }
exit; break; case 恭喜您:该域名还未被注册过,可供注册/FONT: ? HTML HEAD
TITLE国际域名注册查询结果/TITLE /HEAD BODY BGCOLOR=#FFFFFF CENTER TABLE
BORDER=0 CELLPADDING=3 WIDTH=75% TRTD TABLE BORDER=0 CELLPADDING=3
WIDTH=100% TR TD BGCOLOR=#000000 FONTCOLOR=#FFFFFF SIZE=3
SIZEFACE=Arial,宋体恭喜您:该域名还未被注册过,可供注册/FONT BR /TD /TR
/TABLE BRBR /TD/TR TR TD BLOCKQUOTE span style=font-family: Arial Black;
font-size: 25pt2/span span style=font-family: 宋体; font-size: 9ptFONT
FACE=Arial,宋体 SIZE=-1
您所查询的国际域名strongdjdjdjdd.com/strong尚未被注册。您可以注册该域名。
/span 您可继续查询其它可注域名。 /FONT /BLOCKQUOTE pp P /BODY /HTML ?
exit; break; } } ? form method=POST action=? echo $PHP_SELF; ? input
type=hidden name=cdomain value=2.7input type=hidden name=lookup
value=OKtable cellpadding=0 border=0 width=100% cellspacing=0 tr
align=center td valign=middle input name=domain size=10 maxlength=256
font size=+1select name=root size=-1 option value=com.com/option option
value=net.net/option option value=org.org/option /select /fontbr br
input type=submit value=国际域名查询 name=submit /td /tr /table /form

这是一段Web
Mail的示范代码,功能不是很强,但是结构还比较完整,主要的功能如查看文件夹,查看信件,回复,写信都有。但是程序中没有考虑附件解读和发送的问题。
(原文在
这里)。仅推荐给希望了解Webmail编程的网友做个参考。更加完善的Webmail请大家到
这里查找。

请注意:程序中使用了http认证功能,此功能需配合apache服务器使用。

将以下代码分别存为 index.php3, imapfuncs.phl
配置imapfuncs.phl文件中的$M_HOST = localhost; $M_MAILSERVER =
transit.fast.no; 然后浏览 index.php3
即可.——————————————————————————–
index.php3 ?PHP /* $Id: index.php3,v 1.3 1999/04/14 12:12:32 borud Exp
$ */ /* load the IMAP library functions we/’ve written */
include(imapfuncs.phl); m_login($m); ? HTML HEAD TITLE?PHP echo
$M_SYSNAME; ?/TITLE /HEAD BODY bgcolor=#AAAAAA text=#000000
link=#440000 vlink=#440000 alink=#FF00FF H1 ?PHP echo $M_SYSNAME;
?/H1 HR SIZE=1 NOSHADE P ?PHP if ($cmd == delete) { m_delete($marked,
$m); m_list($m); } elseif ($cmd == display) { m_display($n, $m); }
elseif ($cmd == compose || $cmd == reply) { m_compose($n, $m); } elseif
($cmd == send) { m_send($to, $subject, $body); m_list($m); } else {
m_list($m); } ? P HR SIZE=1 NOSHADE ?PHP echo User: $PHP_AUTH_USER; ?

/BODY /HTML

imapfuncs.phl ?PHP /* -*-C++-*- */ /* $Id: imapfuncs.phl,v 1.4
1999/04/14 12:12:32 borud Exp $ */ /* configurable parameters */
$M_HOST = localhost; $M_MAILSERVER = transit.fast.no/; $M_COLOR_ODD
= #CCCCCC; $M_COLOR_EVEN = #EEEEEE; $M_COLOR_HEAD = #AAAAFF;
$M_COLOR_BG = #FFFFFF; /* globals */ $M_PORT = 143; $M_SERVICE =
imap; $M_SYSNAME = Simple PHP3 IMAP Interface 1.0; $M_MBOX =
{$M_HOST:$M_PORT/$M_SERVICE}; $M_REALM = IMAP Interface; $MBOX =
false; /* functions */ function m_login ($mailbox = ”) { global
$MBOX, $M_REALM; global $PHP_AUTH_USER, $PHP_AUTH_PW; if ($MBOX) {
return true; } if (! $PHP_AUTH_USER) { m_reject($M_REALM); } $MBOX =
@imap_open(m_mailbox_name($mailbox), $PHP_AUTH_USER,
$PHP_AUTH_PW); if (! $MBOX) { m_reject($M_REALM); } return true; }
function m_list($mailbox = ”) { global $MBOX, $PHP_SELF; global
$M_COLOR_ODD, $M_COLOR_EVEN, $M_COLOR_HEAD, $M_COLOR_BG; /* if
not logged into server, do so */ if (! $MBOX) { if (!
m_login($mailbox)) { return false; } } $num = imap_num_msg($MBOX);
echo FORM ACTION=$PHP_SELF TYPE=POST/n; echo CENTERTABLE BORDER=0
CELLSPACING=0 CELLPADDING=1 WIDTH=90%/n; echo TR ALIGN=LEFT
BGCOLOR=$M_COLOR_HEAD; echo TH /THTHFrom/THTHSubject/THTHDate/TH; echo
/TR/n; for ($i=1; $i ($num+1); $i++) { $head = imap_header($MBOX, $i,
50, 50, 0); $from = $head-fetchfrom; $subj = $head-fetchsubject; $date =
m_date_format($head-date); $bgcolor = ($i%2 ==
0)?$M_COLOR_ODD:$M_COLOR_EVEN; echo TR BGCOLOR=/$bgcolor//n; echo
TDINPUT TYPE=CHECKBOX NAME=marked[] VALUE=$i/TD/n; echo TD$from/TD;
echo TDA href=/$PHP_SELF?m=$mailbox&n=$i&cmd=display/$subj/A/TD; echo
TD$date/TD/n; echo /TR/n; } if ($num = 0) { echo TRTD COLSPAN=4
BGCOLOR=$M_COLOR_BGBR; echo FONT SIZE=+1 COLOR=#FF0000No messages in
mailbox/FONT; echo BRBR/TD/TR/n; } echo TR BGCOLOR=$M_COLOR_HEADTD
COLSPAN=4; echo INPUT TYPE=submit NAME=cmd VALUE=delete; echo INPUT
TYPE=submit NAME=cmd VALUE=compose; echo INPUT TYPE=submit NAME=cmd
VALUE=refresh; echo /TD/TR/n; echo /TABLE/CENTER/n; echo /FORM/n; return
true; } function m_display($msgno, $mailbox = ”) { global $MBOX,
$M_COLOR_HEAD, $M_COLOR_BG; global $PHP_SELF; if (! $MBOX) { if (!
m_login($mailbox)) { return false; } } $struc =
imap_fetchstructure($MBOX, $msgno); if (! $struc) { return false; }
$head = imap_header($MBOX, $msgno, 50, 50, 0); $from =
$head-fromaddress; $subj = $head-subject; $date = $head-date; $body =
htmlentities(imap_body($MBOX, $msgno)); echo CENTER/n; echo TABLE
BORDER=0 CELLSPACING=0 CELLPADDING=10 WIDTH=100%/n; echo TR
BGCOLOR=$M_COLOR_HEADTHMessage #$msgno: $from / $subj/TH/TR/n; echo
TR BGCOLOR=$M_COLOR_BGTDPRE/n; echo From: $from/n; echo Subject:
$subj/n; echo Date: $date/n; echo HR SIZE=2 NOSHADE/n; echo $body/n;
echo /PRE/TD/TR/n; echo TR BGCOLOR=$M_COLOR_HEADTD; echo FORM
ACTION=$PHP_SELF METHOD=POST; echo INPUT TYPE=HIDDEN NAME=m
VALUE=$mailbox/n; echo INPUT TYPE=HIDDEN NAME=n VALUE=$msgno/n; echo
INPUT TYPE=HIDDEN NAME=marked[] VALUE=$msgno/n; echo INPUT TYPE=SUBMIT
NAME=cmd VALUE=back; echo INPUT TYPE=SUBMIT NAME=cmd VALUE=reply; echo
INPUT TYPE=SUBMIT NAME=cmd VALUE=delete; echo /TD/TR/n; echo /TABLE/n;
echo /CENTER/n; return true; } function m_delete ($msgno, $mailbox=”)
{ global $MBOX; if (is_array($msgno)) { while (list($dummy, $num) =
each($msgno)) { imap_delete($MBOX, $num); } imap_expunge($MBOX); }
else { return false; } return true; } function m_compose ($msgno=”,
$mailbox=”) { global $MBOX, $M_COLOR_HEAD, $M_COLOR_BG; global
$PHP_SELF, $PHP_AUTH_USER, $M_MAILSERVER; if ($msgno != ”) { $head
= imap_header($MBOX, $msgno, 150, 150, 0); $to = $head-fromaddress;
$subject = Re: . $head-subject; $body = $to wrote:/n; $body .=
ereg_replace(/n,/n, /n . imap_body($MBOX, $msgno)); } else { $to = ;
$subject = ; $body = ; } echo CENTER/n; echo FORM METHOD=POST
ACTION=/$PHP_SELF//n; echo TABLE BORDER=0 CELLPADDING=5
CELLSPACING=0/n; echo TR bgcolor=$M_COLOR_HEADTD ALIGN=RIGHTTo:/TD;
echo TDINPUT TYPE=TEXT NAME=to value=/$to/ SIZE=50/TD/TR/n; echo TR
bgcolor=$M_COLOR_HEADTD ALIGN=RIGHTSubject:/TD; echo TDINPUT TYPE=TEXT
NAME=subject value=/$subject/ SIZE=50/TD/TR/n; echo TR
bgcolor=$M_COLOR_BGTD COLSPAN=2; echo TEXTAREA COLS=76 ROWS=10
NAME=body WRAP=hard$body/TEXTAREA;

发表评论

电子邮件地址不会被公开。 必填项已用*标注