<! version 2.24July46 by burin rujjanapan from yonok.ac.th>
<!--#include file="connectinfo.asp"-->
<%
if len(session("usertb")) < 3 or request.form("process") = "SignIn" then
sql = "select * from tb where tbid = '"& request.form("usertb")&"' and tbpassword = '"&request.form("passwordtb") &"'"
set rs = server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
tots = rs.recordcount
u = "x"
p = "x"
if tots > 0 then
u = request.form("usertb")
p = request.form("passwordtb")
end if
end if
'
if request.form("process") = "SignOut" then
session("usertb") = ""
session("passwordtb") = ""
u = "x"
p = "x"
end if
'
if request.form("process") = "SignIn" _
and request.form("usertb") = u and request.form("passwordtb") = p then
session("usertb") = request.form("usertb")
session("passwordtb") = request.form("passwordtb")
end if
'
%>
<!--#include file="header.asp"-->
<table width=100% bgcolor=black><td bgcolor=#ffffdd>
<%
if len(session("usertb")) = 0 then
response.write("<center><table width=300><tr><form action=update.asp method=post><td align=right>")
response.write("รหัสตำบล (tbid)</td><td><input name=usertb value="& session("usertb") &"></td></tr><tr><td align=right>")
response.write("รหัสผ่าน (tbpassword)</td><td><input name=passwordtb type=password></td></tr>")
response.write("<tr><td></td><td><input type=submit name=process value=SignIn>")
response.write("</td></tr></form></table>")
else
response.write("<font size=4>ผู้ที่อยู่ในระบบขณะนี้ : <a href=http://202.29.78.31/tb.asp?tumbon=" & session("usertb") & "&menu=m00 target=_blank><b>"& session("usertb") & "</b></a></font>")
response.write("<table width=300><form action=update.asp method=post><td align=center><hr color=black>กดปุ่มล่างนี้ ถ้าต้องการเลิกการทำงาน<br>")
response.write("<input type=submit name=process value=SignOut></td>")
response.write("</form></table>")
end if
%>
</td><td><font color=white><b>บริการฐานข้อมูลสำหรับอำเภอ และตำบล</b><br>(ต้องใช้รหัสตำบล และรหัสผ่าน เพื่อเข้าไปแก้ไขข้อมูล)<br>
งาน 1. เรียกข้อมูลตำบล และตัวเลือกมาแก้ไข<br>
งาน 2. ขอแก้ไขรายละเอียดข้อมูลของเมนู<br>
งาน 3. ขอเพิ่มรายละเอียดข้อมูลของเมนู<br>
งาน 4. ขอลบรายละเอียด ในเมนูของตำบล
</td></table>
<center>
<%
if request.form("process") = "AddData" _
and len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
if (len(request.form("fm")) = 0 or len(request.form("fmdesc")) = 0) then
response.write("<form action=update.asp method=post><input type=submit value=กลับหน้าแก้ไขอีกครั้ง></form><hr color=black>")
else
sql = "insert into tbm(tbid,m,mdesc) values ('"& session("usertb") &"','"
sql = sql & request.form("fm") &"','"& request.form("fmdesc") &"')"
connect.execute(sql)
response.write("<br>AddData : ok")
end if
end if
'
if request.form("process") = "DelData" _
and len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
sql = "select * from tbm where tbid = '"& session("usertb") &"' and m = '"&request.form("fm") &"'"
set rs = server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
tots = rs.recordcount
if tots = 0 then
response.write("<form action=update.asp method=post><input type=submit value=กลับหน้าแก้ไขอีกครั้ง></form><hr color=black>")
else
sql = "delete from tbm where tbid = '"& session("usertb") &"' and m = '"&request.form("fm") &"'"
connect.execute(sql)
response.write("<br>DelData : ok")
end if
end if
'
if request.form("process") = "EditMenuStep1" _
and len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
sql = "select * from tb where tbid = '"& session("usertb") &"'"
set rs = server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
tots = rs.recordcount
if tots = 0 then
response.write("<form action=update.asp method=post><input type=submit value=กลับหน้าแก้ไขอีกครั้ง></form><hr color=black>")
else
response.write("<br><table width=95% border=0 cellpadding=1 cellspacing=1 bgcolor=blue><td bgcolor=#dddddd>")
response.write("<form action=update.asp method=post><font color=blue size=4><b>งาน 1. แก้ไขรายละเอียด และข้อมูลหน้าแรก</b></font><br>")
response.write("<table width=100% border=0 cellpadding=1 cellspacing=1 bgcolor=#dddddd><tr bgcolor=#808080><td align=right>")
response.write("รหัสตำบล (tbid) : </td><td>" & session("usertb") &"<input name=ftbid type=hidden value="& session("usertb") &"></td></tr><tr><td align=right>")
response.write("รหัสผ่าน (tbpassword) : </td><td><input name=ftbpassword size=40 value="& rs("tbpassword") &"></td></tr><tr bgcolor=#808080><td align=right>")
response.write("ชื่อ (name) : </td><td><input name=fname size=40 value="& rs("name") &"></td></tr><tr><td align=right>")
response.write("Web address (url) : </td><td><input name=furl size=40 value="& rs("url") &"> เช่น http://www.yonok.ac.th</td></tr><tr bgcolor=#808080><td align=right>")
response.write("จำนวนข่าวแจ้งต่อหน้า (linenews) : </td><td><input name=flinenews size=5 value="& rs("linenews") &"> ต้องเป็นตัวเลข</td></tr><tr><td align=right>")
response.write("หน้าแรกของตำบล (m00) :</td><td><textarea name=fm00 rows=15 cols=100>"& rs("m00") &"</textarea></td></tr><tr bgcolor=#ddffdd><td align=right valign=top>")
response.write("ชื่อเมนูทั้งหมด (m..) : <br>ใช้ -- เมื่อต้องการลบตัวเลือก</td><td>")
response.write("<ul>")
for j = 1 to 99
if j < 10 then
l = "m0" & j
k = rs("m0"& j)
else
l = "m" & j
k = rs("m"& j)
end if
if isnull(k) then
k = "-"
end if
response.write("Menu (" & l & ") <input name=f"& l & " size=60 value='"& k &"'><br>")
next
response.write("</ul><input type=submit name=process value=EditMenuStep2> เพื่อบันทึกรายการเมนูทั้ง 99 รายการด้านบน")
response.write("</td></tr>")
response.write("</table></form></td></table><hr color=red><br>")
end if
end if
'
if request.form("process") = "EditMenuStep2" _
and len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
sql = "update tb set tbid = '"& session("usertb") &"',"
sql = sql & " name = '"&request.form("fname") &"',"
sql = sql & " tbpassword = '"&request.form("ftbpassword") &"', "
if request.form("furl") <> "" then sql = sql & " url = '"&request.form("furl") &"', "
if request.form("flinenews") <> "" then sql = sql & " linenews = '"&request.form("flinenews") &"', "
for j = 0 to 99
if j < 10 then
l = "m0" & j
else
l = "m" & j
end if
if request.form("f"&l) <> "-" then
sql = sql & l & "= '" & request.form("f"&l) &"' "
if (j + 1) < 10 then
nextl = "m0" & (j + 1)
else
nextl = "m" & (j + 1)
end if
if j < 99 and request.form("f"&nextl) <> "-" then
sql = sql & ","
end if
end if
next
sql = sql & " where tbid = '"& request.form("ftbid")&"'"
connect.execute(sql)
response.write("<br>EditData : ok")
end if
'
if request.form("process") = "EditDataStep1" _
and len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
sql = "select * from tbm where tbid = '"& session("usertb") &"' and m = '"&request.form("fm") &"'"
set rs = server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
tots = rs.recordcount
if tots = 0 then
response.write("<form action=update.asp method=post><input type=submit value=กลับหน้าแก้ไขอีกครั้ง></form><hr color=black>")
else
response.write("<form action=update.asp method=post><b>ขอแก้ไขรายละเอียด</b> (ขั้นสุดท้าย)<br>")
response.write("รหัสตำบล (tbid) : " & session("usertb") &"<input name=ftbid type=hidden value="& session("usertb") &"><br>")
response.write("รหัสเมนูที่ (m) : " & request.form("fm") &"<input name=fm type=hidden value="& request.form("fm") &"><br>")
response.write("รายละเอียด (mdesc) : <br>")
response.write("<textarea name=fmdesc rows=20 cols=100>")
response.write(rs("mdesc"))
response.write("</textarea><br> ")
response.write("<input type=submit name=process value=EditDataStep2>")
response.write("</form><hr>")
end if
end if
'
if request.form("process") = "EditDataStep2" _
and len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
sql = "update tbm set mdesc = '"& request.form("fmdesc") &"' where tbid = '"& request.form("ftbid")&"' and m = '"&request.form("fm") &"'"
connect.execute(sql)
response.write("<br>EditData : ok")
end if
' Form 1 เรียกข้อมูลตำบล และตัวเลือกมาแก้ไข
if len(session("usertb")) > 0 and len(session("passwordtb")) > 0 and request.form("process") <> "EditMenuStep1" then
response.write("<table width=95% border=0 cellpadding=1 cellspacing=1 bgcolor=blue><td bgcolor=#dddddd>")
response.write("<form action=update.asp method=post><font size=4 color=blue><b>งาน 1. เรียกข้อมูลตำบล และตัวเลือกมาแก้ไข</b> (นี่คือขั้นที่ 1 ซึ่งทั้งหมดมี 2 ขั้นตอน)</font><ul> ")
response.write("ให้ click ปุ่มข้างขวานี้เพื่อเข้าสู่กระบวนการแก้ไข <input type=submit name=process value=EditMenuStep1>")
response.write("</form></ul>")
response.write("</td></table><br>")
end if
' Form 2 ขอแก้ไขรายละเอียดข้อมูลของเมนู
if len(session("usertb")) > 0 and len(session("passwordtb")) > 0 and request.form("process") <> "EditDataStep1" then
response.write("<table width=95% border=0 cellpadding=1 cellspacing=1 bgcolor=blue><td bgcolor=#dddddd>")
response.write("<form action=update.asp method=post><font size=4 color=blue><b>งาน 2. ขอแก้ไขรายละเอียดข้อมูลของเมนู</b> (นี่คือขั้นที่ 1 ซึ่งทั้งหมดมี 2 ขั้นตอน)</font><ul>")
response.write("รหัสเมนูที่ (m) : <input name=fm value=m01>เช่น m01 ถึง m99 เพราะ m00 อยู่ในงานแรกแล้ว<br>")
response.write("<input type=submit name=process value=EditDataStep1>")
response.write("</form></ul>")
response.write("</td></table><br>")
end if
' Form 3 ขอเพิ่มรายละเอียดข้อมูลของเมนู
if len(session("usertb")) > 0 and len(session("passwordtb")) > 0 then
response.write("<table width=95% border=0 cellpadding=1 cellspacing=1 bgcolor=blue><td bgcolor=#dddddd>")
response.write("<form action=update.asp method=post><font size=4 color=blue><b>งาน 3. ขอเพิ่มรายละเอียดข้อมูลของเมนู (ที่ยังไม่เคยเพิ่มเข้าไป)</b></font><ul>")
response.write("รหัสเมนูที่ (m) : <input name=fm>เช่น m01 ถึง m99<br>")
response.write("รายละเอียด (mdesc) : <font color=red>(Can not duplicate and Can not use ' )</font><br>")
response.write("<textarea name=fmdesc rows=10 cols=100>")
response.write("</textarea><br>")
response.write("<input type=submit name=process value=AddData>")
response.write("</form>")
response.write("<b>ตัวอย่าง code ที่อาจต้องใช้</b><ul><font color=blue>")
response.write("<img src=http://www.yonok.ac.th/pic/yonok.jpg><hr color=yellow>")
response.write("<a href=http://www.lampang.net>ลำปาง</a><hr color=yellow>")
response.write("<table bgcolor=yellow border=1 width=300><br>")
response.write("<tr><td>ตัวอย่าง code สร้างตาราง</td><td>รับได้หลาย ๆ บรรทัดarea2</td></tr><br>")
response.write("<tr><td>ข้อมูลอะไรที่นี่</td><td>ใส่ img ก็รับ</td></tr><br>")
response.write("</table><hr color=yellow>")
response.write("<script>window.open("http://www.thaiall.com/me/picme.jpg");</script><hr color=yellow>")
response.write("<iframe src=http://10.7.4.31/users/burin/hello.doc width=400 height=400 ></iframe><hr color=yellow>")
response.write("<ol>สารบัญ<br>")
response.write("<li><a href=http://10.7.4.31/users/govoffice/file1.doc>รายชื่อพนักงาน</a><br>")
response.write("<li><a href=http://10.7.4.31/users/govoffice/file2.doc>การใช้จ่ายงบประมาณมีนาคม46</a><br>")
response.write("<li><a href=http://10.7.4.31/users/govoffice/file3.doc>การใช้จ่ายงบประมาณมีนาคม47</a><br>")
response.write("</ol>")
response.write("</font></ul></ul>")
response.write("</td></table><br>")
' Form 4 ขอลบรายละเอียดในเมนูของตำบล
response.write("<table width=95% border=0 cellpadding=1 cellspacing=1 bgcolor=blue><td bgcolor=#dddddd>")
response.write("<form action=update.asp method=post><font size=4 color=blue><b>งาน 4. ขอลบรายละเอียด ในเมนูของตำบล</b></font><ul>")
response.write("รหัสเมนูที่ (m) : <input name=fm>เช่น m01 ถึง m99<br>")
response.write("<input type=submit name=process value=DelData>")
response.write("</form></ul>")
response.write("</td></table>")
connect.close
set rs = nothing
set connect = nothing
else
if len(session("usertb")) > 0 then
response.write("<br>Invalid account")
end if
end if
%>
<!--#include file="footer.asp"-->
</body></html>