| 5. การใช้ CGI programming ใน Free hosting |
ภาษาคอมพิวเตอร์ที่ทำให้เว็บเป็น Dynamic และติดต่อกับ ฐานข้อมูลใน server
ทำให้สามารถประยุกต์ใช้ Homepage ได้อย่างมีประสิทธิภาพ เช่น ระบบสมาชิก, WWWBoard,
Search engine, Banner exchange, E-Commerce เป็นต้น
- เก่า และเก๋า เพราะปัจจุบัน Run ได้ในทุกระบบ และเป็นที่ยอมรับมาช้านาน
- ให้บริการได้ในทุกระบบปฏิบัติการ โดยเฉพาะ linux จะมีมาให้พร้อม
- ประมวลผลได้เร็ว เพราะเป็น text mode
- Free hosting : hypermart.net
ตัวอย่างโปรแกรม
#!/usr/local/bin/perl
print"Content-type:text/html\n\n";
$dat = <STDIN>;
$dat =~ tr/+/ /;
$dat =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$dat =~ s/~!/~!/g;
$_ = $dat;
$dat = tr/~-~#-@A-Za-zก-ฮฯ-๙/ /cs;
$dat = $_;
$filename = join '',"/data1/hm/thaiall.com","/perl/plsave.txt";
@dd = split '&',$dat;
$v1 = split '=',$dd[0];
$v2 = split '=',$dd[1];
open(myfile,">>$filename");
print myfile $v1,":",$v2,"\n";
close(myfile);
print $dat," : finish"
- ปัจจุบัน (มีนาคม 2544) ยังไม่มี (ASP compiler) freeware ที่ run บน linux ได้สมบูรณ์
- ประมวลผลได้ช้า เพราะเป็น Graphic mode และส่วนใหญ่ทำงานบน Windows NT
- ระบบไม่เสถียรใน Free hosting (เห็นได้ชัดมาก และหลายเว็บหยุดรับสมาชิกไปแล้ว)
- Free hosting : ewebcity.com
ตัวอย่างโปรแกรม
<%
set connNews = server.createobject("ADODB.Connection")
connNews.Open "DBQ=" & Server.Mappath("\thaiall\db\applnews.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
sql = "INSERT into applnews ( dateout, organ, position, datein, getfrom, email) VALUES ( "
sql = sql & " #" & request.form("dateout") & "#, "
sql = sql & " '" & request.form("organ") & "', "
sql = sql & " '" & request.form("position") & "', "
sql = sql & " #" & now() & "#, "
sql = sql & " '" & request.form("email") & "'); "
set prorun = connNews.Execute(sql)
connNews.close
set connNews = nothing
%>
<body>
<b>Add news</b><hr>
<a href=eappllst.asp>Display</a>
<br>Back to [<a href=eapplupd.htm>Update news</a>]
</body>
- ให้บริการได้ในทุกระบบปฏิบัติการ โดยเฉพาะ linux รุ่นใหม่ จะมีมาให้พร้อม
- มีโครงสร้างคล้ายภาษา PERL แต่มีลูกเล่นมากกว่ามาก
- ทำงานกับ MySQL ได้อย่างมีประสิทธิภาพบน Linux server
- เป็นคู่แข่งที่สำคัญของ PERL และ ASP เพราะเติบโตในกลุ่มผู้พัฒนาเว็บเร็วมาก
- Free hosting : se-ed.net
ตัวอย่างโปรแกรม
<?
if (empty($mto)){
$message = "hi\nthis is test\nthis is line.";
$mto = "burin@yonok.ac.th";
$msubj = "the subject";
$mfrom = "burin@thaiall.com";
$mreply = "burin@thaiall.com";
}
$message = $message."\n======\nService by http://www.thaiall.com/php/tstmail.htm";
$txtfrom = "From: ".$mfrom."\nReply-To: ".$mreply."\nX-Mailer: PHP/" . phpversion();
mail($mto, $msubj, $message, $txtfrom );
?>
<body bgcolor=#ffffff>
Sending completely
======
Service by http://www.thaiall.com/php/tstmail.htm
</body>
|
PDA ของบริษัท PALM ที่ปัจจุบัน PocketPC เข้ามาเทียบรัศมีแล้ว
ผังการเชื่อมต่อเครือข่ายในสถาบันการศึกษา
