thaiall logomy background
coding : showmem.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : showmem.asp. ID : 5111
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<% ' version 4.May 7,2545 %>
<!--#include file="connectdatabase.asp"-->
<!--#include file="header.asp"-->
<table><td width=100% valign=top bgcolor=white><ul><b>ข้อมูลสมาชิก</b><br><%
  sql = "select * from members where mu='" & request.querystring("mu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  response.write("เข้าใช้บริการล่าสุด :: <font color=blue>"& rs("mlast") &"</font><br>")
  response.write("วันที่สมัครเป็นสมาชิก :: <font color=blue>"& rs("mapply") &"</font><br>")    
  response.write("รหัสสมาชิก :: <font color=blue>"& rs("mu") &"</font><br>")
  response.write("ชื่อ - สกุล :: <font color=blue>"& rs("mname") &"</font><br>")
  response.write("จังหวัด :: <font color=blue>"& rs("mprovince") &"</font><br>")
  response.write("สถานภาพ :: <font color=blue>"& rs("mstatus") &"</font><br>") 
  response.write("E-mail :: <font color=blue>"& rs("memail") &"</font><br>")  
  response.write("Homepage :: <font color=blue>"& rs("murl") &"</font><br>")     
  response.write("รายละเอียด :: <ul><pre><font color=blue>"& rs("mdetail") &"</font></ul>")     
%></ul>
</td><td valign=top align=center bgcolor=#dddddd>
  <%
  if len(rs("mimg")) > 5 then
  response.write("<img src="& rs("mimg") &"><br>"&rs("mimg"))
  else
  response.write("<br>ไม่พบแฟ้มภาพของท่าน<br>ท่านสามารถเข้าไปในส่วนแก้ไขข้อมูลส่วนตัว<br>แล้วเพิ่มภาพของท่านได้<br>== ด้วยตนเอง ==")
  end if
  %>
</td></table>
<%
  dim totalmem, totalaccess, totall
  sql = "select * from signin where mu='"& request.querystring("mu") &"' order by intime desc"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  totalmem = tots
  i = 0
  totall = 0
  response.write("<font color=#000080><b>ข้อมูลการ sign in ล่าสุด</b><br>")
  do while not rs.eof and i < 30
    response.write(i + 1 &" - "&rs("intime") &".   คะแนน : "& rs("usequiz") + rs("usearticle") &"<br>")
    i = i + 1
	totall = totall + rs("usequiz") + rs("usearticle")
    rs.movenext   
  loop
  response.write("รวมคะแนน ที่ท่าน signin + ทำข้อสอบ + อ่านบทความ ได้ <font size=6>" & totall + i - 1 & " </font>คะแนน<hr>")
  set rs = nothing
  set connect = nothing  
%>
<dd>ถ้าเจ้าของ ต้องการทราบว่าเขียนบทความอะไร หรือเขียนข้อสอบอะไรไป จะต้องเลือกเมนูด้านซ้ายเพื่อขอลบ
ซึ่งการลบ จะแสดงข้อมูลข้อสอบทั้งหมด .. บุคคลทั่วไปไม่สามารถทราบได้ .. ถือเป็นความลับส่วนตัว ยกเว้นจะคัดลอก MDB ไปดูเท่านั้น
<!--#include file="footer.asp"-->
จำนวน : 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