- 论坛徽章:
- 0
|
<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;
CGI Page
<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 i have made a cgi.
i could not get the name value from input page, if you free, please give me a hand |
|