<input page> use CGI qw(:standard); $co = new CGI;
print header,start_html ("resource input"),h1("Recource Invoking Auto-Record Form");
print hr();
print start_form(-method=>'POST', -action=>recource.cgi);
#print p("Name",textfield("name"));
print p("Name",popup_menu("name",['xietao1','liuying1','linxb']));
#i have tried this also(print $co->popup_memu( -name=>'name', -values=>['xietao1','liuying1','linxb']);)
print p("Department",popup_menu ("department",['TR','IP','VS','FR']));
print p("Configer",popup_menu("configer",['Yes','No']));
print p("Line Arragement",popup_menu("linearrangement",['Yes','No']));
print p (submit("submit"),reset("clear"));
print end_form,hr();
print end_html;
recource.cgi
use CGI qw(:standard);
$co = new CGI;
print $co->header, $co->start_html();
$co->hr;
if ($co->param()){
print " your name is :",
$co->em($co->param('name')),".",
$co->p;}
print $co->hr;
print $co->end_html;this is the first time i have made cgi. i could not get the name value from input page, whagt is wrong ?
thanks
_________________________________________________________________
免费下载 MSN Explorer: http://explorer.msn.com/lccn
_______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
