<% ' 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"-->