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