From 287449047a419b62206faead045c492dfca5aad8 Mon Sep 17 00:00:00 2001 From: Timothy Andrew Date: Thu, 17 Nov 2011 08:32:56 +0530 Subject: [PATCH] Added 10. --- 10/10.cgi | 28 ++++++++++++++++++++++++++++ 10/10.html | 8 ++++++++ 2 files changed, 36 insertions(+) create mode 100644 10/10.cgi create mode 100644 10/10.html diff --git a/10/10.cgi b/10/10.cgi new file mode 100644 index 0000000..364fa61 --- /dev/null +++ b/10/10.cgi @@ -0,0 +1,28 @@ +#! /usr/bin/perl + +use CGI ':standard'; +use DBI; + +print header(); +print start_html('SQL'); + +$dbh = DBI->connect("dbi:mysql:student:localhost:3306","root","root"); +print 'Connected'; +$name=param("name"); +$age=param("age"); +$qh=$dbh->prepare("insert into user values('$name','$age')"); +$qh->execute(); +$qh=$dbh->prepare("Select * from user"); +$qh->execute(); + +print "Table info:
"; +print ""; + +while ( ($name,$age)=$qh->fetchrow()){ + print ""; +} + +print "
NameAge
$name$age
"; +$qh->finish(); +$dbh->disconnect(); +print""; diff --git a/10/10.html b/10/10.html new file mode 100644 index 0000000..68d113d --- /dev/null +++ b/10/10.html @@ -0,0 +1,8 @@ + + +
+ Name :
+ Age :
+ +
+ \ No newline at end of file