thaiall logomy background
coding : newsletter.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : newsletter.asp. ID : 4210
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<! version 2.Feb14 by burin rujjanapan from yonok.ac.th>
<!--#include file="header.asp"-->
<center><form action=newsletter.asp method=post><table width=500 bgcolor=#808080 border=0><td bgcolor=#dddddd align=center>
Your e-mail : <input name=femail size=20>
<br><input type=submit name=process value="สมัครรับจดหมายข่าว">
<hr color=#808080>ถ้าต้องการยกเลิก การรับจดหมายข่าวลำปาง<br>ให้ e-mail แจ้งความจำนงไปที่ webmaster@lampang.go.th<br>โดยเขียน Subject ว่า <b>ยกเลิกจดหมายข่าว</b>
</td></table>
</form><center><font color=red size=4>
<!--#include file="connectnews.asp"-->

<%
  if (len(request.form("femail")) < 8 or len(request.form("femail")) > 50) then
    response.write("E-mail ของท่านสั้น หรือยาวเกินไป หรือไม่ได้กรอก<br>ตัวอย่างที่ถูก เช่น <b>burin@yonok.ac.th</b>")
  else 
    i = split(request.form("femail"),"@",-1,1)
    if (ubound(i) > 0) then 
      j = split(i(1),".",-1,1)
      if (ubound(j) > 0) then
        if (len(i(0)) < 2 or len(i(1)) < 5 or len(j(0)) < 2 or len(j(1)) < 5) then
          errormsg
        else	
          sql = "select * from newsletter where email = '"& request.form("femail") &"'"
          set rs = server.createobject("ADODB.recordset")
          rs.open sql,connect,1,3
          tots = rs.recordcount
          if tots > 0 then
            response.write("E-mail นี่สมัคร News letter เรียบร้อยแล้ว<br>จึงไม่มีความจำเป็นต้องสมัคร .. อีกครั้ง")
          else
            sql = "insert into newsletter(email,applydate) values ('"& request.form("femail") &"','"& Now &"')"
            connect.execute(sql)
            response.write("ผลการสมัครใช้บริการจดหมายข่าว ของ<br><font color=blue><b>"& request.form("femail") &"</b></font><br>เสร็จสิ้นสมบูรณ์")
          end if
        end if 
      else
        errormsg
      end if 
    else
      errormsg
    end if
  end if
%>
</font><!--#include file="footer.asp"-->
</body></html>

<%
sub errormsg
  response.write("รูปแบบ E-mail ของท่านไม่ถูกต้อง<br>ตัวอย่างที่ถูก เช่น <b>burin@yonok.ac.th</b>")
end sub
%>
จำนวน : 49 บรรทัด
าษาเฮชทีเอ็มแอล (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) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com