PayPal - Online ödeme yapmanın daha güvenli ve kolay yolu!
Yeni Cevap 
 
Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
Perl ile SQL db bağlantısı
Yazar Mesaj
duzgun Çevrimdışı
Hizmetinizde
*******

Mesajlar: 2,323
Katılım: Jul 2008
Rep Puanı: 17
Mesaj: #1
Perl ile SQL db bağlantısı
PHP Kod:
$dbh DBI->connect($DSN,$user,$pw) || die "Cannot connect: $DBI:)errstr\n" unless $dbh;
my $sth $dbh->prepare("SELECT * FROM services WHERE username = \"$in{'username'}\" ");

$sth->execute();

(
$list_num,$username,$password,$email,$sitename,$siteurl,$gb_background,$gb_bak,$gb_color,
$gb_link,$gb_alink,$gb_vlink,$sendreply,$sendthanks,$mesajsayisi,$hazirstil,$gmtayari,$durumicq,
$enicq,$boyicq,$uyeliktarihi) = $sth->fetchrow;


my $act $dbh->prepare("SELECT * FROM active WHERE username = '$username' " );

$act->execute();

(
$num,$user,$pass,$zaman) = $act->fetchrow;

if ((
$num eq $in{'id'}) && (($time $zaman) < $sension)){

$sql "UPDATE active SET id=\"$in{'id'}\",
username='
$user',
password='
$pass',
zaman='
$time
WHERE username = '
$username' AND id = \"$in{'id'}\" ";

$act $dbh->do($sql);

$in{'password'} = $pass;

}


$sql "INSERT INTO active (id, username, password, zaman) VALUES ('$id','$username','$password','$time')";

$act $dbh->do($sql);

$dbh->disconnect
02-07-2008 14:33
Bu kullanıcının gönderdiği tüm mesajları bul Bu mesajı alıntı yap
Yeni Cevap 


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Perl ile UTF-8 karakterleri Türkçe iso-8859-9 dönüştürün. duzgun 4 7,343 27-08-2014 16:40
Son Mesaj: legolas
  perl trim ltrim rtrim fonksiyonları duzgun 2 3,334 28-11-2008 00:19
Son Mesaj: snowbird
  perl ile script leri EXECUTABLE (.exe) haline getirebilirsin duzgun 0 2,818 02-07-2008 14:27
Son Mesaj: duzgun

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi