thaiall logomy background
coding : menu.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : menu.asp. ID : 5109
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<% 
' version 6.2549-03-25 
dim connect, connected, rs, sql, tots, i, j, k, l, nextl
session("fsubj") = request.form("fsubj")
session("fact")  = request.form("fact")&request.querystring("fact")
if request.form("fact") = "signin" then do_signin
if request.form("fact") = "signout" then do_signout
%><!--#include file="header.asp"--><%
session("result") = ""
if left(session("fact"),2) = "ar" then do_article_list
if request.form("fact") = "addques" or request.form("addquesnew") = "Add question and answer" or request.form("addquesnew") = "Add question in text" then do_addques
if left(request.form("fact"),5) = "addar" or request.form("addarticlenew") = "Add article"  then do_addarticle
if left(request.form("fact"),5) = "delar" or len(request.form("aid")) > 0  then do_delarticle
if request.form("fact") = "delques" or len(request.form("did")) > 0  then do_delques
if request.form("fact") = "applymember" then do_applymember
if request.form("fact") = "editmem" then do_editmem
if request.form("fact") = "updatemember" then do_updatemember
if request.form("fact") = "delmember" then do_delmember
if (mid(request.form("fact"),1,2) = "do") then do_do
if request.form("fact") = "addmember" then 
  do_addmember
else   
  if request.form("fact") <> "applymember" then
    if (len(request.form) > 0) then connect.close
  end if
  set rs = nothing
  set connect = nothing
end if  
%>
<!--#include file="footer.asp"-->

<%
' =====================================
sub do_signin
  connectdb
  sql = "select * from members where mu = '"& request.form("fu") &"' and mp = '" & request.form("fp") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  response.write("<center>")
  if tots = 1 then
    session("mu") = request.form("fu")
    session("intime") = now
    session("result") = "ยินดีต้อนรับ :: "& request.form("fu")
    if session("mu") <> "guest" then
      sql = "update members set mlast = '"& now &"' where mu = '"& request.form("fu")&"'" 
      connect.execute(sql)
      sql = "insert into signin(intime,mu,usequiz,usearticle) values ('" & session("intime")
      sql = sql & "','"& request.form("fu") &"',0,0)"
      connect.execute(sql)	
    end if
    session("result") = "<br><br><center><font size=6 color=red>ยินดีต้อนรับสู่ E-learning<br>การศึกษายุคโลกไร้พรมแดน .. เพื่อคนยุค IT</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง<br>โปรดอย่าลืมว่า ถ้าจะเลิกการทำงานให้ signout จากตัวเลือกด้านซ้ายมือ .. ทุกครั้ง<br>มิเช่นนั้น อาจมีผู้ไม่ประสงค์ดี แอบอ้างเป็นตัวท่านมาใช้บริการก็ได้</center>"	
  else
    session("result") = "รหัสของท่านไม่ถูกต้อง"
  end if
end sub
' =====================================

sub do_signout
  connectdb
  session("mu") = ""
  session("signintime") =""
  session("result") = "<br><br><center><font size=6 color=red>SignOut complete ..<br>ขอบคุณที่ใช้บริการ E-learning<br>การศึกษายุคโลกไร้พรมแดน .. เพื่อคนยุค IT</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง<br><br>"
end sub
' =====================================

sub do_addarticle
  connectarticle
  dim keepsubj  
  if request.form("addarticlenew") = "Add article" then
    if (len(request.form("faurl")) + len(request.form("fatitle")) + len(request.form("fadetail")) + len(session("mu"))) < 30000 then
      sql = "insert into article(mu,adate,aurl,atitle,adetail) values ('" & session("mu")
      sql = sql & "','"& now &"','"& request.form("faurl") &"','"& request.form("fatitle") &"','"& request.form("fadetail") &"')"
      connect.execute(sql)
      response.write("<br><center><font size=6 color=red>บทความถูกจัดเก็บเรียบร้อย</font><br>"& request.form("fatitle") &"</center>")
    else
      response.write("<br><center><font size=6 color=red>บทความของท่านมีขนาดใหญ่เกินไป<br>ระบบรองรับไม่ได้ .. ให้กลับไปลดขนาดก่อน</font><br></center>")
    end if
	keepsubj = request.form("fsubj")
  else 
    keepsubj = right(request.form("fact"),len(request.form("fact"))-3) 
  end if
