天下莫柔弱于水,而攻坚强者莫之能胜,以其无以易之。lidow.blog.chinaunix.net
dow
全部博文(184)
MYSQL(7)
Oracle(10)
Ubuntu(12)
AIX(5)
Win(3)
Perl(21)
BSD(1)
Linux_Unix(31)
2010年(5)
2009年(104)
2008年(75)
matebest
flyer159
lhwxx
SAP3040
doulove
cynthia
格伯纳
Bsolar
浪花小雨
分类:
2009-09-30 19:34:14
#!/usr/bin/perluse DBI;use CGI ':standard';BEGIN{ use CGI::Carp qw(fatalsToBrowser carpout);}$db=DBI->connect('DBI:mysql:sample_db;user=root');print header(-type=>'text/html',-charset=>'gb2312');print start_html(-title=>"第一个关于Mysql数据库的题目"); if (param()){ $username=param('username'); $sth=$db->prepare("insert into test set user= ? ") or die "Can't prepare sql statement".DBI->errstr; $sth->execute($username); $sth=$db->prepare("select * from test ") or die "Can't prepare sql statement".DBI->errstr; $sth->execute(); if($sth->rows==0){ print "No date"; exit; } while(my @val=$sth->fetchrow_array()){ print "id=$val[0]"; print "user=$val[1]"; } $sth->finish(); $db->disconnect(); } else{ print p("Sorry!"); }print end_html;
上一篇:单机情况使用2个网卡一个ip地址(转unixsoft)
下一篇:HTML+TT模板+循环标签的使用
登录 注册