thaiall logomy background
coding : creditcard. default.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : default.asp. ID : 2801
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<! Copy from http://www.15seconds.com/howto/pg000066.htm >
<!-- #include file="ccard.inc"-->
<html><body>
<%
number=request("number")
cctype=request("cctype")
if number<>"" then
  chk=checkcc(number,cctype)
  response.write "<br>Result: "
  select case chk
  case 0 : response.write "Card is ok!"
  case 1 : response.write "Wrong card type"
  case 2 : response.write "Wrong length"
  case 3 : response.write "Wrong length and card type"
  case 4 : response.write "Wrong checksum"
  case 5 : response.write "Wrong checksum and card type"
  case 6 : response.write "Wrong checksum and length"
  case 7 : response.write "Wrong checksum, length and card type"
  case 8 : response.write "unknown cardtype"
  end select
else
  response.write "Please enter a card number"
end if
%>
<form action=default.asp method=post>
Card number: <input type=text name=number value="<%=number%>"><br>
Type: <select name=cctype size=8><br>
<option value=V <%if cctype="V" then response.write "selected"%>>VISA</option>
<option value=M <%if cctype="M" then response.write "selected"%>>Master/Euro</option>
<option value=A <%if cctype="A" then response.write "selected"%>>American Exp.</option>
<option value=C <%if cctype="C" then response.write "selected"%>>Diners Club</option>
<option value=D <%if cctype="D" then response.write "selected"%>>Discover</option>
<option value=E <%if cctype="E" then response.write "selected"%>>enRoute</option>
<option value=J <%if cctype="J" then response.write "selected"%>>JCB</option>
<option value=U <%if cctype="U" then response.write "selected"%>>unknown</option>
</select><br><input type=submit value="Test it!" name=B1>
</form>
<b>Create: 1998 by <a href="http://www.click-online.de">Click Online</a>
</body></html>
จำนวน : 39 บรรทัด
าษาเฮชทีเอ็มแอล (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