#!/usr/bin/perl -w use strict; use CGI qw/:standard *table start_ul/; #use CGI ::safe qw/:standard/; my $username=param('username) || ' '; my $password=param('password') || ' '; <html> <head> <title>ONLINE REGISTRATION FORM</title> </head> <body style="background-color: blue;"> <div style="color:white;font-family:Tahoma, helvetica,arial;" align +="center"> <h1>Your Registration Form</h1> <p>You can have a <i>Windows </i> account only if u have a <b> Linux + account</b> <p><font color ="red">if you don't have a <b> Linux account</b> click +<a href="http://www.iitk.ac.in"><font color ="yellow">Here</font></a> +to go back to the home page</font> <form action ="users/cc/pr/vaib/1.htm method ="post" enctype ="applica +tion/x-www-form-urlencoded"> <table cellspacing="1" border="0" cellpadding="2" bgcolor="white" styl +e="font: 10pt;"><Tr style="background-color:yellow"> <td><strong>User Name:</strong></td> <td> <input type="text" size="15" maxlength ="25" name="username"></td +> </Tr> <Tr style="background-color:yellow"> <td><strong>Password:</strong></td> <td><input type="password" size="15" maxlength ="15" name = "password" +></td> </Tr> </table> <p><input type= "submit"> <input type="reset" value="clear"></p> </form> </div> </body> </html>
20030707 Edit by Corion
In reply to help with the project by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |