#以下三项是数据库名,调用数据库的用户名,密码;$dbname="dbi:Oracle:DBName";$user="user";$pass="pass";
#联系数据库;$dbh=DBI-$#@62;connect($dbname,$user,$pss) || die "Error Connecting to database \n";
#数据库查询;$tag=$dbh-$#@62;prepare("SELECT * FROM 表名");$tag-$#@62;execute; #执行查询;die "Error:$DBI::err\n" if DBI::err; #出错判断;my($col1,$col2); #定义只在本程序中(用my来表示)有效的两个变量;while(($col1,$col2)=$tag-$#@62;fetchrow) {print "Column 1:$col1\n";print "Column 2:$col2\n";}$dbh-$#@62;disconnect or warn "Disconnection failed \n"; #断开与数据库的连接;CGI技术已经发展的很成熟了,功能强大,例如SINA,NETEASE,SOHU等网站的搜索引擎,用的就是CGI技术。
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18