thaiall logomy background
coding : regist. evalopt.pl.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : evalopt.pl. ID : 0707
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
#!/usr/bin/perl
require 'parse.pl';
&parse_form;
$mainf="evalresult.txt";
print "Content-type: text/html\n\n";
print "<body bgcolor=#fffffd>";
open(STDIN, $mainf ); 
@ar = <STDIN>;
close(STDIN);
$cntar = @ar;
for $i (0 .. $cntar-1) {
  @rg = split (',',$ar[$i]);
  $cntrg = split (',',$ar[$i]);   
  if ($rg[0] eq $v{'id'} && $rg[1] eq $v{'subj'}) { $found=1; }
}   
print "แบบประเมิน<br>รหัส: $v{'id'} Subject: ",substr($v{'subj'},0,6);
print " Section: ",substr($v{'subj'},6,2),"<hr>";
if ($found eq "1") { print "ประเมิน วิชานี้ไปแล้ว"; exit; }
print '<FORM ACTION=evalsave.pl METHOD=POST>';
print "<input type=hidden name=id value=$v{'id'}>";
print "<input type=hidden name=subj value=$v{'subj'}>";
print "<table width=100%><tr><td>OPT</td>";
print '<td>Criterion</td><td>5</td><td>4</td><td>3</td><td>2</td><td>1</td></tr>';
print "<tr><td><input type=radio name=q11 value=0 checked></td>";
print '<td>1.1 นำเสนอเข้าใจง่าย</td>';
for($i=5;$i>=1;$i--){print"<td><input type=radio name=q11 value=$i></td>";}
print "</tr><tr><td><input type=radio name=q12 value=0 checked></td>";
print '<td>1.2 การวัดผลยุติธรรม</td>';
for($i=5;$i>=1;$i--){print"<td><input type=radio name=q12 value=$i></td>";}
print "</tr><tr><td><input type=radio name=q13 value=0 checked></td>";
print '<td>1.3 มีแผนการสอนชัดเจน</td>';
for($i=5;$i>=1;$i--){print"<td><input type=radio name=q13 value=$i></td>";}
print "</tr></table>";
print '4. ความคิดเห็นอื่น<br>';
print '<textarea name=qopen rows=3 cols=75></textarea><br>';
print '<INPUT TYPE=submit VALUE=Save></form></body>';
จำนวน : 36 บรรทัด
าษาเฮชทีเอ็มแอล (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)
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com