thaiall logomy background
coding : vdo. borrowvdo.php.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : borrowvdo.php. ID : 1906
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<body>
<font size=0>
<table><td bgcolor=#ffffdd>
<form action=borrowvdo.php method=post>Borrow VDO :<br>
Empl id: <input type=text name=geid value=e4401><br>
Password: <input type=password name=gpasswd value=abc><br>
Customer id: <input type=text name=gcid value=c440001><br>
VDO: <input type=text name=gvid value=t4400002m0001><br>
<input type=submit name=action value=borrow>
</form>
</td><td bgcolor=#ddffff>
<form action=borrowvdo.php method=post>Send VDO :<br>
Empl id: <input type=text name=geid value=e4401><br>
Password: <input type=password name=gpasswd value=abc><br>
Borrow id: <input type=text name=gbid value=r4400000152><br>
VDO: <input type=text name=gvid value=t4400001m0001><br>
<input type=submit name=action value=send>
</form>
</td></table>
<?
require("connect.php");
require("checkeid.php");
switch ($action) {
case "borrow":
  echo "List all vdo :<br>";
  $sql="select * from vdo";
  $result = mysql_db_query($db,$sql);  
  while ($object = mysql_fetch_object($result)) {
    if ($object->vid==$gvid && $object->flag=="A") { 
      $found="1"; 
      echo "<b>$object->vid  $object->flag</b><br>";
    } else {
      echo $object->vid."  ".$object->flag."<br>";
    }
  }
  if ($found == "1") {
    # calculate money
    $gvid9 = substr($gvid,8,1);
    if ($gvid9 == "m") { $vtype=30; } else { $vtype=15; }
    echo "<hr>You pay $vtype for ";
    # select story
    $gvid8 = substr($gvid,0,8);
    $sql="select * from story where vid8='$gvid8'";
    $result = mysql_db_query($db,$sql);  
    $object = mysql_fetch_object($result);
	echo $object->vname."<br>";
    # update vdo
    $sql="update vdo set flag='B' where vid='$gvid'";
    $result = mysql_db_query($db,$sql);    
    # insert borrow	
    $sql="select * from borrow order by bid desc";
    $result = mysql_db_query($db,$sql);  
    $object = mysql_fetch_object($result);
    $lbid = substr($object->bid,0,1).(substr($object->bid,1,10)+1);  
    $dd=date("j"); $mm=date("n"); $yy=date("Y");
    $dmy="$yy-$mm-$dd";
    $newvalue = "'$lbid','#$dmy#','$gcid','$geid'";
    echo "Borrow : OK - $newvalue <br>";
    $sql="insert into borrow (bid,bdate,cid,eid)";
    $sql=$sql."values($newvalue)";
    $result = mysql_db_query($db,$sql);  
    # insert borrowd	
	$tm = time()+(60*60*24*7);
    $dd=date("j",$tm); $mm=date("n",$tm); $yy=date("Y",$tm);
    $dmy="$yy-$mm-$dd";  
    $newvalue = "'$lbid','$gvid','B','#$dmy#'";
    echo "Borrowd : OK - $newvalue <br>";
    $sql="insert into borrowd (bid,vid,bflag,sdate)";
    $sql=$sql."values($newvalue)";
    $result = mysql_db_query($db,$sql);    
  } else {
    echo "Can not Borrow this VDO";
  }
  break;
case "send":
  $sql="select * from vdo";
  $result = mysql_db_query($db,$sql);  
  while ($object = mysql_fetch_object($result)) {
    if ($object->vid==$gvid && $object->flag=="B") { $found="1"; }
  }
  if ($found == "1") {
    # select borrowd	
    $sql="select * from borrowd ";
    $sql=$sql."where bid='$gbid' and vid='$gvid' and bflag ='B'";	
    $result = mysql_db_query($db,$sql);  
    if (!$result) { echo "Invalid in borrowd"; exit; }
    # update borrowd	
    $dd=date("j"); $mm=date("n"); $yy=date("Y");
    $dmy="#$yy-$mm-$dd#";    
    echo "Send : OK - $dmy <br>";
    $sql="update borrowd set sdate='$dmy',bflag='S' ";
    $sql=$sql."where bid='$gbid' and vid='$gvid'";
    $result = mysql_db_query($db,$sql);  
	echo "$sql<br>";
    if (!$result) { 
      echo "Can not Send this VDO (Not found in borrowd)"; 
    } else {
      # update vdo
      $sql="update vdo set flag='A' where vid='$gvid'";
      $result = mysql_db_query($db,$sql);    
    }    
  } else {
    echo "Can not Send this VDO (Not found in VDO)";
  } 
  break;
}
mysql_close($connect);
?>
</body>
จำนวน : 109 บรรทัด
าษาเฮชทีเอ็มแอล (HTML = HyperText Markup Language) คือ ภาษาคอมพิวเตอร์ที่ออกแบบมาเพื่อใช้ในการสร้างเว็บเพจที่เรียกดูผ่านทางเว็บเบราว์เซอร์ (Web Browser) เริ่มพัฒนาโดย ทิม เบอร์เนอรส์ ลี (Tim Berners Lee) ในปัจจุบัน HTML ล่าสุดคือ รุ่น 5 เป็นมาตรฐานหนึ่งของ ISO ซึ่งจัดการโดย World Wide Web Consortium (W3C) ในปัจจุบัน ทาง W3C ผลักดัน รูปแบบของ HTML แบบใหม่ ที่เรียกว่า XHTML รุ่นแรกคือ 1.0 (ม.ค.2543) ซึ่งมีโครงสร้างเป็นแบบ XML (eXtensible Markup Language)
าษาพีเอชพี (PHP Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
าษาไพทอน (Python Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาแอพพลิเคชั่นโดยไม่ยึดติดกับแพลตฟอร์ม (Platform) และใช้ในงานได้หลายประเภท ทั้งใช้ในการประมวลผลผ่านคอมมานด์ไลน์ หรือเป็นเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้โค้ดให้กับตัวแปลภาษา เพื่อทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปข้อความ เอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้ จุดที่แตกต่างกับภาษาอื่น คือ การรวบรวมจุดเด่นของแต่ละภาษามารวมเข้าด้วยกัน
อสคิวแอล (SQL = Structured Query Language) คือ ภาษาสอบถามข้อมูล หรือภาษาจัดการข้อมูลอย่างมีโครงสร้าง มีการพัฒนาภาษาคอมพิวเตอร์ และโปรแกรมฐานข้อมูลที่รองรับมากมาย เพราะจัดการข้อมูลได้ง่าย เช่น MySQL, MariaDB, MsSQL, PostgreSQL หรือ MS Access เป็นต้น สำหรับโปรแกรมฐานข้อมูลที่ได้รับความนิยมคือ MySQL หรือ MariaDB เป็น Open Source ที่ใช้งานได้ทั้งใน Linux และ Windows
วัสดีชาวโลก (Hello World) คือ ผลลัพธ์ครั้งแรกที่นักพัฒนาโปรแกรมนิยมเลือกใช้แสดงผลในโปรแกรมแรกที่เขียนขึ้นเพื่อทดสอบการทำงาน ข้อความนี้ทำให้นึกถึงมนุษย์ต่างดาวที่มาเยือนโลกและกล่าวกับมนุษย์เมื่อพบกันครั้งแรกในภาพยนตร์
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com