%>
<center><form name=addarticle action=menu.asp method=post>
<input type=hidden name=fsubj value=<%= keepsubj %>>
<table bgcolor=#dddddd>
<tr><td align=right>เว็บที่อ้างอิงข้อมูลนี้ ::</td><td><input name=faurl size=60></td></tr>
<tr><td align=right>ชื่อเรื่อง ::</td><td><input name=fatitle size=60></td></tr>
<tr><td align=right valign=top>เนื้อหา ::<br><input type=submit name=addarticlenew value="Add article"></td><td>
<textarea wrap=off name=fadetail rows=20 cols=70>
</textarea>
</td></tr>
</table>
</form>
<%
end sub
' =====================================

sub do_delarticle  
  connectarticle
  if len(request.form("aid")) > 0 then
    sql = "delete from article where mu ='"& session("mu") &"' and aid="& request.form("aid")
    connect.execute(sql)
    response.write("บทความ ถูกลบเรียบร้อย")
	keepsubj = request.form("fsubj")
  else 
    keepsubj = right(request.form("fact"),len(request.form("fact"))-3) 	
  end if
  response.write("<form action=menu.asp method=post>")
  sql = "select * from article where mu ='"& session("mu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  i = 1
  response.write("<form action=menu.asp method=post><ul>")
  response.write("<input type=hidden name=fsubj value="& keepsubj &">")  
  do while not rs.eof
    response.write("<br><input type=radio name=aid value="& rs("aid") &">"& i &" : ")
    response.write(rs("aid") &". <a href=showarticle.asp?aid="& rs("aid") &">"&rs("atitle")&"</a>")
    rs.movenext   
    i = i + 1
  loop  
  response.write("<br><input type=submit value="&request.form("fact")&" name=fact></form>")
end sub
' =====================================

sub do_article_list
  connectarticle
  dim page, recpage, maxpage, orderby, q
  if (len(request.form("fselectmu")) > 0 and request.form("fselectmu")<> "9999999" )then
    q = q & "mu ='" & request.form("fselectmu") &"' "
    if len(request.querystring("q")) > 0 then
      q = q & "and "
    end if  
  end if
  if len(request.querystring("q")) > 0 then
    q = q & "atitle like '%" & request.querystring("q") &"%' or adetail like '%"& request.querystring("q") &"%' "
  end if	
  if len(q) > 0 then
    q = "where " & q
  end if	
  sql = "select * from article "& q &" order by adate desc"
  orderby = "จัดเรียงตาม เวลา"  
  if request.querystring("orderby") = "atitle" then
    sql = "select * from article "& q &" order by atitle"
    orderby = "จัดเรียงตาม หัวเรื่อง"
  end if
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  i = 1
  if len(request.querystring("page")) = 0 then
    page = 1
  else
    page = request.querystring("page")
  end if
  recpage = 50
  maxpage = round(tots / 50)
  if maxpage < tots / 50 then
    maxpage = maxpage + 1
  end if
  response.write("<form action=menu.asp method=get><input type=hidden name=fact value="&session("fact")&">")  
  response.write("<font size=6 color=blue>แสดงรายชื่อบทความ</font> ["& tots &" บทความ] " & orderby)
  response.write("<br>บริการสืบค้นในบทความ : <input name=q size=12 value='"& request.querystring("q") &"'><input type=submit value=Search>")
  response.write("<br>เลือกหน้า :  [ ")
  for j = 1 to maxpage
    if j = page then
      response.write(j &" ")
    else
      response.write("<a href=menu.asp?fact="&session("fact")&"&page=" & j &">"& j &"</a>,")
    end if
  next
  response.write("]</form>")
  do while not rs.eof
    if i <= (page * recpage) and i >= (page * recpage - recpage + 1) then
      response.write("<img src=l.gif>"&i&". " &rs("adate")&" <a href=showarticle.asp?aid=")
      response.write(rs("aid") & "&fsubj=" & session("fact") & ">" &rs("atitle")&"</a> ("& len(rs("adetail")) &") <a href=showmem.asp?mu="&rs("mu")&">#</a><br>")
    end if
    rs.movenext   
    i = i + 1
  loop  
  response.write("<hr color=black>เลือกหน้า :  [ ")
  for j = 1 to maxpage
    if j = page then
      response.write(j &" ")
    else
      response.write("<a href=menu.asp?fact="&session("fact")&"&page=" & j &">"& j &"</a> .")
    end if
  next
  response.write("]<br>")  
end sub
' =====================================

sub do_addques
  connectsubj
  if request.form("fsubj") = "qzosthaiall" then
    response.write("<center><font color=red>ท่านไม่มีสิทธิ์เพิ่มข้อสอบ ไปในชุดที่ต้องการได้<br>ให้ตรวจสอบชุดข้อสอบ หรือ account ของท่าน")  
    response.write("<br>ขณะนี้เรา Lock ไม่ให้ guest หรือมีการปรับปรุงในฐานข้อมูลของ thaiall</font></center>")  
  else
    if (len(request.form("ques")) + len(request.form("c1")) + len(request.form("c2")) + len(request.form("c3"))+ len(request.form("c4"))+ len(request.form("ans"))) < 2000 then
    if request.form("addquesnew") = "Add question and answer" then	
      sql = "insert into ques(ques,c1,c2,c3,c4,ans,mu) values ('" & request.form("ques")
      sql = sql & "','"& request.form("c1") &"','"& request.form("c2") &"','"& request.form("c3") &"','"& request.form("c4") &"','"& request.form("ans") &"','"& session("mu") & "')"
      connect.execute(sql)
      response.write("<br><font color=red>ข้อสอบใหม่ ถูกจัดเก็บเรียบร้อย</font> " & request.form("ques") & " : "& request.form("ans"))
    end if
    if request.form("addquesnew") = "Add question in text" then
      k = split(request.form("fulltext"),chr(13)&chr(10),-1,1)
      if asc(k(5)) > 48 and asc(k(5)) < 53 and (len(k(0)) + len(k(1)) + len(k(2)) + len(k(3)) + len(k(4)) + len(k(5))) < 2000 then	  
        sql = "insert into ques(ques,c1,c2,c3,c4,ans,mu) values ('" & k(0)
        sql = sql & "','"& k(1) &"','"& k(2) &"','"& k(3) &"','"& k(4) &"','"& k(5) &"','"& session("mu") & "')"
        connect.execute(sql)
        response.write("<br><font color=red>ข้อสอบใหม่ ถูกจัดเก็บเรียบร้อย</font> " & k(0) & " : "& k(5))
      else
        response.write("เฉลยต้องเป็น 1 ถึง 4 และชิดซ้ายอักษรเดียวในบรรทัดที่ 6<br>และคำถามหรือตัวเลือก ต้องไม่ยาวเกินไป")      
      end if      
    end if
    else
    response.write("ระบบรองรับโจทย์ หรือตัวเลือกยาว ๆ ไม่ได้")
    end if
  end if
%>
<form action=menu.asp method=post>
<input type=hidden name=fsubj value=<%=request.form("fsubj") %>>
<center><table bgcolor=#dddddd>
<tr><td valign=top bgcolor=#ddffff>คำถาม<br>
ตัวเลือกที่ 1<br>
ตัวเลือกที่ 2<br>
ตัวเลือกที่ 3<br>
ตัวเลือกที่ 4<br>
คำตอบ [1,2,3,4]
</td><td valign=top bgcolor=#ddffff>
<table><td valign=top>
<textarea wrap=off name=fulltext cols=50 rows=7>
</textarea></td><td valign=top><pre><b>เช่น</b>
10+10=?
18
19
20
21
3
</td></table>
<input type=submit name=addquesnew value="Add question in text"></td></tr>
<tr><td align=right>คำถาม ::</td><td><input name=ques size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 1 ::</td><td><input name=c1 size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 2 ::</td><td><input name=c2 size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 3 ::</td><td><input name=c3 size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 4 ::</td><td><input name=c4 size=60></td></tr>
<tr><td align=right>เฉลย :: </td><td>
<select name=ans>
<option value=1 selected>1
<option value=2>2
<option value=3>3
<option value=4>4
</select><input type=submit name=addquesnew value="Add question and answer"></td></tr>
</table>
</form>
<%
end sub
' =====================================

sub do_delques
  connectsubj
  response.write("<form action=menu.asp method=post>")
  if request.form("fsubj") = "qzosthaiall" then
    response.write("<center><font color=red>ท่านไม่มีสิทธิ์ลบข้อสอบ ในชุดที่ต้องการได้<br>ให้ตรวจสอบชุดข้อสอบ หรือ account ของท่าน")  
    response.write("<br>ขณะนี้เรา Lock ไม่ให้ guest หรือมีการปรับปรุงในฐานข้อมูลของ thaiall</font></center>")  
  else
    response.write("<input type=submit value=delques name=fact>")
    if len(request.form("qid")) > 0 then
    sql = "delete from ques where mu ='"& session("mu") &"' and qid="& request.form("qid")
    connect.execute(sql)
    response.write("ข้อสอบถูกลบเรียบร้อย")
    end if
  end if
  sql = "select * from ques where mu ='"& session("mu") &"' order by qid"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  i = 1
  response.write("<input type=hidden name=fsubj value="& request.form("fsubj") &">")   
  do while not rs.eof 
    response.write("<br><input type=radio name=qid value="& rs("qid") &">")
    response.write(rs("qid") &". "&rs("ques")&" - "&rs("c1")&" - "&rs("c2")&" - "&rs("c3")&" - "&rs("c4")&" - "&rs("ans")&" [ <font color=blue>"& i &"</font> ]")
    rs.movenext   
    i = i + 1
  loop  
  response.write("</form>")
end sub
' =====================================

sub do_applymember
%>
<form action=menu.asp method=post>
<table bgcolor=#dddddd width=100%>
<tr><td colspan=2><font color=blue size=6><b>สมัครสมาชิก</b></font></td><td></td></tr>
<tr bgcolor=#808080><td align=right>รหัสสมาชิก :: </td><td><input name=fmu value=<%= request.form("fu") %>></td></tr>
<tr><td align=right>รหัสผ่าน :: </td><td><input type=password name=fmp size=40></td></tr>
<tr bgcolor=#808080><td align=right>รหัสผ่าน(อีกครั้ง) :: </td><td><input type=password name=fmpn size=40></td></tr>
<tr><td align=right>ชื่อ-สกุล  :: </td><td><input name=fmname size=40></td></tr>
<tr bgcolor=#808080><td align=right>จังหวัด :: </td><td><input name=fmprovince size=40></td></tr>
<tr><td align=right>E-mail :: </td><td><input name=fmemail size=40></td></tr>
<tr bgcolor=#808080><td align=right>Homepage :: </td><td><input name=fmurl size=40 value=http:// ></td></tr>
<tr><td align=right>Photo link :: </td><td><input name=fmimg size=40 value=http:// ></td></tr>
<tr><td align=right></td><td>เช่น http://www.thai.net/thaiall/me/picme.jpg</td></tr>
<tr bgcolor=#808080><td align=right valign=top>รายละเอียดสมาชิก :: </td><td><textarea wrap=off name=fmdetail wrap=on rows=8 cols=50>
เป้าหมายชีวิต :
เกรดเฉลี่ย :
อาชีพที่ใฝ่ฝัน :
เบอร์โทร :
ความชำนาญพิเศษ :
อื่น ๆ ...
</textarea></td></tr>
<tr><td align=right></td><td><input type=submit name=fact value=addmember></td></tr>
</form>
</table>
<%
end sub
' =====================================

sub do_editmem
  connectdb
  sql = "select * from members where mu = '"& session("mu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots = 1 then
%>
<form action=menu.asp method=post>
<table bgcolor=#dddddd width=100%>
<tr><td align=right><b>แก้ไขข้อมูลสมาชิก</b></td><td></td></tr>
<tr><td align=right>รหัสสมาชิก :: </td><td><b><%= rs("mu") %></b></td></tr>
<tr><td align=right>รหัสผ่าน :: </td><td><input type=password name=fmp value="<%= rs("mp") %>"></td></tr>
<tr><td align=right>รหัสผ่าน(อีกครั้ง) :: </td><td><input type=password name=fmpn value="<%= rs("mp") %>"></td></tr>
<tr><td align=right>ชื่อ-สกุล  :: </td><td><input name=fmname value="<%= rs("mname") %>"></td></tr>
<tr><td align=right>จังหวัด :: </td><td><input name=fmprovince value="<%= rs("mprovince") %>"></td></tr>
<tr><td align=right>E-mail :: </td><td><input name=fmemail value="<%= rs("memail") %>"></td></tr>
<tr><td align=right>Homepage :: </td><td><input name=fmurl size=40 value="<%= rs("murl") %>"></td></tr>
<tr><td align=right>Photo link :: </td><td><input name=fmimg size=40 value="<%= rs("mimg") %>"><br>เช่น http://www.thai.net/thaiall/me/picme.jpg</td></tr>
<tr><td align=right valign=top>รายละเอียดสมาชิก :: </td><td><textarea wrap=off name=fmdetail wrap=on rows=8 cols=50>
<%= rs("mdetail") %>
</textarea></td></tr>
<tr><td align=right></td><td><input type=submit name=fact value=updatemember></td></tr>
</form>
</table>
<%
  end if
end sub
' =====================================

sub do_updatemember
  connectdb
  if request.form("fmp") = request.form("fmpn") and (len(request.form("fmu")) + len(request.form("fmp")) + len(request.form("fmname")) + len(request.form("fmprovince")) + len(request.form("fmemail")) + len(request.form("fmurl")) + len(request.form("fmimg")) + len(request.form("fmdetail"))) < 2000 then
  session("result") = "ยินดีต้อนรับ :: "& request.form("fmu")
  sql = "update members set mp = '"& request.form("fmp") &"', mname = '"& request.form("fmname") &"', mprovince = '"& request.form("fmprovince") &"', memail = '"& request.form("fmemail") &"', murl = '"& request.form("fmurl") &"', mimg = '"& request.form("fmimg") &"', mdetail = '"& request.form("fmdetail") &"' where mu = '"& session("mu")&"'" 
  connect.execute(sql)	
  response.write ("<br><br><center><font size=6 color=red>แก้ไขข้อมูลเรียบร้อย</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง</center>")
  else
  response.write ("<br><br><center><font size=6 color=red>แก้ไขข้อมูล ไม่เรียบร้อย<br>ท่านพิมพ์รหัสผ่าน 2 ครั้งไม่เหมือนกัน</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง</center>")
  end if
end sub
' =====================================

sub do_delmember
  connectdb
if len(request.form("fu")) > 2 and len(request.form("fp")) > 2 and request.form("fu") <> "guest" then
  sql = "select * from members where mu = '"& request.form("fu") &"' and mp  = '" & request.form("fp") & "'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots = 1 then
  sql = "delete from members where mu = '" & request.form("fu") & "'"  
  connect.execute(sql)
  response.write("<br>ลบสมาชิกใหม่ :: สำเร็จเรียบร้อย")  
  else
  response.write("<br>ลบสมาชิกใหม่ไม่สำเร็จ :: เนื่องจากหารหัสนี้ไม่พบ")  
  end if
else
  response.write("กรอกข้อมูลไม่ถูกต้อง ให้กลับไปตรวจสอบ แล้วดำเนิกการใหม่ :: สถานภาพสมาชิก ยังไม่หายไป")
end if
end sub
' =====================================

sub do_addmember
  connectdb
if len(request.form("fmu")) < 12 and len(request.form("fmu")) > 2 and len(request.form("fmp")) > 2 and len(request.form("fmname")) > 2 and len(request.form("fmprovince")) > 2 and len(request.form("fmemail")) > 2 and request.form("fmp") = request.form("fmpn") then
  sql = "select * from members where mu = '"& request.form("fmu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots = 0 then
  sql = "insert into members(mu,mp,mname,mprovince,memail,mapply,murl,mimg,mlast) values ('" & request.form("fmu")
  sql = sql & "','"& request.form("fmp") &"','"& request.form("fmname") &"','"& request.form("fmprovince") &"','"& request.form("fmemail") &"','"& Now &"','"& request.form("fmurl") &"','"& request.form("fmimg") &"','"& Now &"')"
  connect.execute(sql)
  response.write("<br>เพิ่มสมาชิกใหม่ :: สำเร็จเรียบร้อย")  
  else
  response.write("<br>เพิ่มสมาชิกใหม่ไม่สำเร็จ :: เนื่องจากรหัสผู้ใช้นี่มีอยู่แล้ว")  
  end if
else
  response.write("<center><br><font size=6>กรอกข้อมูลไม่ถูกต้อง<br>ให้กลับไปตรวจสอบ แล้วดำเนินการใหม่<br><br><font color=red>สถานภาพสมาชิก ยังไม่สมบูรณ์</font><br>กดปุ่มด้านล่างนี้อีกครั้ง")
  response.write("<form action=menu.asp method=post><input type=submit name=fact value=applymember></form></center>")
end if
end sub
' =====================================

sub do_do
  connectsubj
  if request.form("fselectmu") = "9999999" then
  sql = "select * from ques"
  else 
  sql = "select * from ques where mu='" & request.form("fselectmu") & "'"
  end if
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  numamt = cint(mid(request.form("fact"),3,2))
  nummax = tots
  nummin = 1
  if numamt > (nummax - nummin + 1) or numamt = 0 or numamt > 999 then 
    response.write( "<br><br><font color=red size=4><center>มีปัญหาที่จำนวนข้อสอบ โปรดกลับไปตรวจสอบ<br>บางที รหัสชุดข้อสอบที่ใช้ อาจไม่มีในฐานข้อมูล<br>ควรแก้รหัสสุ่มเป็น 9999999<br>บางทีจำนวนข้อสอบในฐานข้อมูลอาจมีไม่พอสุ่มขึ้นมาก็ได้</center></font>")
  else
    randomize   
    dim arr(999)
    i = 1
    do while i <= numamt
      x = int(nummin  + (rnd * ( nummax - nummin + 1)))
      found = 0
      for j = 1 to i - 1
        if arr(j) = x then found = 1
      next
      if found = 0 then
        arr(i) = x
        i = i + 1
      end if
    loop
  i = 1
  k = 1
  response.write("<form action=checkans.asp method=post><ul>")    
  response.write("<input type=hidden name=fsubj value="& request.form("fsubj") &">")    
  response.write("<input type=hidden name=tot value="& cint(mid(request.form("fact"),3,2)) &">")    
  do while not rs.eof  
    for j = 1 to cint(mid(request.form("fact"),3,2))
    if arr(j) = i then
      response.write(k &". "& rs("ques"))
      response.write(" <a href=showmem.asp?mu="& rs("mu") &">#</a>")
      response.write("<ul>")
      response.write("<input type=hidden name=num"&k&" value='"& i &"'>")
      response.write("<input type=hidden name=ques"&i&" value='"& rs("ques") &"'>")
      response.write("<input type=hidden name=ans1x" &i&" value='"& rs("c1") &"'>")	
      response.write("<input type=hidden name=ans2x" &i&" value='"& rs("c2") &"'>")	
      response.write("<input type=hidden name=ans3x" &i&" value='"& rs("c3") &"'>")	
      response.write("<input type=hidden name=ans4x" &i&" value='"& rs("c4") &"'>")	
      response.write("<input type=hidden name=qid"&i&" value="& rs("qid") &">")
      response.write("<input type=radio name=q" &i&" value=1>"& rs("c1") &"<br>")
      response.write("<input type=radio name=q" &i&" value=2>"& rs("c2") &"<br>")
      response.write("<input type=radio name=q" &i&" value=3>"& rs("c3") &"<br>")
      response.write("<input type=radio name=q" &i&" value=4>"& rs("c4") &"<br>")
      response.write("<input type=hidden name=a"&i&" value="& rs("ans") * rs("qid") * 13 &"></ul><hr color=blue>")		
      k = k + 1
    end if
    next
    i = i + 1
    rs.movenext 
  loop
  response.write("<input type=submit value=ส่งผลการสอนไปตรวจให้คะแนน></ul></form>")
  end if
end sub
' =====================================

sub connectdb
  ' dim connect, rs, sql, tots, i, j, k, l, nextl
  set connect = server.createobject("ADODB.Connection")
  if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\members.mdb"))
  else   
    if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
      connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\openworld\members.mdb"))
    else     
      connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("members.mdb"))
    end if
  end if  
end sub
' =====================================

sub connectsubj
  dim selecttb
  selecttb = request.form("fsubj")
  set connect = server.createobject("ADODB.Connection")
  if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\"& selecttb &".mdb"))
  else   
    if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
      connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\openworld\"& selecttb & ".mdb"))
    else     
      connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(selecttb & ".mdb")) 
    end if
  end if
end sub
' =====================================

sub connectarticle
  dim selecttb
  if left(request.form("fact"),5) = "addar" or left(request.form("fact"),5) = "delar" then
    selecttb = right(request.form("fact"),len(request.form("fact"))-3)
  else	
    if left(session("fact"),2) <> "ar" then
      selecttb = request.form("fsubj")
    else
      selecttb = session("fact")
    end if
  end if
  set connect = server.createobject("ADODB.Connection")
  if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\"&selecttb&".mdb"))
  else   
    if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
      connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\openworld\"& selecttb & ".mdb"))
    else     
      connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(selecttb&".mdb"))
    end if
  end if
