#!/usr/bin/perl ##################################################################### # 程式名称：CGI-ENV 1.00 # 网页浏览次数记录器 - 不同的网页可单独或共同记录在一个档内 # 初始设计：1999/08/23 (ver 1.00) # 最后修改：1998/08/23 (ver 1.00) # 作　　者：傅鸿铭 # 信　　箱：redsnow@pemail.net # 网　　页：http://www.tacocity.com.tw/redsnow/index.htm # # 作者宣告： # 本程式免费提供给有需要的个人所使用，您可以修改程式码以便符合您的需 # 求，但是请将本段表头资料保留不动，表示对作者的尊重，至于您自己的记 # 载事项及其它说明请修改于本段资料之后。 ###################################################################### # 使用说明： #　1.修改本程式第一行之 #!/usr/local/bin/perl 为您的网站所适用的设定。 #　2.将本程式上传至您的网站目录内。 #　3.更改本程式属性为 755。 #　4.直接在浏览器的网址行输入 HTTPD 格式指向程式的路径，或是在网页上设 # 置超连结项目均可，例如： # http://tacocity.com.tw/cgi-bin/cgiwrap/urid/cgi-env.pl # # 您也可以在程式名称之后加上参数，作为参数传递的测试，例如： # http://tacocity.com.tw/cgi-bin/cgiwrap/urid/cgi-env.pl?parm1+parm2 #################################################################### my($version) = "1.00"; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "$ENV{'GATEWAY_INTERFACE'} 变数测试一览表\n"; print "

\n"; print "\n"; print "\n"; print "\n"; for($i=0; $i<=$#ARGV; $i++){ print "\n"; } print "\n"; foreach $env (sort keys %ENV){ print "\n"; } print "
Perl 参数变数名称内含参数值
\$\#ARGV$#ARGV
\@ARGV"; if(@ARGV){ print "@ARGV"; }else{ print " "; } print "
\$ARGV[$i]$ARGV[$i]
主机环境变数名称变数内含值
$env\n"; if($ENV{$env}){ print "$ENV{$env}"; }else{ print " "; } print "
\n"; print "

cgi-env V$version
"; print "本测试程式由 红雪网页 所设计

\n"; print " Psend kept free because of these great sponsors.a..

Other Sponsors

electrical connectors, Mangosteen Juice, real estate short sale, Jupiter FL real estate,

Furniture Markdown

Great Deals on furniture - Free Shipping!
Discount Furniture
Daybeds
Metal Beds
Platform Beds
Futons

Y-Net Wireless Internet

Denver area high speed wireless privider.
Colorado High Speed Internet, Wireless Internet Denver, VOIP Denver CO, T1 provider Denver, Denver Wireless ISP , Denver Internet Access,

Dog House Technologies

Doghouse Techonologies is located in Tampa Bay FL and offer professional web design, ecommerce development and custom application design for the internet.
Tampa Bay Web Design, E-Commerce Web Design, Tampa Bay Search Engine Marketing, Tampa Web Hosting, Florida Web Design, Custom Application Development, Search Engine Optimization,

"; exit;