Programalama > CGI

Etiketler: cgi, ile, isim, sorma......

Ort. 0
Puan ver:
#!/usr/bin/Perl 
################################################# 
# form2.pl  
print "Content-type: text/html", "\n\n"; 
$veri=$ENV{'QUERY_STRING'}; 
($kutuismi, $isim)=split(/=/, $veri); 
if(!$veri) 
{ 
print <<HTML; 
<html> 
<head><title>Form Örnegi</title></head> 
<body> 
<H2>Form Örnegi</H2> 
<form action="cgi-bin/form2.pl" method="GET"> 
Isim: <input type="text" name="isim" size=20> 
<p> 
<input type="submit" value="GONDER"> 
<input type="reset" value="SIL" SIZE> 
</form> 
<HR> 
</body> 
</html> 
HTML 
} 
else 
{ 
if($isim) 
{ 
print "Merhaba $isim. MaxiAsp'ye hosgeldin!!"; 
} 
else 
{ 
print "Giris Için Tiklayin"; 
} 
} 
exit(0); 
##################################################  

Coded By : Sync


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.