end sub
' =====================================
%>
จำนวน : 527 บรรทัด
าษาเฮชทีเอ็มแอล (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) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
าษาไพทอน (Python Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาแอพพลิเคชั่นโดยไม่ยึดติดกับแพลตฟอร์ม (Platform) และใช้ในงานได้หลายประเภท ทั้งใช้ในการประมวลผลผ่านคอมมานด์ไลน์ หรือเป็นเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้โค้ดให้กับตัวแปลภาษา เพื่อทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปข้อความ เอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้ จุดที่แตกต่างกับภาษาอื่น คือ การรวบรวมจุดเด่นของแต่ละภาษามารวมเข้าด้วยกัน
อสคิวแอล (SQL = Structured Query Language) คือ ภาษาสอบถามข้อมูล หรือภาษาจัดการข้อมูลอย่างมีโครงสร้าง มีการพัฒนาภาษาคอมพิวเตอร์ และโปรแกรมฐานข้อมูลที่รองรับมากมาย เพราะจัดการข้อมูลได้ง่าย เช่น MySQL, MariaDB, MsSQL, PostgreSQL หรือ MS Access เป็นต้น สำหรับโปรแกรมฐานข้อมูลที่ได้รับความนิยมคือ MySQL หรือ MariaDB เป็น Open Source ที่ใช้งานได้ทั้งใน Linux และ Windows
วัสดีชาวโลก (Hello World) คือ ผลลัพธ์ครั้งแรกที่นักพัฒนาโปรแกรมนิยมเลือกใช้แสดงผลในโปรแกรมแรกที่เขียนขึ้นเพื่อทดสอบการทำงาน ข้อความนี้ทำให้นึกถึงมนุษย์ต่างดาวที่มาเยือนโลกและกล่าวกับมนุษย์เมื่อพบกันครั้งแรกในภาพยนตร์
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com