GetGlobalIP O[oIP擾XNvg 2004/02/06


getglbip.vbs  getGlobalIP()֐ĂԂOKłB

͂܂BԂlƂIPAhXԂ܂B
G["Error"Ԃ܂񂪕ۏ؂܂B

svcȕ񂪏o͂Ƃ≽o͂Ȃꍇ
K\p^[͂ꂽf[^ɂȂĂꍇ̂
regex.PatternĂ݂ĂB

VBScrpt+K\ł̎͏߂Ă̂ł_
XƎv܂Bꍇ͏C񍐂Ă
܂B

Eɂ
Upl rxSpQfpezk pŎ擾XREAAJEg
globalip.cgi ƂCGIXNvguǍʂIPAhX
擾Ă܂BāÃXNvĝT[oɎxႪꍇ
Ɏ擾ł܂Bglobalip.cgiPerl̓T[oł
ˑȂƎv̂ŁAłǂʂ̃T[oɐݒuA
getglbip.vbsurlToGetϐĂB
 XREAłglobalip.cgi͈ȉ̂悤ɂȂĂ܂B

----------file:globalip.cgi----------
#!/usr/bin/perl
print "Content-Type: text/html\n\n";

print "<HTML><!--nobanner--><HEAD><TITLE>Global IP</TITLE></HEAD><BODY><PRE>\n";
print "<!--IP_ADDR-->";
print "$ENV{'REMOTE_ADDR'}";
print "<!--IP_ADDR-->";
print "\n</PRE>\n";

# ad banner
print '<IFRAME HEIGHT="60" WIDTH="468" FRAMEBORDER="0" MARGINHEIGHT="0" MARGINWIDTH="0" SCROLLING="NO" ALLOWTRANSPARENCY="TRUE" SRC="http://ad.xrea.com/ad_iframe.fcg?site=zawa.s18.xrea.com">
<A HREF="http://ad.xrea.com/ad_click.fcg?site=zawa.s18.xrea.com" TARGET="_BLANK" ><IMG SRC="http://ad.xrea.com/ad_img.fcg?site=zawa.s18.xrea.com" HEIGHT="60" WIDTH="468" BORDER="0"></A>
</IFRAME>';

print '</BODY></HTML>';
-------------------------------------

EƐӓ
 {XNvggpۂ͈؂̎ȐӔĈƂł肢܂B
܂AUpl rxSpQfpezk 
@O[oIP擾XNvg getglbip.vbs̓A
@XREAT[oglobalip.cgi̓Aғ󋵂Ȃ
ɂĈ؂̐ӔC𕉂܂B

