thaiall logomy background
coding : textsearch. restore.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : restore.asp. ID : 2407
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<body>
<form action=restore.asp method=post>
<select name=gettype>
<option value=replace>Replace
<option value=append>Append
</select><input type=submit>
</form>
<%
dim readall, gettype, result
result = "no select option and no work"
gettype = request.form("gettype")
if len(gettype) > 1 then
  set ftxt=createobject("scripting.filesystemobject")
  set ln = ftxt.opentextfile(server.mappath("/cgi-bin/searchbackup.dat"))
  allrec = ln.readall
  ln.close
end if
if gettype = "replace" then
  set ln = ftxt.createtextfile(server.mappath("/cgi-bin/search.dat"),true)
  result = "ok"
end if
if gettype = "append" then
  set ln = ftxt.opentextfile(server.mappath("/cgi-bin/search.dat"),8,true)
  result = "ok"
end if
if result = "ok" then
  ln.write(allrec)
  ln.close
end if
response.write "Process " & gettype & " : " & result
%>
</body>
จำนวน : 32 บรรทัด
าษาเฮชทีเอ็มแอล (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